| … | |
… | |
| 328 | for my $cb (values %MON_NODES) { |
328 | for my $cb (values %MON_NODES) { |
| 329 | eval { $cb->($node->{id}, $up, @reason); 1 } |
329 | eval { $cb->($node->{id}, $up, @reason); 1 } |
| 330 | or AE::log die => $@; |
330 | or AE::log die => $@; |
| 331 | } |
331 | } |
| 332 | |
332 | |
| 333 | AE::log 7 => "$node->{id} is " . ($up ? "up" : "down") . " (@reason)"; |
333 | AE::log 7 => "$node->{id} is " . ($up ? "up" : "down") . " (@reason)."; |
| 334 | } |
334 | } |
| 335 | |
335 | |
| 336 | ############################################################################# |
336 | ############################################################################# |
| 337 | # self node code |
337 | # self node code |
| 338 | |
338 | |
