diff options
Diffstat (limited to 'adduser/adduser.perl')
-rw-r--r-- | adduser/adduser.perl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/adduser/adduser.perl b/adduser/adduser.perl index 58cffec..b0dc174 100644 --- a/adduser/adduser.perl +++ b/adduser/adduser.perl @@ -559,9 +559,10 @@ EOF # make password database sub new_users_pwdmkdb { - local($last) = @_; + local($last) = shift; + local($name) = shift; - system("$pwd_mkdb $etc_passwd"); + system("$pwd_mkdb -u $name $etc_passwd"); if ($?) { warn "$last\n"; warn "``$pwd_mkdb'' failed\n"; @@ -793,7 +794,7 @@ sub new_users { $new_entry = "$name\:" . "$cryptpwd" . "\:$u_id\:$g_id\:$class\:0:0:$fullname:$userhome:$sh"; &append_file($etc_passwd, "$new_entry"); - &new_users_pwdmkdb("$new_entry"); + &new_users_pwdmkdb("$new_entry", $name); &new_users_group_update; &new_users_passwd_update; print "Added user ``$name''\n"; &new_users_sendmessage; |