summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2004-01-29 16:04:29 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2004-01-29 16:04:29 +0000
commitaf28ee1764834ec1d880449cf1741cdeb16559cf (patch)
tree5e64ed708cbef3719be8477f235ec665e388ef4a /perl-install/standalone/drakconnect
parent9268a572b5d3a25dd3a34b4ed46d9ba318123fa3 (diff)
downloaddrakx-af28ee1764834ec1d880449cf1741cdeb16559cf.tar
drakx-af28ee1764834ec1d880449cf1741cdeb16559cf.tar.gz
drakx-af28ee1764834ec1d880449cf1741cdeb16559cf.tar.bz2
drakx-af28ee1764834ec1d880449cf1741cdeb16559cf.tar.xz
drakx-af28ee1764834ec1d880449cf1741cdeb16559cf.zip
- use nice interfaces name (e.g. ethernet0 rather than eth0)
- fix adsl loading and saving calls
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 4527df5f5..772be28d8 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -194,14 +194,13 @@ sub manage {
my $apply_button;
my $config = { 'ethernet0' => { kind => 'eth0' },
- 'adsl' => { kind => 'speedtouch', protocol => 'pppoa' },
}; # testing
$window->{rwindow}->add(gtkpack_(Gtk2::VBox->new,
0, $interface_menu = gtksignal_connect(Gtk2::OptionMenu->new,
changed => sub {
$selected = $interface_menu->get_text;
- $notebook->set_current_page($gui->{$selected}{index});
+ $notebook->set_current_page($gui->{$config->{$selected}{kind}}{index});
},
),
1, $notebook,
@@ -232,7 +231,7 @@ sub manage {
$notebook->append_page(gtkpack(Gtk2::VBox->new(0,0), $gui->{$interface}{notebook}));
} (sort keys %$config);
- $interface_menu->set_popdown_strings(map { $config->{$_}{kind} } sort keys %$config);
+ $interface_menu->set_popdown_strings(sort keys %$config);
$apply_button->set_sensitive(0);
$window->{rwindow}->show_all;
@@ -245,8 +244,8 @@ sub build_tree {
if ($interface eq 'adsl') {
$intf->{pages} = { N("TCP/IP") => 1, N("Account") => 1, N("Options") => 1, N("Informations") => 1 };
- network::adsl::adsl_probe_info($intf, $netc, $interface_kind, $protocol);
- $intf->{save} = sub { network::adsl::adsl_conf_backend($intf, $netc, $interface_kind) };
+ network::adsl::adsl_probe_info($intf, $netc, $protocol, $interface_kind);
+ $intf->{save} = sub { network::adsl::adsl_conf_backend($intf, $netc, $interface_kind, $protocol) };
}
elsif ($interface eq 'modem') {
$intf->{pages} = { N("TCP/IP") => 1, N("Account") => 1, N("Options") => 1 };