diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-08 15:49:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-08 15:49:37 +0000 |
| commit | 833ff65329c6812f283e112f3ef5c60232b50172 (patch) | |
| tree | d7eda24de53827fe4159c21b40699373746ad372 /perl-install/any.pm | |
| parent | eed856e1569dbc37ff2d80dc31cbc7d1762d0fd2 (diff) | |
| download | drakx-833ff65329c6812f283e112f3ef5c60232b50172.tar drakx-833ff65329c6812f283e112f3ef5c60232b50172.tar.gz drakx-833ff65329c6812f283e112f3ef5c60232b50172.tar.bz2 drakx-833ff65329c6812f283e112f3ef5c60232b50172.tar.xz drakx-833ff65329c6812f283e112f3ef5c60232b50172.zip | |
- write_passwd_user: ensure {pw} is set (at least '')
- cleanup dead code
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 7ae914036..7ef9effba 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -74,16 +74,6 @@ sub enableShadow { run_program::rooted($prefix, "pwconv") or log::l("pwconv failed"); run_program::rooted($prefix, "grpconv") or log::l("grpconv failed"); } -sub enableMD5Shadow { #- NO MORE USED - my ($prefix, $shadow, $md5) = @_; - substInFile { - if (/^password.*pam_pwdb.so/) { - s/\s*shadow//; s/\s*md5//; - s/$/ shadow/ if $shadow; - s/$/ md5/ if $md5; - } - } grep { -r $_ } map { "$prefix/etc/pam.d/$_" } qw(login rlogin passwd); -} sub grub_installed { my ($in) = @_; @@ -868,7 +858,7 @@ when your installation is complete and you restart your system.")), sub write_passwd_user { my ($prefix, $u, $isMD5) = @_; - $u->{pw} = &crypt($u->{password}, $isMD5) if $u->{password}; + $u->{pw} = $u->{password} ? &crypt($u->{password}, $isMD5) : $u->{pw} || ''; $u->{shell} ||= '/bin/bash'; substInFile { |