diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-20 11:06:39 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-20 11:06:39 +0000 |
| commit | c556e6471601c7db821416568c495c6ff199f7d9 (patch) | |
| tree | 9e8050a236689fba357d1da74d4375bca86e8f66 /perl-install | |
| parent | 3325411d9d34ba4e38dc8e03d31fc19f0913a205 (diff) | |
| download | drakx-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.pm | 11 |
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'; |