Quote

#1 Block Prüfung BackupCheck-Verzeichnis
sub runSqlBackCheck
{



# Flag, ob die Gesamtprüfung positiv ist.
# 0 = nein, d.h. In mindestens einem Fall war keine aktuelle Backup-Datei vorhanden.
# 1 = ja, d.h. es ware stets eine aktuelle Backup-Datei vorhanden.
my $runSQLBakCheck = 1;


&printLogEntry ("INFO ","Backup-Verzeichnischeck beginnt!");



#wird erst später aus DOMS.mdb ermittelt, vorerst wird mit Hardcodierten Werten gearbeitet

my (@pjDomain,@pjName);

$pjDomain[0] = "ZITA_PKM";
$pjName [0] = "Phoenix";

$pjDomain[1] = "ZITA_ATF";
$pjName [1] = "ZITA_522";

$pjDomain[2] = "ZITA_ATF";
$pjName [2] = "TLA";

my $numberProjects = $#pjName;
my $backupPath = $Backup{"Backup"};
#my $backupPath = 'H:\\Perl\\BackupCheck\\_backup';


# Nun wird für jedes TestDirector-Projekt überprüft, ob im
# Backup-Bereich des Servers ein aktuelles Backup vorliegt.
for (my $i = 0; $i <= $numberProjects; $i++)
{
my $bkupDirectory = $backupPath . "\\" . $pjDomain[$i] . "_" . $pjName[$i] . "_db";
my $verzeichnisse = 0;
&printLogEntry ("INFO ","Prüfe Existenz von " . $bkupDirectory);

if ( -e $bkupDirectory )
{
&printLogEntry ("DEBUG","Verzeichnis ist vorhanden!");
opendir(DIR,$bkupDirectory);
$verzeichnisse = 1;
my @verzeichnisse = grep{-f $bkupDirectory .'/'.$_}readdir(DIR);
my $bool = 0;
for my $file(@verzeichnisse)
{
if(existsFile($bkupDirectory.'/'.$file,24))
{
$bool = 1;
&printLogEntry ("DEBUG","Backup vorhanden" . $bool . " Backupdatei gefunden!");
&printLogEntry ("DEBUG",$file . @verzeichnisse . " Backupdateien im Verzeichnis " . $bkupDirectory . " vorhanden!") ;
}

}
if ($bool == 1)
{
&printLogEntry ("INFO ","Es besteht in dem Verzeichnis mind. eine aktuelle Backupdatei!");
}
else
{
&printLogEntry ("ERROR","Es besteht in dem Verzeichnis" . $bkupDirectory . "keine aktuelle Backupdatei!");
$runSQLBakCheck = 0;
}
## Hier wird nach Durchlauf der Kontrolle ein Statment abgegeben wenn Error auftrat!
unless($runSQLBakCheck)
{
&printLogEntry ("ERROR","In einem bzw. mehreren Backupverzeichnissen liegen keine aktuellen Backupdateien vor!! Bitte prüfen!!!");

}
}
else
{
&printLogEntry ("ERROR","Das zu prüfende Backupverzeichnis wurde nicht gefunden! Bitte prüfen!!");
$runSQLBakCheck = 0;
} # end of: if ( -e $bkupDirectory )
} # end of: for (my $i = 0; $i <= $numberProjects; $i++)
return $runSQLBakCheck # Hier wird der ermittelte Rückgabewert aus der Subroutine übergeben!
} # end of: sub runSqlBackCheck