#!/usr/bin/perl -w

use strict;

use WWW::Mechanize;
use DateTime;

my @urls = (
          "http://mysite.net",
          "http://myothersite.org"
);

# Command to execute the webrestart shell script
my $fcgi_restart = "./webrestart";

# Command to restart Lighttpd (may vary by distro)
my $lighttpd_restart = "/etc/init.d/lighttpd restart";

# Set the current date and time for the log file using DateTime from C
+PAN
my $date_time = DateTime->now;

# Set path to the log file you want to use
my $log = '/path/to/log.txt';

# Loop through each of your sites
foreach my $site (@urls) {
     # Get the Status using WWW::Mechanize from CPAN
     my $mech = WWW::Mechanize->new();
     $mech->get( $site );
     my $status = $mech->status($site);
 
     # If there is a server error, we will restart all the FastCGI pro
+cesses.
     if ($status == '500') {
          system $fcgi_restart;
          # Log this site failed and when
          open(DAT,">>$log") || die("Cannot Open File");
          print DAT "$site || $status || $date_time \n";
          close DAT;
     }
     # If the site was not found, we will restart Lighttpd.
     elsif ($status == '404') {
          system $lighttpd_restart;
     }
}
# Log that the sites were checked and when
open(DAT,">>$log") || die("Cannot Open File");
print DAT "Sites checked $date_time \n";
close DAT;
[download]

# Thanks Russell Jurney <rjurney (at) lucision.com>
pkill -f fcgi

pkill -f fcgi-pm

pkill -9 -f fcgi

pkill -9 -f fcgi-pm

/path/to/mysite.net/fastcgi.pl -l /tmp/mysite.socket -n 3 -d

/path/to/myothersite.com/fastcgi.pl -l /tmp/mysite.socket -n 3 -d
[download]