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/network/isdn.pm

	Commit message (Expand)	Author	Age	Files	Lines
*	corrected pkgs use -> require	damien	2001-08-07	1	-1/+1
*	debugging, profile coding, isdn 128 debugging	damien	2001-08-06	1	-5/+9
*	debugging, 128Kb/s ISDN	damien	2001-08-03	1	-5/+8
*	typo	damien	2001-08-01	1	-2/+4
*	added de-installation before installateion	damien	2001-08-01	1	-3/+7
*	corrected ask_connect_now	damien	2001-07-30	1	-1/+0
*	added internet connection selection in case of multiple configurations	damien	2001-07-30	1	-18/+14
*	added firmware loading/configuration	damien	2001-07-26	1	-5/+9
*	- globals is now MDK::Common::Globals	Pascal Rigaux	2001-07-24	1	-1/+1
*	move to MDK::Common, bool->to_bool	Pascal Rigaux	2001-07-24	1	-1/+1
*	isdn now works with isdn-light. Only 64kb/s and still some debuf stuff to be ...	damien	2001-07-23	1	-33/+11
*	updated isdn config, moved isdn_data from netconnect_const to isdn_const	damien	2001-07-22	1	-7/+14
*	big work on isdn. Not finished	damien	2001-07-22	1	-8/+21
*	modularized. It compiles, runs, and works for some stuff.	damien	2001-07-04	1	-5/+5
*	updated CVS: ----------------------------------------------------------------...	damien	2001-07-04	1	-1/+1
*	uses the fantastic global module.	damien	2001-07-04	1	-0/+1
*	network subsystem now compiles. Enjoy	damien	2001-07-03	1	-15/+7
*	new network sources reorganization	damien	2001-07-02	1	-0/+268

n> ($i, $n) = @_; $i =~ /^\s*\d+\s*$/ && 1 <= $i && $i <= $n; } sub good_choice { my ($def_s, $max) = @_; my $i; do { defined $i and print N("Bad choice, try again\n"); print N("Your choice? (default %s) ", $def_s); $i = readln(); } until !$i || check_it($i, $max); $i; } sub ask_fromW { my ($_o, $common, $l, $_l2) = @_; add2hash_($common, { ok => N("Ok"), cancel => N("Cancel") }) if !exists $common->{ok}; ask_fromW_begin: my $already_entries = 0; my $predo_widget = sub { my ($e) = @_; $e->{type} = 'list' if $e->{type} =~ /(icon|tree)list/; #- combo does not exist, fallback to a sensible default $e->{type} = $e->{not_edit} ? 'list' : 'entry' if $e->{type} eq 'combo'; if ($e->{type} eq 'entry') { my $t = "\t$e->{label} $e->{text}\n"; if ($already_entries) { length($already_entries) > 1 and print N("Entries you'll have to fill:\n%s", $already_entries); $already_entries = 1; print $t; } else { $already_entries = $t; } } }; my @labels; my $format_label = sub { my ($e) = @_; return sprintf("`%s' %s %s\n", ${$e->{val}}, $e->{label}, $e->{text}) }; my $do_widget = sub { my ($e, $ind) = @_; if ($e->{type} eq 'bool') { print "$e->{text} $e->{label}\n"; print N("Your choice? (0/1, default `%s') ", ${$e->{val}} || '0'); my $i = readln(); if ($i) { to_bool($i) != to_bool(${$e->{val}}) && $e->{changed} and $e->{changed}->(); ${$e->{val}} = $i; } } elsif ($e->{type} =~ /list/) { $e->{text} || $e->{label} and print "=> $e->{label} $e->{text}\n"; my $n = 0; my $size = 0; foreach (@{$e->{list}}) { $n++; my $t = "$n: " . may_apply($e->{format}, $_) . "\t"; if ($size + length($t) >= 80) { print "\n"; $size = 0; } print $t; $size += length($t); } print "\n"; my $i = good_choice(may_apply($e->{format}, ${$e->{val}}), $n); print "Setting to <", $i ? ${$e->{list}}[$i-1] : ${$e->{val}}, ">\n"; if ($i) { ${$e->{val}} = ${$e->{list}}[$i-1]; $e->{changed} and $e->{changed}->(); } } elsif ($e->{type} eq 'button') { print N("Button `%s': %s", $e->{label}, may_apply($e->{format}, ${$e->{val}})), " $e->{text}\n"; print N("Do you want to click on this button?"); my $i = readln(); if ($i && $i !~ /^n/i) { $e->{clicked_may_quit}(); $e->{changed} and $e->{changed}->(); } } elsif ($e->{type} eq 'label') { my $t = $format_label->($e); push @labels, $t; print $t; } elsif ($e->{type} eq 'entry') { print "$e->{label} $e->{text}\n"; print N("Your choice? (default `%s'%s) ", ${$e->{val}}, ${$e->{val}} ? N(" enter `void' for void entry") : ''); my $i = readln(); ${$e->{val}} = $i || ${$e->{val}}; ${$e->{val}} = '' if ${$e->{val}} eq 'void'; print "Setting to <", ${$e->{val}}, ">\n"; $i && $e->{changed} and $e->{changed}->(); } else { printf "UNSUPPORTED WIDGET TYPE (type <%s> label <%s> text <%s> val <%s>\n", $e->{type}, $e->{label}, $e->{text}, ${$e->{val}}; } }; print "* "; $common->{title} and print "$common->{title}\n"; print(map { "$_\n" } @{$common->{messages}}); $predo_widget->($_) foreach @$l; if (listlength(@$l) > 30) { my $ll = listlength(@$l); print N("=> There are many things to choose from (%s).\n", $ll); ask_fromW_handle_verylonglist: print N("Please choose the first number of the 10-range you wish to edit, or just hit Enter to proceed. Your choice? "); my $i = readln(); if (check_it($i, $ll)) { each_index { $do_widget->($_, $::i) } grep_index { $::i >= $i-1 && $::i < $i+9 } @$l; goto ask_fromW_handle_verylonglist; } } else { each_index { $do_widget->($_, $::i) } @$l; } my $lab; each_index { $labels[$::i] && (($lab = $format_label->($_)) ne $labels[$::i]) and print N("=> Notice, a label changed:\n%s", $lab) } grep { $_->{type} eq 'label' } @$l; my $i; if (listlength(@$l) != 1 || $common->{ok} ne N("Ok") || $common->{cancel} ne N("Cancel")) { print "[1] ", $common->{ok} || N("Ok"); $common->{cancel} and print " [2] $common->{cancel}"; @$l and print " [9] ", N("Re-submit"); print "\n"; do { defined $i and print N("Bad choice, try again\n"); print N("Your choice? (default %s) ", $common->{focus_cancel} ? $common->{cancel} : $common->{ok}); $i = readln() || ($common->{focus_cancel} ? "2" : "1"); } until check_it($i, 9); $i == 9 and goto ask_fromW_begin; } else { $i = 1; } if ($i == 1 && !$common->{validate}()) { goto ask_fromW_begin; } return $i != 2; } sub wait_messageW { my ($_o, $_title, $message, $message_modifiable) = @_; print join "\n", $message, $message_modifiable; } sub wait_message_nextW { my $m = join "\n", $_[1]; print "\r$m", ' ' x (60 - length $m); } sub wait_message_endW { print "\nDone\n" } 1;