#!/usr/bin/perl
#
# Checks a php script using curl and if there is a
# problem, e-mail me
#
use strict;
use WWW::Curl::Easy;
my $url = "http://localhost/test.php";
# Init the curl session
my $curl= WWW::Curl::Easy->new() or die "curl init failed!\n";
# Give curl the URL to use
$curl->setopt(CURLOPT_URL, $url);
# a subroutine which is called for each 'chunk' as the
# file is received.
sub body_callback {
    my ($chunk,$context)=@_;
    # add the chunk we received to the end of the array we've been given
    push @{$context}, $chunk;
    return length($chunk); # OK
}
# configure which subroutine to call when some data comes in
$curl->setopt(CURLOPT_WRITEFUNCTION, \&body_callback);
my @body;
# tell the subroutine which array to put the data into
$curl->setopt(CURLOPT_FILE, \@body);
if ($curl->perform() != 0) {
    print "Failed ::".$curl->errbuf."\n";
};
my $output = join("",@body);
# Check if we got 'hello' out of the php script. If we did, ignore it
if ($output=~ m/hello/i) {
}
else {
        #sms me, incidentally this is done with curl too, so I create another instance of WWW::Curl::Easy
        my $alert_url = "http://the-clickatell-api-command-to-sms-me";
        my $curl_alert= WWW::Curl::Easy->new() or die "curl init failed!\n";
        $curl_alert->setopt(CURLOPT_URL, $alert_url);
        $curl_alert->setopt(CURLOPT_WRITEFUNCTION, \&body_callback);
        $curl_alert->setopt(CURLOPT_FILE, \@body);
        if ($curl_alert->perform() != 0) {
            print "Failed ::".$curl_alert->errbuf."\n";
        };
        # send me an e-mail now, using Sendmail
        unless(open (MAIL, "|/usr/sbin/sendmail -t")) {
                print "error.\n";
                warn "Error starting sendmail: $!";
        }
        else {
                print MAIL "From: web\@the-server.com\n";
                print MAIL "To: miguel\@example.com\n";
                print MAIL "Subject: PHP problem on the server\n\n";
                print MAIL "The server has stopped parsing php! Panic! Panic!";
                close(MAIL) || warn "Error closing mail: $!";
        }
}