summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
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/standalone
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/standalone')
-rwxr-xr-xperl-install/standalone/drakauth3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/drakauth b/perl-install/standalone/drakauth
index 8fdb40896..1d89e08d7 100755
--- a/perl-install/standalone/drakauth
+++ b/perl-install/standalone/drakauth
@@ -19,11 +19,12 @@ my $in = 'interactive'->vnew('su');
my $authentication = {}; # TODO
my $kind = authentication::to_kind($authentication);
+my $meta_class = { getVarsFromSh("/etc/sysconfig/system") }->{META_CLASS};
main:
$in->ask_from(N("Authentication"), authentication::kind2description(),
[
- { label => N("Authentication"), val => \$kind, type => 'list' , list => [ authentication::kinds() ], format => \&authentication::kind2name },
+ { label => N("Authentication"), val => \$kind, type => 'list' , list => [ authentication::kinds($meta_class) ], format => \&authentication::kind2name },
]) or $in->exit;
authentication::ask_parameters($in, $netc, $authentication, $kind) or goto main;