We use a perl script to monitor our webservers, and if any are down, send an email (SMS) to the right people.<\/p>\n
With thanks and compliments to these guys<\/a> use Getopt::Std;<\/p>\n # Define the address the alerts should come from<\/p>\n $monitor_email = \"Website_Monitor\";<\/p>\n # Define global variables # Start program sub main {<\/p>\n # Read in the options # Set variables # Determine options # Define more variables # Monitor URL if ($url_header =~ \/200 OK\/){ }<\/p>\n sub send_warning {<\/p>\n my ($email_address,$url) = @_;<\/p>\n # Create timestamp my $email_content = $url .\" failure at \". $time_stamp . \"\\n\";<\/p>\n unless(open (MAIL, \"| \/usr\/sbin\/sendmail -t\")) { sub usage {<\/p>\n print STDERR << \"EOF\";\n\n This program monitors HTTP URLS\n\n usage: $0 [-h] [-s \"string\"]\n\n -h : This (help) message\n\n -e email-address : The email address that should be alerted.\n\n -s : Unique string found on the web \n page that proves it is working correctly\n\n example: $0 -s -e email-address URL\n\n\nEOF\n exit;\n}\n<\/code><\/p>\n Now with that file in place, I create a shell to batch this, called monitor.sh chmod +x both of these and put the monitor.sh in cron to run every 10 minutes (ideally on a remote server, since if your whole server is down this won't run!) and voila, notification when your sites are down. We use a perl script to monitor our webservers, and if any are down, send an email (SMS) to the right people. With thanks and compliments to these guys Here is the perl script, monitor-website.pl #!\/usr\/bin\/perl use Getopt::Std; # Define … Continue reading
\nHere is the perl script, monitor-website.pl
\n
\n#!\/usr\/bin\/perl<\/p>\n
\n $curl_executable = \"\/usr\/bin\/curl\";
\n $mail_executable = \"\/usr\/sbin\/sendmail\";
\n $OPT_STRING = 'hs:e:';<\/p>\n
\n &main();<\/p>\n
\n getopts( \"$OPT_STRING\", \\%opt ) or usage();<\/p>\n
\n my $url_header = \"\";
\n my $url_body = \"\";
\n my $email_address = \"\";
\n my $url = $ARGV[0];
\n my $valid_string = \"<\/html>\";<\/p>\n
\n if ($opt{s}) { $valid_string = $opt{s};}
\n usage() if $opt{h};
\n usage() if !$opt{e};<\/p>\n
\n $email_address = $opt{e};<\/p>\n
\n $url_header = `$curl_executable -I -s $url`;<\/p>\n
\n $url_body = `$curl_executable -s $url`;
\n if ($url_body =~ \/$valid_string\/){
\n #print (\"$url_header\\n\");
\n }
\n else{
\n &send_warning($email_address, $url);
\n }
\n }
\n else{
\n &send_warning($email_address, $url);
\n }<\/p>\n
\n my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
\n $year = $year + 1900;
\n $mon = $mon + 1;
\n my $time_stamp = $year.\"-\".$mon.\"-\".$mday.\" \".$hour.\":\".$min.\":\".$sec; <\/p>\n
\n print \"error.\\n\";
\n warn \"Error starting sendmail: $!\";
\n }
\n else{
\n print MAIL \"From: \" . $monitor_email . \"\\n\";
\n print MAIL \"To: \" . $email_address . \"\\n\";
\n print MAIL \"Subject: Website URL Monitor Failure\\n\\n\";
\n print MAIL $email_content;
\n close(MAIL) || warn \"Error closing mail: $!\";
\n print (\"$email_content\");
\n }
\n}<\/p>\n
\n
\nmonitor-website.pl -e my@email.address http:\/\/www.omniweb.com
\nmonitor-website.pl -e my@email.address http:\/\/newserver.omniweb.com
\n<\/code><\/p>\n
\n
\n## Monitor websites every 10 minutes, email when outages
\n*\/10 * * * * root monitor_sites.sh > \/var\/log\/monitor.log
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"