From dea649afc27976e6e5951f90672cc7e2dc1b4e2d Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 19 Jul 2004 07:45:48 +0000 Subject: use run_program, try to handle default interface better --- perl-install/standalone/net_monitor | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'perl-install/standalone/net_monitor') 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); -- cgit v1.2.1