summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 8c067be4e..4f345bd63 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -948,6 +948,11 @@ sub hasNetwork {
0;
}
+sub network_is_cheap {
+ my ($o) = @_;
+ member($o->{net}{type}, qw(adsl lan cable));
+}
+
#------------------------------------------------------------------------------
sub upNetwork {
my ($o, $b_pppAvoided) = @_;
@@ -955,7 +960,7 @@ sub upNetwork {
member($o->{method}, qw(ftp http nfs)) and return 1;
$o->{modules_conf}->write;
if (hasNetwork($o)) {
- if ($o->{net}{type} =~ /adsl|lan|cable/) {
+ if (network_is_cheap($o)) {
log::l("starting network ($o->{net}{type})");
require network::netconnect;
network::netconnect::start_internet($o);
@@ -985,7 +990,7 @@ sub downNetwork {
require network::netconnect;
network::netconnect::stop_internet($o);
return 1;
- } elsif (member($o->{net}{type}, qw(adsl lan cable))) {
+ } elsif (!network_is_cheap($o)) {
require network::netconnect;
network::netconnect::stop_internet($o);
run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/syslog", "stop");