#!/usr/bin/perl
$fullReport = 0;
if ($#ARGV >= 0) {
$fullReport = 1;
}
require Net::SMTP;
Net::SMTP->import;
#use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/80');
$ua->cookie_jar(
HTTP::Cookies->new(
file => 'mycookies.txt',
autosave => 1
)
);
my $req = GET '[URL unfurl="true"]http://172.16.103.124/server_status.php';[/URL]
my $res = $ua->request($req);
if ($res->is_success) {
$page[0] = $res->content;
}
else {
$page[0] = "Error: Could not reach Server1!";
}
$req = GET '[URL unfurl="true"]http://172.16.101.124/server_status.php';[/URL]
$res = $ua->request($req);
if ($res->is_success) {
$page[1] = $res->content;
}
else {
$page[1] = "Error: Could not reach Server2!";
}
# You need to fill in the variables.
# Read the perldoc for more info on using SMTP.
$req = GET '[URL unfurl="true"]http://172.16.107.124/server_status.php';[/URL]
$res = $ua->request($req);
if ($res->is_success) {
$page[2] = $res->content;
}
else {
$page[2] = "Error: Could not reach Server3!";
}
$req = GET '[URL unfurl="true"]http://172.16.108.124/server_status.php';[/URL]
$res = $ua->request($req);
if ($res->is_success) {
$page[3] = $res->content;
}
else {
$page[3] = "Error: Could not reach Server4!";
}
$req = GET '[URL unfurl="true"]http://172.16.102.124/server_status.php';[/URL]
$res = $ua->request($req);
if ($res->is_success) {
$page[4] = $res->content;
}
else {
$page[4] = "Error: Could not reach server5!";
}
$test = 0;
for ($i = 0; $i < 5;$i++) {
if ($page[$i] =~ m/\S*Error:/ ||$page[1] =~ m/\S*Critical/) {
$test = 1;
$error = $error."\n".$page[$i];
}
}
if ($fullReport == 0) {
if ($test == 1) {
my $smtp = Net::SMTP->new('xxx.xxx.xxx.xxx') or die $!; #replace with smtp ip address
$smtp->mail( 'xxxx@xxxx.com' ); #from address
$smtp->to( 'xxxxxx@xxxxx.com' ); #to address
$smtp->data();
$smtp->datasend("To: Operations\n"); #address that gets displayed
$smtp->datasend("From: xxx\@xxxx.com\n"); #address that gets displayed
$smtp->datasend("Subject: Server Status\n");
$smtp->datasend("\n"); # done with header
$smtp->datasend("Please see the below server status\n".$error);
$smtp->datasend();
$smtp->quit(); # all done. message sent.
}
}
else {
my $smtp = Net::SMTP->new('xxx.xxx.xxx.xxx') or die $!; #repleace with IP address of smtp server
$smtp->mail('xxxx@xxxx.com');
$smtp->to('xxxx@xxxxx.com');
$smtp->data();
$smtp->datasend("To: Operations\n");
$smtp->datasend("From: xxx\@xxxxx.com\n");
$smtp->datasend("Subject: Daily Server Status\n");
$smtp->datasend("\n");
if ($test == 1) {
$smtp->datasend($page[0]."\n".$page[1]."\n".$page[2]."\n".$page[3]."\n".$page[4]);
}
else {
$smtp->datasend("All servers: OK\n");
}
$smtp->datasend();
$smtp->quit();
}