|
Lines 536-544
Link Here
|
| 536 |
|
536 |
|
| 537 |
# make password database |
537 |
# make password database |
| 538 |
sub new_users_pwdmkdb { |
538 |
sub new_users_pwdmkdb { |
| 539 |
local($last) = @_; |
539 |
local($last) = shift; |
|
|
540 |
local($name) = shift; |
| 540 |
|
541 |
|
| 541 |
system("$pwd_mkdb $etc_passwd"); |
542 |
system("$pwd_mkdb -u $name $etc_passwd"); |
| 542 |
if ($?) { |
543 |
if ($?) { |
| 543 |
warn "$last\n"; |
544 |
warn "$last\n"; |
| 544 |
warn "``$pwd_mkdb'' failed\n"; |
545 |
warn "``$pwd_mkdb'' failed\n"; |
|
Lines 708-714
Link Here
|
| 708 |
$new_entry = "$name\:" . "$cryptpwd" . |
709 |
$new_entry = "$name\:" . "$cryptpwd" . |
| 709 |
"\:$u_id\:$g_id\:$class\:0:0:$fullname:$userhome:$sh"; |
710 |
"\:$u_id\:$g_id\:$class\:0:0:$fullname:$userhome:$sh"; |
| 710 |
&append_file($etc_passwd, "$new_entry"); |
711 |
&append_file($etc_passwd, "$new_entry"); |
| 711 |
&new_users_pwdmkdb("$new_entry"); |
712 |
&new_users_pwdmkdb("$new_entry",$name); |
| 712 |
&new_users_group_update; |
713 |
&new_users_group_update; |
| 713 |
&new_users_passwd_update; print "Added user ``$name''\n"; |
714 |
&new_users_passwd_update; print "Added user ``$name''\n"; |
| 714 |
&new_users_sendmessage; |
715 |
&new_users_sendmessage; |