#!/usr/bin/perl use lib qw(/usr/lib/libDrakX); use standalone; #- warning, standalone must be loaded very first, for 'explanations' use common; use interactive; use authentication; use network::network; my $net = {}; network::network::read_net_conf($net); my $in = 'interactive'->vnew('su'); my $authentication = authentication::get(); 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"), undef, [ { 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) or goto main; network::network::write_network_conf($net); #- for NISDOMAIN }; if (my $err = $@) { $in->ask_warn(N("Error"), formatError($err)); goto main; } $in->exit; 2008.1'>distro/mdv2008.1 Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-09-10 11:47:10 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-09-10 11:47:10 +0000
commit8273f5c4c66a86d6da011915fa55fe4d201169a7 (patch)
tree57ad38e8922dcfd4a5ebf2fce84dfa07228a5db6 /perl-install/standalone
parent3d9e279f9afd33decdb6430d1c1042e784299343 (diff)
downloaddrakx-8273f5c4c66a86d6da011915fa55fe4d201169a7.tar
drakx-8273f5c4c66a86d6da011915fa55fe4d201169a7.tar.gz
drakx-8273f5c4c66a86d6da011915fa55fe4d201169a7.tar.bz2
drakx-8273f5c4c66a86d6da011915fa55fe4d201169a7.tar.xz
drakx-8273f5c4c66a86d6da011915fa55fe4d201169a7.zip
add higher level explanations