crossroads

Git mirror of https://crossroads.e-tunity.com/
git clone git://git.finwo.net/app/crossroads
Log | Files | Refs | LICENSE

externalchecker (334B)

      1 #!/usr/bin/env perl
      2 
      3 # Example of an external checker
      4 
      5 # Alternate its-alive / its-dead every approx 10 sec
      6 my $sec = int((localtime())[0] / 10);
      7 my $out = $sec & 1 ? "1" : "0";
      8 
      9 print STDERR (">>>> External checker: ", scalar(localtime()), " @ARGV\n");
     10 if ($ARGV[0] =~'localhost') {
     11     print("$out\n");
     12 } else {
     13     print("0\n");
     14 }