diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-17 00:39:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-17 00:39:01 +0000 |
| commit | 11b0b944ddde76b4982fa2f9e2118dcee5035f80 (patch) | |
| tree | a873f848dcf1eda96b89a0319f8923e10bbc5b4a /perl-install/standalone/adduserdrake | |
| parent | d77799bb5ce63ecac4de72e1b27f56d7d22fd048 (diff) | |
| download | drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.gz drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.bz2 drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.xz drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.zip | |
no_comment
Diffstat (limited to 'perl-install/standalone/adduserdrake')
| -rwxr-xr-x | perl-install/standalone/adduserdrake | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake index be03ed9f3..6cd88bf32 100755 --- a/perl-install/standalone/adduserdrake +++ b/perl-install/standalone/adduserdrake @@ -72,7 +72,7 @@ sub addusers { my @u = map { $_->{name} } my @users = @_; foreach (@users) { - $_->{pw} = $isMD5 ? c::crypt_md5($_->{password}, salt(8)) : crypt($_->{password}, salt(2)); + $_->{pw} = any::crypt($_->{password}, $isMD5); $_->{shell} ||= "/bin/bash"; } |