RootForum Community

#!/usr/bin/perl -w

use strict;

my ( $MailProgram );
my ( $EMail );
my ( $Absender );
my ( $Betreff );
my ( $Inhalt );
my ( $sec,$min,$hour,$mon,$year,$wday,$yday,$isdst);
my ( $ip, $httpport );
my ( $output );
my ( $vboutput);
my ( $timeout,$speicher );
my ( $suchstring);

$MailProgram ='/usr/sbin/sendmail'; #Path to sendmail
$EMail ="USER@DOMAIN.de"; #Email zu der der Fehlerbericht gesendet werden soll
$Absender ="servercheck@DOMAIN.de"; #Der Absender der Nachricht
$Betreff ="Server-Fehler"; #Betreff der Fehlernachricht
$ip ="IPADRESSE"; #IP-Adresse des Webserver, der überprüft werden sol
$httpport ="80"; #Port des Webservers
$suchstring = "connected";

open (CHECKER,"|wget --tries=2 --spider http://$ip/ -o tmp2.dat") || die "Fehler mit WGET!n";
close CHECKER;

open(VERARBEITUNG,"|less tmp2.dat | grep -c $suchstring >tmp1.dat") || die "Fehler mit Grep oder less!n";
close VERARBEITUNG;

open(EIN,"tmp1.dat") || die "Fehler mit der Datei!n";
$output = <EIN>;
close EIN;


if($output eq "1n"){
print "Alles ok!n";

} else {
($sec,$min,$hour,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$Inhalt = "Ihr Server ist um $hour:$min:$sec ausgefallen";
print "$Inhaltn";
open( MAIL, "|$MailProgram $EMail") || die "Fehler beim Mailprogram $MailProgram!n";
print MAIL "From: $Absendern";
print MAIL "To: $EMailn";
print MAIL "Subject: $Betreffnn";
print MAIL "$Inhaltn.";
close MAIL;
}
#
#
#