summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/net_monitor9
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 9c8c10852..b001235d2 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -149,15 +149,16 @@ my $during_connection;
my $first;
sub bg_command_as_root {
- fork() or exec { 'consolehelper' } @_ or die N("consolehelper missing");
+ my $name = shift;
+ run_program::raw({ detach => 1 }, [ 'consolehelper', $name ], @_);
}
sub start_connection() {
- bg_command_as_root('/sbin/ifup', $default_intf);
+ $default_intf and bg_command_as_root('/sbin/ifup', $default_intf);
}
sub stop_connection() {
- bg_command_as_root('/sbin/ifdown', $default_intf);
+ $default_intf and bg_command_as_root('/sbin/ifdown', $default_intf);
}
sub connection() {
@@ -448,7 +449,7 @@ sub update() {
$statusbar->push(1, $isconnected == 1 ? N("Connected") : N("Not connected"));
}
$button_connect->set("label", $isconnected == 1 ? N("Disconnect %s", $netcnx->{type}) : N("Connect %s", $netcnx->{type}));
- $button_connect->set_sensitive(scalar(@interfaces));
+ $button_connect->set_sensitive($default_intf || scalar(@interfaces));
}
if (!(-e $network::tools::connect_file && -e $network::tools::disconnect_file)) {
$button_connect->set_sensitive(0);