NAME

AnyEvent::Monitor - Service Monitoring using AnyEvent

SYNOPSIS

  use AnyEvent::Monitor;

  my $foo = AnyEvent::Monitor->new(
      name => 'foo',
      on_softfail => sub {
          warn "==> service fail: $_[1]";
      },
      on_hardfail => sub {
          my ($resume_check);
          warn "==> service fail, should attempt to do something to fix it: $_[1]";
          $resume_check->(60); # resume checking after 60 secs
      },
      on_resume => sub {
          my ($prev, $outage) = @_;
          if ($prev) {
              warn "service resumed from: $prev, total outage: $outage secs";
          }
      });

  $foo->install_timers( 300 ); # delay checking for 300 secs

  sub my_polling_check {
      my ($timestamp, $status) = @_;
      # $foo->heartbeat($timestamp, $status);
  }

  $foo->status; # expecting "normal"

DESCRIPTION

AnyEvent::Monitor provides a simple way to do periodical checks on given services, and provides callback when the service fails that you can attempt to fix it programmatically.

ATTRIBUTES

softfail_timeout

hardfail_timeout

on_softfail

The callback to be called after service remains failed for $soft_timeout.

on_hardfail($resume)

The callback to be called after service remains failed for $hard_timeout. You should attempt to fix the service and call $resume-($delay)> after the attempt has been made. This will make the monitoring resume after $delay seconds.

on_resume($previous_status, $outage)

The callback to be called after service monitoring resumes. If it had failed, $previous_status and $outage seconds will be given.

METHODS

install_timers($delay)

Set the next checking timer according to soft_timeout and hard_timeout, with additional $delay from now. You don't normally need to call this method manually, unless you want to delay the start of the monitoring.

heartbeat($timestamp, $status)

This is used to update the status of the service. only normal is meaningful to AnyEvent::Monitor. Other values are considered as the service failed.

AUTHOR

Chia-liang Kao <clkao@clkao.org>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO