diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-14 17:53:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-14 17:53:21 +0000 |
| commit | 5bdd01f0daf81cf97a5d04004adb55a75c58ef6c (patch) | |
| tree | 0730d1598c7012ae871f146af6fa8ad2df3b4115 /perl-install/standalone/adduserdrake | |
| parent | ea1c93402dfa2aba19ab3dbc3551cd21572affb9 (diff) | |
| download | drakx-5bdd01f0daf81cf97a5d04004adb55a75c58ef6c.tar drakx-5bdd01f0daf81cf97a5d04004adb55a75c58ef6c.tar.gz drakx-5bdd01f0daf81cf97a5d04004adb55a75c58ef6c.tar.bz2 drakx-5bdd01f0daf81cf97a5d04004adb55a75c58ef6c.tar.xz drakx-5bdd01f0daf81cf97a5d04004adb55a75c58ef6c.zip | |
no_comment
Diffstat (limited to 'perl-install/standalone/adduserdrake')
| -rwxr-xr-x | perl-install/standalone/adduserdrake | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake index 52fbdfd68..8c3b3c477 100755 --- a/perl-install/standalone/adduserdrake +++ b/perl-install/standalone/adduserdrake @@ -18,6 +18,7 @@ my $in = vnew interactive('su'); my @etc_pass_fields = qw(name pw uid gid realname home shell); my @shells = map { "/bin/$_" } qw(bash tcsh zsh ash ksh); my $isMD5 = cat_("/etc/pam.d/passwd") =~ /md5/; +my $isShadow = cat_("/etc/pam.d/passwd") =~ /shadow/; my $security = $ENV{SECURITY_LEVEL}; new: @@ -59,7 +60,9 @@ if ($in->ask_from_entries_refH( $_ = join(':', @$u{@etc_pass_fields}) . "\n"; } } "/etc/passwd"; - + + system("pwconv") if $isShadow; + $u = {}; goto new; } |