From 1408f276b60b9a94c7c993c79cd0236057ec91da Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 24 Feb 2004 18:09:19 +0000 Subject: (adsl_conf_backend) alter both /etc/analog/adiusbadsl.conf and /etc/eagle-usb/eagle-usb.conf too when configuring sagemXXX --- perl-install/network/adsl.pm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 333d92003..09d295840 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -262,11 +262,13 @@ INTERFACE=`$modems{$adsl_device}{get_intf}` if ($adsl_device eq 'sagem') { my %l = map { $_ => sprintf("%08s", $netc->{$_}) } qw(vci vpi Encapsulation); # set vpi and vci parameters for sagem - substInFile { - s/VCI=.*\n/VCI=$l{vci}\n/; - s/VPI=.*\n/VPI=$l{vpi}\n/; - s/Encapsulation=.*\n/Encapsulation=$l{Encapsulation}\n/; - } "$::prefix/etc/analog/adiusbadsl.conf"; + foreach my $cfg_file (qw(/etc/analog/adiusbadsl.conf /etc/eagle-usb/eagle-usb.conf)) { + substInFile { + s/VCI=.*\n/VCI=$l{vci}\n/; + s/VPI=.*\n/VPI=$l{vpi}\n/; + s/Encapsulation=.*\n/Encapsulation=$l{Encapsulation}\n/; + } "$::prefix$cfg_file"; + } } elsif ($adsl_device eq 'speedtouch') { # speedtouch really is used only with pppoa, let its own script handle firmware upload and the like: set_cnx_script($netc, 'adsl', -- cgit v1.2.1