#!/usr/bin/perl

use strict;
use LWP::Simple;

exit 0 if -e "/etc/nouptest";

eval {
    local $SIG{ALRM} = sub { die "Alarm\n" };
    alarm 10;
    my $p = get 'http://uptest.convolution.nl/';
    $p =~ /xyzzy/ or die "Down\n";
    alarm 0;
};
if ($@) {
    if ($@ =~ /Alarm|Down/) {
        system qw[/etc/init.d/apache stop];
        sleep 3;
        system qw[killall -9 apache];
        sleep 3;
        system qw[/etc/init.d/apache start];
    }
}