Shell Programming and Scripting

#!/usr/bin/perl
# authorized address the ip of the server getting accessing the script
$authaddress = "192.168.0.10";

# end configuration

print "Content-type: text/html\n\n";

if ($ENV{'REMOTE_ADDR'} eq "$authaddress") {

        print "I AM WORKING!";

        $uptime = open( UPTIME, "/usr/bin/uptime |" );
        while (<UPTIME>){print;}
        close( UPTIME );

}
else {print "unauthorized access";}
exit;

#!/usr/bin/perl

# setup array of servers/websites to check
@sitestocheck = ('mynetworks.com','mywebsite2.com');

# the relative url of the website response script in each site
$responseprogram = "/cgi-bin/mystatus.cgi";

# path to the log file with the response data
$statusdir = "/var/log"; # needs to be 0777 web writeable

# mail feature
$mailprog ='/usr/sbin/sendmail';
$adminmail = 'me@home.com';
$frommail = 'websitemonitor@home.com';

###############################################################
# End Configuration
###############################################################

# main program
use LWP::UserAgent;


# now check each url in your array
foreach $sitetocheck (@sitestocheck){

$ua = new LWP::UserAgent;
$req = new HTTP::Request 'GET',"http://$sitetocheck$responseprogram";
$res = $ua->request($req);

if ($res->is_success) {

if ($res->content =~ /I AM WORKING/i){$response = "SERVER OK:$sitetocheck:".$res->content;}
        else {$response = "WARNING! There appears to be a problem, FIX ME!<br>\n";}
        }
        else {

        $timestamp = localtime;
        $response = "WARNING! UNABLE TO CONNECT TO $sitetocheck at $timestamp";

        $traceroute = `/usr/sbin/traceroute $sitetocheck`;
        $traceroute = "";

        }



        # write server status to the main log file
        open(FILE,">>$statusdir/statuslog.txt");
        flock(FILE, 2);
        print FILE "$response\n$traceroute\n\n";
        flock(FILE, 8);
        chmod 0777, $statusfile; # keep the file writeable

        # write to a current status file for each server or website being monitored
        open(FILE,">$statusdir/$sitetocheck");
        flock(FILE, 2);
        print FILE $response;
        flock(FILE, 8);
        chmod 0777, $statusfile; # keep the file writeable

}

        # if there is an error mail the administrator
if ($response =~ /WARNING/i){

open( MAIL, "|$mailprog -t" );

print MAIL "Subject: Server or Website Not Responding\n";
print MAIL "From: $frommail\n";
print MAIL "To: $adminmail\n";
print MAIL "Reply-to: $frommail\n\n";

      print MAIL "$response\n$traceroute";
      print MAIL "\n\n";        
      close MAIL;

}