summaryrefslogtreecommitdiffstats
path: root/perl-install/authentication.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-09-05 09:25:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-09-05 09:25:31 +0000
commit32242902ed1f0b3ee4abce49da564259628992bc (patch)
tree09c32825c448688f160c1d5d9b2d73a37ac0e4aa /perl-install/authentication.pm
parent39090f72ad4c4eb25f99e457ebbb78a765d8acc1 (diff)
downloaddrakx-32242902ed1f0b3ee4abce49da564259628992bc.tar
drakx-32242902ed1f0b3ee4abce49da564259628992bc.tar.gz
drakx-32242902ed1f0b3ee4abce49da564259628992bc.tar.bz2
drakx-32242902ed1f0b3ee4abce49da564259628992bc.tar.xz
drakx-32242902ed1f0b3ee4abce49da564259628992bc.zip
perl_checker fixes
Diffstat (limited to 'perl-install/authentication.pm')
-rw-r--r--perl-install/authentication.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index 53fd50e81..9d4f66694 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -143,7 +143,7 @@ The command 'wbinfo -t' will test whether your authentication secrets are good."
$authentication->{AD_domain} ||= $net->{resolv}{DOMAINNAME} if $kind eq 'SMBKRB';
$authentication->{AD_users_idmap} ||= 'ou=idmap,' . domain_to_ldap_domain($authentication->{AD_domain}) if $kind eq 'SMBKRB';
$authentication->{WINDOMAIN} ||= $net->{resolv}{DOMAINNAME};
- my $anonymous;
+
$in->ask_from('',
$kind eq 'SMBKRB' ? N("Authentication Active Directory") : N("Authentication Windows Domain"),
[ if_($kind eq 'SMBKRB',
@@ -225,7 +225,7 @@ sub set {
if ($kind eq 'local') {
} elsif ($kind eq 'SmartCard') {
- $in->do_pkgs->ensure_are_installed([ 'castella-pam'], 1) or return;
+ $in->do_pkgs->ensure_are_installed([ 'castella-pam' ], 1) or return;
} elsif ($kind eq 'LDAP') {
$in->do_pkgs->ensure_are_installed([ qw(openldap-clients nss_ldap pam_ldap autofs) ]) or return;