#!/usr/bin/perl

use warnings;
use strict;
use POE qw(Wheel::Run Filter::Reference Wheel::FollowTail);


POE::Session->create(
  inline_states => {
    _start => sub {
      $_[KERNEL]->alias_set('MountWatchdog');
      $_[HEAP]->{next_alarm_time} = int(time()) + 5;
      $_[KERNEL]->alarm(tick => $_[HEAP]->{next_alarm_time});
    },
    tick => sub {
      my $key;
      my $name;

      print "Mount tick at ", time(), "\n";

      $_[HEAP]->{next_alarm_time} = $_[HEAP]->{next_alarm_time} + 2;
      $_[KERNEL]->alarm(tick => $_[HEAP]->{next_alarm_time});
    },
  },
);

POE::Session->create(
  inline_states => {
    _start => sub {
      $_[KERNEL]->alias_set('AlertWatchdog');
      $_[HEAP]->{next_alarm_time} = int(time()) + 2;
      $_[KERNEL]->alarm(tick => $_[HEAP]->{next_alarm_time});
    },
    tick => sub {
      my $key;
      my $name;

      print "Alert tick at ", time(), "\n";

      $_[HEAP]->{next_alarm_time} = $_[HEAP]->{next_alarm_time} + 2;
      $_[KERNEL]->alarm(tick => $_[HEAP]->{next_alarm_time});
    },
  },
);

# Start our POE Kernel.
$poe_kernel->run();
exit 0;