summaryrefslogtreecommitdiffstats
path: root/perl-install/authentication.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-09-30 07:17:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-09-30 07:17:03 +0000
commit943fa08473221ab750a2596e0b4629603d85bd3e (patch)
tree51c40afe75b2f7ebebd14c8539cfc09723af9710 /perl-install/authentication.pm
parentb9e95a3303535429105cb5e14e3a5df7dd738e77 (diff)
downloaddrakx-943fa08473221ab750a2596e0b4629603d85bd3e.tar
drakx-943fa08473221ab750a2596e0b4629603d85bd3e.tar.gz
drakx-943fa08473221ab750a2596e0b4629603d85bd3e.tar.bz2
drakx-943fa08473221ab750a2596e0b4629603d85bd3e.tar.xz
drakx-943fa08473221ab750a2596e0b4629603d85bd3e.zip
only allow Active Directory for the corporate product
Diffstat (limited to 'perl-install/authentication.pm')
-rw-r--r--perl-install/authentication.pm6
1 files changed, 4 insertions, 2 deletions
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 {