diff options
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakroam | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam index cfad91c3a..eab863caf 100755 --- a/perl-install/standalone/drakroam +++ b/perl-install/standalone/drakroam @@ -231,9 +231,14 @@ sub UpdateAll { &UpdateRoaming; } +sub isRoamingRunning() { + my $name = basename($roaming_daemon->{binary}); + any { /\Q$name\E$/ } run_program::get_stdout("ps", "-A"); +} + sub UpdateRoaming() { my $name = basename($roaming_daemon->{binary}); - my $status = (any { /\Q$name\E$/ } run_program::get_stdout("ps", "-A")) ? "on" : "off"; + my $status = isRoamingRunning() ? "on" : "off"; $RoamStatus->set_text("Roaming: $status"); return FALSE; #- do not update again if launched on timeout } @@ -314,8 +319,10 @@ sub StopRoam() { sub SetInterval() { $ScanInterval = $ScanEntry->get_text; - StopRoam(); - StartRoam(); + if (isRoamingRunning()) { + StopRoam(); + StartRoam(); + } } sub ConnectNow { |