78 lines
2.5 KiB
Perl
78 lines
2.5 KiB
Perl
# Skript prüft xmicfsp007 und xmicfsp008 ab 6 Uhr morgens ob die Xetra Architektur komplett gestartet ist.
|
|
# Sobald eine MISS komplett gestartet ist erfolgt eine Benachrichtigung.
|
|
# Sollte keine MISS bis 6.25 Uhr komplett gestartet sein, erfolgt ebenfalls eine Benachrichtigung
|
|
|
|
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
my @rec = qw /technik@icfsystems.de m.krug@icfsystems.de middleoffice@icfag.de support@novis-software.de/;
|
|
#my @rec = qw /a.wisniewski@icfsystems.de/;
|
|
|
|
my $M1="xmicfsp007";
|
|
my $M2="xmicfsp008";
|
|
|
|
while (1) {
|
|
my $retM1=1;
|
|
my $retM2=1;
|
|
my ($ss,$mm,$hh,$dd,$mon,$yy,$we,$doy,$st)=localtime;
|
|
$mon+=1;
|
|
$yy+=1900;
|
|
printf "Prüfung am %02d.%02d.%4d um %02d:%02d", $dd, $mon, $yy, $hh, $mm;
|
|
|
|
$retM1 = check("$M1");
|
|
$retM2 = check("$M2");
|
|
|
|
if ($retM1 == 0 or $retM2 == 0) {
|
|
# Mail!
|
|
foreach (@rec) {
|
|
open FH, ">$$.txt";
|
|
printf FH "Die Xetra Architektur ist angestartet.\n\n";
|
|
printf FH "Prüfung am %02d.%02d.%4d um %02d:%02d\n\n", $dd, $mon, $yy, $hh, $mm;
|
|
if ($retM1==0) {
|
|
printf FH "$M1 ok\n";
|
|
}
|
|
else {
|
|
printf FH "$M1 nicht ok\n";
|
|
}
|
|
if ($retM2==0) {
|
|
printf FH "$M2 ok\n";
|
|
}
|
|
else {
|
|
printf FH "$M2 nicht ok\n";
|
|
}
|
|
close FH;
|
|
`clemail -to $_ -subject \"Xetra Architektur vom $dd.$mon.$yy\" -bodyfile $$.txt -from hotline\@icfsystems.de -smtpserver 130.35.0.141 -smtpport 25`;
|
|
unlink "$$.txt";
|
|
}
|
|
exit 0;
|
|
}
|
|
elsif($hh >= 6 and $mm >= 25) {
|
|
# Mail!
|
|
foreach (@rec) {
|
|
open FH, ">$$.txt";
|
|
printf FH "Die Xetra Architektur ist nicht angestartet.\n\n";
|
|
printf FH "Prüfung am %02d.%02d.%4d um %02d:%02d\n\n", $dd, $mon, $yy, $hh, $mm;
|
|
printf FH "Keine MISS ist vollständig angestartet.\n";
|
|
close FH;
|
|
`clemail -to $_ -subject \"Xetra Architektur vom $dd.$mon.$yy !!FEHLER!!\" -bodyfile $$.txt -from hotline\@icfsystems.de -smtpserver 130.35.0.141 -smtpport 25`;
|
|
unlink "$$.txt";
|
|
}
|
|
exit 1;
|
|
}
|
|
sleep 60;
|
|
}
|
|
|
|
sub check {
|
|
my ($MISS)=@_;
|
|
my $ret=0;
|
|
my @result = `psexec -u intern\\gateadm -p xetra \\\\$MISS cmd /c "d: & cd d:\\opt\\gate\\base90\\bin & set SYS_CONFIG_FILE=..\\cfg\\configsys.ini & mmg XERVICE"`;
|
|
my $count;
|
|
$count=@result;
|
|
$ret=1 if ($count == 0);
|
|
foreach(@result) {
|
|
$ret=1 if ($_ =~ /UNAVAILABLE/);
|
|
$ret=1 if ($_ =~ /BASIC_ARCHITECTURE is down/);
|
|
$ret=1 if ($_ =~ /Cannot connect to process/);
|
|
}
|
|
return $ret;
|
|
} |