From 2653652a0e4a6a599815a844903ad0aabe354be6 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 29 Jan 2004 22:43:33 +0000 Subject: convert some write_cnx_script() callers into set_cnx_script() ones --- perl-install/network/adsl.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/network/adsl.pm') diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index d9695f28c..b1c5fe82a 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -218,7 +218,7 @@ user "$adsl->{login}" /usr/bin/killall pppoe pppd\n), }, ); - write_cnx_script($netc, "adsl", join("\n", + set_cnx_script($netc, "adsl", join("\n", "/sbin/route del default", $modems{$adsl_device}{start}, # /usr/sbin/pppd call adsl @@ -230,7 +230,7 @@ user "$adsl->{login}" ); } elsif ($adsl_type eq 'dhcp') { - write_cnx_script($netc, 'adsl', + set_cnx_script($netc, 'adsl', qq( /sbin/route del default #$modems{$adsl_device}{start} @@ -244,7 +244,7 @@ INTERFACE=`$modems{$adsl_device}{get_intf}` $netc->{adsltype}); } elsif ($adsl_type eq 'static') { # TODO: handle manually configured (new feature) - write_cnx_script($netc, 'adsl', + set_cnx_script($netc, 'adsl', qq( /sbin/route del default #$modems{$adsl_device}{start} @@ -269,7 +269,7 @@ INTERFACE=`$modems{$adsl_device}{get_intf}` } "$::prefix/etc/analog/adiusbadsl.conf"; } elsif ($adsl_device eq 'speedtouch') { # speedtouch really is used only with pppoa, let its own script handle firmware upload and the like: - write_cnx_script($netc, 'adsl', + set_cnx_script($netc, 'adsl', qq(/sbin/route del default /usr/share/speedtouch/speedtouch.sh start\n), "/usr/share/speedtouch/speedtouch.sh stop\n", -- cgit v1.2.1