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