summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-20 11:06:39 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-20 11:06:39 +0000
commitc556e6471601c7db821416568c495c6ff199f7d9 (patch)
tree9e8050a236689fba357d1da74d4375bca86e8f66 /perl-install
parent3325411d9d34ba4e38dc8e03d31fc19f0913a205 (diff)
downloaddrakx-backup-do-not-use-c556e6471601c7db821416568c495c6ff199f7d9.tar
drakx-backup-do-not-use-c556e6471601c7db821416568c495c6ff199f7d9.tar.gz
drakx-backup-do-not-use-c556e6471601c7db821416568c495c6ff199f7d9.tar.bz2
drakx-backup-do-not-use-c556e6471601c7db821416568c495c6ff199f7d9.tar.xz
drakx-backup-do-not-use-c556e6471601c7db821416568c495c6ff199f7d9.zip
pass dynamically build data into interactive layer when configuring modems
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm11
1 files changed, 7 insertions, 4 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index cfa64d609..8bf5c4b8e 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -409,9 +409,10 @@ Take a look at http://www.linmodems.org"),
{
name => N("Please choose which serial port your modem is connected to."),
interactive_help_id => 'selectSerialPort',
- data => [ { var => \$modem->{device}, format => \&mouse::serial_port2text, type => "list",
- list => [ grep { $_ ne $o_mouse->{device} } (if_(-e '/dev/modem', '/dev/modem'), mouse::serial_ports()) ] } ],
-
+ data => sub {
+ [ { var => \$modem->{device}, format => \&mouse::serial_port2text, type => "list",
+ list => [ grep { $_ ne $o_mouse->{device} } (if_(-e '/dev/modem', '/dev/modem'), mouse::serial_ports()) ] } ],
+ },
next => "ppp_choose",
},
@@ -445,7 +446,8 @@ killall pppd
#my @cnx_list = map { $_->{server} } @$secret;
},
name => N("Dialup options"),
- data => [
+ data => sub {
+ [
{ label => N("Connection name"), val => \$modem->{connection} },
{ label => N("Phone number"), val => \$modem->{phone} },
{ label => N("Login ID"), val => \$modem->{login} },
@@ -455,6 +457,7 @@ killall pppd
{ label => N("First DNS Server (optional)"), val => \$modem->{dns1} },
{ label => N("Second DNS Server (optional)"), val => \$modem->{dns2} },
],
+ },
post => sub {
network::modem::ppp_configure($in, $modem);
$netc->{$_} = 'ppp0' foreach 'NET_DEVICE', 'NET_INTERFACE';