From 78551c18c6dd15f7ca6be86c861e9d8fda087131 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Tue, 3 Feb 2004 16:35:16 +0000 Subject: - fix adsl_conf_backend call - store and retreive network interfaces via $config file --- perl-install/standalone/drakconnect | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone/drakconnect') diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 86d0fbe84..686f4c909 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -193,8 +193,7 @@ sub manage { $notebook->set_property('show-border', 0); my $apply_button; - my $config = { 'ethernet0' => { kind => 'eth0' }, - }; # testing + my $config = -f '/etc/sysconfig/drakconnect' ? Storable::retrieve('/etc/sysconfig/drakconnect') : {}; #- duplicated from network::ethernet, to be factorized @all_cards = network::ethernet::get_eth_cards(); @@ -254,7 +253,7 @@ 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, $protocol, $interface_kind); - $intf->{save} = sub { network::adsl::adsl_conf_backend($intf, $netc, $interface_kind, $protocol) }; + $intf->{save} = sub { network::adsl::adsl_conf_backend($in, $intf, $netc, $interface_kind, $protocol) }; } elsif ($interface eq 'modem') { $intf->{pages} = { N("TCP/IP") => 1, N("Account") => 1, N("Options") => 1 }; -- cgit v1.2.1