diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-18 01:52:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-18 01:52:09 +0000 |
| commit | 2d6f40c73b6ec610c43f7073bd2e12b0790387e2 (patch) | |
| tree | 531cc78c0d37a19e67af10483cc6014ab9bb8fc8 /perl-install/install_any.pm | |
| parent | 38dea3d2412ecdbe2988f58b7ce7a905aff5fb10 (diff) | |
| download | drakx-backup-do-not-use-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar drakx-backup-do-not-use-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar.gz drakx-backup-do-not-use-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar.bz2 drakx-backup-do-not-use-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar.xz drakx-backup-do-not-use-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.zip | |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 2e8effdf4..9086ac435 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -260,7 +260,7 @@ sub write_ldsoconf { } sub setAuthentication() { - my ($shadow, $md5, $nis, $nis_server) = @{$::o->{authentification} || {}}{qw(shadow md5 NIS NIS_server)}; + my ($shadow, $md5, $nis, $nis_server) = @{$::o->{authentication} || {}}{qw(shadow md5 NIS NIS_server)}; my $p = $::o->{prefix}; enableMD5Shadow($p, $shadow, $md5); enableShadow() if $shadow; @@ -309,7 +309,7 @@ sub enableMD5Shadow($$$) { sub crypt($) { my ($password) = @_; - $::o->{authentification}{md5} ? + $::o->{authentication}{md5} ? c::crypt_md5($password, salt(8)) : crypt ($password, salt(2)); } @@ -388,7 +388,7 @@ sub g_auto_install(;$) { my @fields = qw(mntpoint type size); $o->{partitions} = [ map { my %l; @l{@fields} = @$_{@fields}; \%l } grep { $_->{mntpoint} } @{$::o->{fstab}} ]; - exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentification printer mouse netc timezone superuser intf keyboard mkbootdisk base users installClass partitioning isUpgrade X manualFstab); #- TODO modules bootloader + exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse netc timezone superuser intf keyboard mkbootdisk base users installClass partitioning isUpgrade X manualFstab); #- TODO modules bootloader #- local $o->{partitioning}{clearall} = 1; |