diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-29 19:32:18 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-29 19:32:18 +0000 |
| commit | c8b93ffe04ab815ad15e8434ea0b5bf3477ddc46 (patch) | |
| tree | 46b90bf8de09f92842f56c3b9d7ba9f027b34bf1 | |
| parent | 6e3d5e0454304f33d86f5db19dedcd45f6e9d0ef (diff) | |
| download | drakx-backup-do-not-use-c8b93ffe04ab815ad15e8434ea0b5bf3477ddc46.tar drakx-backup-do-not-use-c8b93ffe04ab815ad15e8434ea0b5bf3477ddc46.tar.gz drakx-backup-do-not-use-c8b93ffe04ab815ad15e8434ea0b5bf3477ddc46.tar.bz2 drakx-backup-do-not-use-c8b93ffe04ab815ad15e8434ea0b5bf3477ddc46.tar.xz drakx-backup-do-not-use-c8b93ffe04ab815ad15e8434ea0b5bf3477ddc46.zip | |
create %kind2pam_kind
| -rw-r--r-- | perl-install/authentication.pm | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index dfe1ed6d9..2eb032f65 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -22,6 +22,16 @@ sub kind2name { SMBKRB => N("Active Directory with Winbind") }}{$kind}; } +my %kind2pam_kind = ( + local => [], + SmartCard => ['castella'], + LDAP => ['ldap'], + NIS => [], + AD => ['krb5'], + winbind => ['winbind'], + SMBKRB => ['winbind'], +); + sub kind2description() { join('', map { @@ -145,13 +155,14 @@ sub set { log::l("authentication::set $kind"); - sshd_config_UsePAM($kind ne 'local'); + my $pam_modules = $kind2pam_kind{$kind} or log::l("kind2pam_kind doesn't know $kind"); + $pam_modules ||= []; + sshd_config_UsePAM(@$pam_modules > 0); + set_pam_authentication(@$pam_modules); if ($kind eq 'local') { - set_pam_authentication(); } elsif ($kind eq 'SmartCard') { $in->do_pkgs->install('castella-pam'); - set_pam_authentication('castella'); } elsif ($kind eq 'LDAP') { $in->do_pkgs->install(qw(openldap-clients nss_ldap pam_ldap autofs)); @@ -161,7 +172,6 @@ sub set { } or log::l("no ldap domain found on server $authentication->{LDAP_server}"), return; set_nsswitch_priority('ldap'); - set_pam_authentication('ldap'); update_ldap_conf( host => $authentication->{LDAP_server}, @@ -175,7 +185,6 @@ sub set { my $port = "389"; set_nsswitch_priority('ldap'); - set_pam_authentication('krb5'); my $ssl = { anonymous => 'off', @@ -260,7 +269,6 @@ sub set { $in->do_pkgs->install('samba-winbind'); set_nsswitch_priority('winbind'); - set_pam_authentication('winbind'); require network::smb; network::smb::write_smb_conf($domain); @@ -282,7 +290,6 @@ sub set { configure_krb5_for_AD($authentication); $in->do_pkgs->install('samba-winbind', 'pam_krb5', 'samba-server', 'samba-client'); set_nsswitch_priority('winbind'); - set_pam_authentication('winbind'); require network::smb; |