From 46250798595733082831db5785d03efd61bfa4c7 Mon Sep 17 00:00:00 2001 From: damien Date: Mon, 21 Jan 2002 12:42:51 +0000 Subject: corrected network down --- perl-install/install_steps.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index ab82c6a84..03ffa01b3 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -968,15 +968,15 @@ sub upNetwork { #------------------------------------------------------------------------------ sub downNetwork { - my ($o, $pppOnly) = @_; + my ($o, $costlyOnly) = @_; modules::write_conf($o->{prefix}); if (hasNetwork($o)) { - if (!$pppOnly && $o->{netc}{type} =~ /adsl|lan|cable/) { + if (!$costlyOnly) { require network::netconnect; network::netconnect::stop_internet($o); return 1; - } else { + } elsif ($o->{netc}{type} !~ /adsl|lan|cable/) { require network::netconnect; network::netconnect::stop_internet($o); run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/syslog", "stop"); -- cgit v1.2.1