summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/ethernet.pm8
-rw-r--r--perl-install/network/netconnect.pm22
-rw-r--r--perl-install/network/tools.pm10
-rwxr-xr-xperl-install/standalone/drakconnect4
4 files changed, 13 insertions, 31 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index a93d66c77..074fec628 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -21,14 +21,6 @@ sub write_ether_conf {
$netcnx->{type} = 'lan';
$netcnx->{NET_DEVICE} = $netc->{NET_DEVICE} = '';
$netcnx->{NET_INTERFACE} = 'lan'; #$netc->{NET_INTERFACE};
- set_cnx_script($netc, "local network",
-qq(
-/etc/rc.d/init.d/network restart
-),
-qq(
-/etc/rc.d/init.d/network stop
-/sbin/ifup lo
-), $netcnx->{type});
}
$::isStandalone and $modules_conf->write;
1;
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 22069f39c..4a4810003 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -566,10 +566,6 @@ Take a look at http://www.linmodems.org"),
pre => sub {
$mouse ||= {};
$mouse->{device} ||= readlink "$::prefix/dev/mouse";
- set_cnx_script($netc, "modem", join("\n", if_($::testing, "/sbin/route del default"), "ifup ppp0"),
- q(ifdown ppp0
-killall pppd
-), $netcnx->{type});
},
name => N("Dialup: account options"),
data => sub {
@@ -786,7 +782,7 @@ If you don't know, choose 'use pppoe'"),
return 'lan_intf';
}
network::adsl::adsl_probe_info($netcnx, $netc, $adsl_type, $ntf_name);
- $netc->{NET_DEVICE} = $ntf_name if $adsl_type eq 'pppoe';
+ $netc->{$_} = $adsl_type eq 'pppoe' ? $ntf_name : 'ppp0' foreach 'NET_DEVICE', 'NET_INTERFACE';
return 'adsl_account';
},
},
@@ -815,10 +811,6 @@ If you don't know, choose 'use pppoe'"),
post => sub {
$netc->{internet_cnx_choice} = 'adsl';
network::adsl::adsl_conf_backend($in, $modules_conf, $netcnx, $netc, $ntf_name, $adsl_type, $netcnx); #FIXME
- set_cnx_script($netc, "adsl", "ifup ppp0",
- q(ifdown ppp0
-killall pppd
-), $netcnx->{type});
$config->{adsl} = { kind => $ntf_name, protocol => $adsl_type };
$handle_multiple_cnx->();
},
@@ -958,13 +950,6 @@ notation (for example, 1.2.3.4).")),
$ethntf->{MII_NOT_SUPPORTED} = bool2yesno(!$hotplug);
$ethntf->{HWADDR} = $track_network_id or delete $ethntf->{HWADDR};
$in->do_pkgs->install($netc->{dhcp_client}) if $auto_ip;
- set_cnx_script($netc, "cable", qq(
-/sbin/ifup $netc->{NET_DEVICE}
-),
- qq(
-/sbin/ifdown $netc->{NET_DEVICE}
-), $netcnx->{type}) if $netcnx->{type} eq 'cable';
-
return $is_wireless ? "wireless" : "static_hostname";
},
},
@@ -1236,8 +1221,7 @@ It is not necessary on most networks."),
if ($a) {
# local $::isWizard = 0;
my $_w = $in->wait_message('', N("Testing your connection..."), 1);
- # FIXME: drop cnx_scripts (still used for modem connexions), use ifup/ifdown instead
- connect_backend();
+ connect_backend($netc);
my $s = 30;
$type =~ /modem/ and $s = 50;
$type =~ /adsl/ and $s = 35;
@@ -1260,7 +1244,7 @@ Try to reconfigure your connection.");
no_back => 1,
end => 1,
post => sub {
- $::isInstall and disconnect_backend();
+ $::isInstall and disconnect_backend($netc);
return "end";
},
},
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index bdfa8a13a..d3dc102f9 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -72,9 +72,15 @@ sub passwd_by_login {
}
}
-sub connect_backend() { run_program::rooted($::prefix, "$connect_file &") }
+sub connect_backend {
+ my ($netc) = @_;
+ run_program::rooted($::prefix, "ifup $netc->{NET_INTERFACE} &");
+}
-sub disconnect_backend() { run_program::rooted($::prefix, "$disconnect_file &") }
+sub disconnect_backend {
+ my ($netc) = @_;
+ run_program::rooted($::prefix, "ifdown $netc->{NET_INTERFACE} &");
+}
sub connected() { gethostbyname("mandrakesoft.com") ? 1 : 0 }
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index cc01cfd34..d9726dd53 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -103,10 +103,10 @@ $int_connect->signal_connect(clicked => sub {
if (cat_($network::tools::connect_prog) =~ m|/usr/bin/kppp| && -e '/usr/bin/kppp') {
run_program::run("/usr/bin/kppp &");
} else {
- connect_backend();
+ connect_backend($netc);
}
} else {
- disconnect_backend();
+ disconnect_backend($netc);
}
});