summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakauth
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-31 14:40:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-31 14:40:48 +0000
commitadf16ea75a2bd9fd1742f397eb23bed89255623a (patch)
tree58a0a711541e151fe263dac7471fdf3d4653a43b /perl-install/standalone/drakauth
parentd3c03a98895e90ec0a6dacb0b3bfe188cb3676c1 (diff)
downloaddrakx-backup-do-not-use-adf16ea75a2bd9fd1742f397eb23bed89255623a.tar
drakx-backup-do-not-use-adf16ea75a2bd9fd1742f397eb23bed89255623a.tar.gz
drakx-backup-do-not-use-adf16ea75a2bd9fd1742f397eb23bed89255623a.tar.bz2
drakx-backup-do-not-use-adf16ea75a2bd9fd1742f397eb23bed89255623a.tar.xz
drakx-backup-do-not-use-adf16ea75a2bd9fd1742f397eb23bed89255623a.zip
don't display description for non proposed authentication kinds
Diffstat (limited to 'perl-install/standalone/drakauth')
-rwxr-xr-xperl-install/standalone/drakauth5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/drakauth b/perl-install/standalone/drakauth
index 276ecd287..6a43a2f87 100755
--- a/perl-install/standalone/drakauth
+++ b/perl-install/standalone/drakauth
@@ -18,11 +18,12 @@ my $authentication = {}; # TODO
my $kind = authentication::to_kind($authentication);
my $meta_class = { getVarsFromSh("/etc/sysconfig/system") }->{META_CLASS};
+my @kinds = authentication::kinds($in->do_pkgs, $meta_class);
main:
-$in->ask_from(N("Authentication"), authentication::kind2description(),
+$in->ask_from(N("Authentication"), authentication::kind2description(@kinds),
[
- { label => N("Authentication"), val => \$kind, type => 'list' , list => [ authentication::kinds($in->do_pkgs, $meta_class) ], format => \&authentication::kind2name },
+ { label => N("Authentication"), val => \$kind, type => 'list' , list => \@kinds, format => \&authentication::kind2name },
]) or $in->exit;
authentication::ask_parameters($in, $netc, $authentication, $kind) or goto main;