On Fri, 09 Jul 2004 15:16:32 -0500 Robert Boone wrote:
+------------------
| sub check {
| my $kernel = $_[KERNEL];
|
| my $servermon = qx { nc -w 2 $lb 5000};
|
| if ($servermon eq $host) {;
| print "Check\n";
| $kernel->delay(move_pic => 30);
| $kernel->delay(get_pic => 10);
| } else {
| $kernel->delay(check => 120);
| }
| }
+------------------
It looks to me that you are setting the delay for move_pick out by
30 seconds each time this event runs for get_pic. If I were
implementing this I'd use using the alarm_set methods and set the
next alarm at the end of the event handler that calls it.
--
Chris Fedde
