From 943fa08473221ab750a2596e0b4629603d85bd3e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 30 Sep 2004 07:17:03 +0000
Subject: only allow Active Directory for the corporate product

---
 perl-install/authentication.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/authentication.pm')

diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index 9586ee30c..2a647ce37 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -3,8 +3,10 @@ package authentication; # $Id$
 use common;
 use any;
 
-sub kinds() { 
-    ('local', 'LDAP', 'NIS', 'winbind', 'AD', 'SMBKRB');
+sub kinds { 
+    my ($meta_class) = @_;
+    my $allow_AD = $meta_class =~ /corporate/;
+    ('local', 'LDAP', 'NIS', 'winbind', if_($allow_AD, 'AD', 'SMBKRB'));
 }
 
 sub kind2name {
-- 
cgit v1.2.1