From c8b93ffe04ab815ad15e8434ea0b5bf3477ddc46 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 29 Nov 2004 19:32:18 +0000
Subject: create %kind2pam_kind

---
 perl-install/authentication.pm | 21 ++++++++++++++-------
 1 file 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;
-- 
cgit v1.2.1