standalone « perl-install - drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

summary refs log tree commit diff stats

path: root/perl-install/standalone

Mode	Name	Size
-rwxr-xr-x	XFdrake	5332	log stats plain
-rwxr-xr-x	adduserdrake	1118	log stats plain
-rwxr-xr-x	diskdrake	3583	log stats plain
-rwxr-xr-x	drakTermServ	41429	log stats plain
-rwxr-xr-x	drakautoinst	12245	log stats plain
-rwxr-xr-x	drakbackup	160905	log stats plain
-rwxr-xr-x	drakboot	1484	log stats plain
-rwxr-xr-x	drakbug	6899	log stats plain
-rwxr-xr-x	drakbug_report	255	log stats plain
-rwxr-xr-x	drakconnect	27321	log stats plain
-rwxr-xr-x	drakfloppy	14734	log stats plain
-rwxr-xr-x	drakfont	43345	log stats plain
-rwxr-xr-x	drakgw	18332	log stats plain
-rwxr-xr-x	drakproxy	1182	log stats plain
-rwxr-xr-x	draksound	1897	log stats plain
-rwxr-xr-x	draksplash	19237	log stats plain
-rwxr-xr-x	drakxservices	443	log stats plain
-rwxr-xr-x	drakxtv	6128	log stats plain
-rwxr-xr-x	fileshareset	10022	log stats plain
-rwxr-xr-x	harddrake2	257	log stats plain
d---------	icons	2086	log stats plain
d---------	interactive_http	458	log stats plain
-rwxr-xr-x	keyboarddrake	1626	log stats plain
-rwxr-xr-x	livedrake	1385	log stats plain
-rw-r--r--	localedrake	991	log stats plain
-rwxr-xr-x	logdrake	17836	log stats plain
-rwxr-xr-x	lsnetdrake	628	log stats plain
-rwxr-xr-x	mousedrake	2373	log stats plain
-rwxr-xr-x	net_monitor	20614	log stats plain
-rwxr-xr-x	printerdrake	2396	log stats plain
-rwxr-xr-x	scannerdrake	5140	log stats plain
-rwxr-xr-x	service_harddrake	2404	log stats plain
-rw-r--r--	service_harddrake.sh	1231	log stats plain
-rwxr-xr-x	tinyfirewall	1031	log stats plain

="hl opt">); die qq(inexistant "$next" wizard step) if is_empty_hash_ref($page); # FIXME or the displaying fails my $data = defined $page->{data} ? (ref($page->{data}) eq 'CODE' ? $page->{data}->() : $page->{data}) : []; my $data2; foreach my $d (@$data) { $d->{val} = ${$d->{val_ref}} if $d->{val_ref}; $d->{list} = $d->{list_ref} if $d->{list_ref}; #$d->{val} = ref($d->{val}) eq 'CODE' ? $d->{val}->() : $d->{val}; if ($d->{boolean_list}) { my $i; foreach (@{$d->{boolean_list}}) { push @$data2, { text => $_, type => 'bool', val => \${$d->{val}}->[$i], disabled => $d->{disabled} }; $i++; } } else { push @$data2, $d; } } my $name = ref($page->{name}) ? $page->{name}->() : $page->{name}; my %yesno = (yes => N("Yes"), no => N("No")); my $yes = ref($page->{default}) eq 'CODE' ? $page->{default}->() : $page->{default}; $data2 = [ { val => \$yes, type => 'list', list => [ keys %yesno ], format => sub { $yesno{$_[0]} }, gtk => { use_boxradio => 1 } } ] if $page->{type} eq "yesorno"; my $a; if (ref $data2 eq 'ARRAY' && @$data2) { $a = $in->ask_from_({ title => $o->{name}, messages => $name, callbacks => { map { $_ => $page->{$_} || $default_callback{$_} } qw(focus_out complete) }, if_($page->{interactive_help_id}, interactive_help_id => $page->{interactive_help_id}), }, $data2); } else { $a = $in->ask_okcancel($o->{name}, $name, $yes || 'ok'); } # interactive->ask_yesorno does not support stepping forward or backward: $a = $yes if $a && $page->{type} eq "yesorno"; if ($a) { # step forward: push @steps, $next if !$page->{ignore} && $steps[-1] ne $next; my $current = $next; $next = defined $page->{post} ? $page->{post}($page->{type} eq "yesorno" ? $yes eq 'yes' : $a) : 0; return if $page->{end}; if (!$next) { if (!defined $o->{pages}{$next}) { $next = $page->{next}; } else { die qq(the "$next" page (from previous wizard step) is undefined) if !$next; } } die qq(Step "$current": inexistant "$next" page) if !exists $o->{pages}{$next}; } else { # step back: $next = pop @steps; } $page = $o->{pages}{$next}; } } sub safe_process { my ($w, $wiz, $in) = @_; eval { $w->process($wiz, $in) }; my $err = $@; if ($err =~ /wizcancel/) { $in->exit(0); } else { die $err if $err; } } 1;