diff options
Diffstat (limited to 'perl-install/standalone/drakauth')
| -rwxr-xr-x | perl-install/standalone/drakauth | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/standalone/drakauth b/perl-install/standalone/drakauth index db7418d51..639d53adb 100755 --- a/perl-install/standalone/drakauth +++ b/perl-install/standalone/drakauth @@ -21,16 +21,17 @@ 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(@kinds), +$in->ask_from(N("Authentication"), undef, [ - { label => N("Authentication"), val => \$kind, type => 'list' , list => \@kinds, format => \&authentication::kind2name }, + { label => N("Authentication") }, + { val => \$kind, type => 'list' , list => \@kinds, format => \&authentication::kind2description_raw }, ]) or $in->exit; authentication::ask_parameters($in, $net, $authentication, $kind) or goto main; eval { - authentication::set($in, $net, $authentication); - network::network::write_conf($net); + authentication::set($in, $net, $authentication) or goto main; + network::network::write_network_conf($net); #- for NISDOMAIN }; if (my $err = $@) { $in->ask_warn(N("Error"), formatError($err)); |