#!/usr/bin/env perl

# Example of an external checker

# Alternate its-alive / its-dead every approx 10 sec
my $sec = int((localtime())[0] / 10);
my $out = $sec & 1 ? "1" : "0";

print STDERR (">>>> External checker: ", scalar(localtime()), " @ARGV\n");
if ($ARGV[0] =~'localhost') {
    print("$out\n");
} else {
    print("0\n");
}
