diff options
author | Tobi Oetiker <tobi@oetiker.ch> | 2008-06-05 08:43:21 +0200 |
---|---|---|
committer | Tobi Oetiker <tobi@oetiker.ch> | 2008-06-05 08:43:21 +0200 |
commit | 5c8d6da392323b37fd85a398b2a493034635c65e (patch) | |
tree | 2e6482b575424d4863b45cfd988d555189346051 /qooxdoo/source/perl/Qooxdoo/Services/Tr.pm | |
parent | a26e2b5d5d5634e4653c7081dd3dd5a94fdcbb8f (diff) | |
download | smokeping-5c8d6da392323b37fd85a398b2a493034635c65e.tar.gz smokeping-5c8d6da392323b37fd85a398b2a493034635c65e.tar.xz |
let the webif sleep between runs (cut the comets tail)
replace {CLASS} too
Diffstat (limited to 'qooxdoo/source/perl/Qooxdoo/Services/Tr.pm')
-rw-r--r-- | qooxdoo/source/perl/Qooxdoo/Services/Tr.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm b/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm index 58195eb..357b020 100644 --- a/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm +++ b/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm @@ -28,7 +28,8 @@ sub launch { setsid or die "Can't start a new session: $!"; open STDERR, '>&STDOUT' or die "Can't dup stdout: $!"; for (my $i = 0; $i<$rounds;$i++){ - system "traceroute","-I","-q","1",$host; + system "traceroute","-I","-q","1",$host; + print "SLEEPING\n"; sleep $delay; } } @@ -109,6 +110,9 @@ sub method_run_tr push @array, [$1,undef,undef,undef]; $point = tell($fh); } + elsif (/^SLEEPING/){ + push @array, ['SLEEPING']; + $point = tell($fh); else { $error->set_error(107,"ERROR: $_. See $data for more information."); return $error; @@ -120,7 +124,7 @@ sub method_run_tr handle=>$handle, point=>$point, output=>\@array, - again=> $again, + again=> $again, } } else { |