Quote

#!/usr/bin/perl

use strict;
use warnings;
use time::localtime;
use Data::Dumper;


my $ausgabe_Datei = "backupCheck.txt";
open(LogDatei, ">backupCheck.txt") or die "Kann Log Datei nicht anlegen : $!";

my $tm = localtime;
print LogDatei " $tm \n\n\n";

my $parameterFile = "input/Main.cfg";
open(IN, $parameterFile) || die "Paramterfile $parameterFile nicht gefunden!";
my @par = <IN>;
close(IN);

eval( join("\n", @par) );

# 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 $global_boolean = 1;



#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 = '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";

print LogDatei "#######################################################################################################################\n";
print LogDatei " " . $tm . "\n \n Prüfe Existenz von " . $bkupDirectory . "\n";
print LogDatei "#######################################################################################################################\n";

if ( -e $bkupDirectory )
{
print LogDatei "Verzeichnis ist vorhanden!\n";
opendir(DIR,$bkupDirectory) or die "Kann $bkupDirectory nicht öffnen: $!\n";

my @verzeichnisse = grep{-f $bkupDirectory .'/'.$_}readdir(DIR);
my $bool = 0;
for my $file(@verzeichnisse)

{
if(existsActBackup($bkupDirectory.'/'.$file,1))
{
$bool = 1;
print LogDatei "\n################################################################################################################\n";
print LogDatei "\n ****************************Backup vorhanden***************************** \n" . $bool . " Backupdatei gefunden!\n";
print LogDatei $file . "\n \n" . @verzeichnisse . " Backupdateien im Verzeichnis " . $bkupDirectory . " vorhanden!" ;
print LogDatei "\n################################################################################################################\n";
}
else
{
#print LogDatei "--------------------------------------------------------------------------\n";
#print LogDatei " Aktuelle Datei ist nicht vorhanden!\n";
#print LogDatei "--------------------------------------------------------------------------\n";
}
}
if ($bool == 1)
{
print LogDatei "--------------------------------------------------------------------------\n";
print LogDatei "INFO : Es besteht in dem Verzeichnis mind. eine aktuelle Backupdatei!\n";
print LogDatei "--------------------------------------------------------------------------\n\n\n";
}
else
{
print LogDatei "************************************************************************************
**\n";
print LogDatei "**********ERROR: Es besteht in dem Verzeichnis keine aktuelle Backupdatei!************\n";
print LogDatei "************************************************************************************
**\n\n\n";
$global_boolean = 0;


}


# Hier wird geprüft ob aktuelle Datei vorliegt oder nicht
# return:
# 0 = Die überprüfte Datei ist nicht aktuell genug
# 1 = Die überprüfte Datei ist aktuell genug
sub existsActBackup
{
my ($file,$max_age) = @_;
my $tmpValue = 0;
#print LogDatei $tm ;
my $age = (time - (stat($file))[10]) / (60 * 60 * 24);
if ($age < $max_age)
{
$tmpValue = 1;
print LogDatei " " . $tm . " Aktuelle Dateien vorhanden! \n";
print LogDatei "file stat($file)\n";
#print LogDatei "file2 $file \n";
}
else
{
$tmpValue = 0;
#print LogDatei "Keine aktuellen Dateien vorhanden! \n";
}
return $tmpValue;
}

}

}

## Hier wird nach Durchlauf der Kontrolle ein Statment abgegeben wenn Error auftrat!
unless($global_boolean)
{
print LogDatei "########################################################################################################################\n\n";
print LogDatei " ********** ERROR: Backup ist unvollständig !! Bitte prüfen!!! ************\n\n";
print LogDatei "########################################################################################################################\n";
print LogDatei "########################################################################################################################\n\n\n";
}



#########################################################################################################################
##########################################################################################################################
###########################################################################################################################

#!/usr/bin/perl
# Naechster Teil Überprüfung des Verzeichnisses OTA auf aktuelle Dateien wenn keine vorhanden wird ein Fehler ausgegeben!
#use strict;
#use time::localtime;
#use Data::Dumper;


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


$global_boolean = 1;


print LogDatei "\n##########################################################################################################################";
print LogDatei "\n##########################################################################################################################";
print LogDatei "\n##########################################################################################################################";
print LogDatei " $tm \n\n\n";


my $dir = '//sv040555.zitd.global.commerzbank.com//D$//Log//TestDirector//OTAScripting';
opendir(DIR,$dir) or die $!; # Verzeichnis "öffnen"


my @verzeichnisse = grep{-f $dir .'/'.$_}readdir(DIR);
my $bool = 0;
for my $file(@verzeichnisse)

{
if(existsActBackup($dir.'/'.$file,1))
{
$bool = 1;
print LogDatei "\n--------------------------------------------------------------------------------------
--------------------------\n";
print LogDatei "\n ----------------------------OTA Dateien vorhanden----------------------------- \n" . $bool . " OTA-Dateien gefunden!\n";
print LogDatei $file . "\n \n" . @verzeichnisse . " Backupdateien im Verzeichnis " . $dir . " vorhanden!" ;
print LogDatei "\n--------------------------------------------------------------------------------------
---------------------------\n";
}
else
{
#print LogDatei "--------------------------------------------------------------------------\n";
#print LogDatei " Aktuelle OTA-Datei ist nicht vorhanden!\n";
#print LogDatei "--------------------------------------------------------------------------\n";
}
}
if ($bool == 1)
{
print LogDatei "\n############################################################################################\n";
print LogDatei "--------------------------------------------------------------------------\n";
print LogDatei "INFO : Es besteht in dem Verzeichnis mind. eine aktuelle OTA-Dateien!\n";
print LogDatei "--------------------------------------------------------------------------\n";
print LogDatei "\n############################################################################################\n";
}
else
{
print LogDatei "--------------------------------------------------------------------------\n";
print LogDatei "ERROR: Es besteht in dem Verzeichnis keine aktuelle OTA-Dateien!\n";
print LogDatei "--------------------------------------------------------------------------\n";
#$global_booleans = 0;
}



# Hier wird geprüft ob aktuelle Datei vorliegt oder nicht
# return:
# 0 = Die überprüfte Datei ist nicht aktuell genug
# 1 = Die überprüfte Datei ist aktuell genug
sub existsActOTA
{
my($file,$max_age) = @_;
my $tmpValue = 0;
my $age = (time - (stat($file))[10]) / (60 * 60 * 1);
if ($age < $max_age)
{
$tmpValue = 1;
print LogDatei " " . $tm . " Aktuelle OTA-Dateien im Ordner OTA vorhanden! \n";
print LogDatei "file stat($file)\n";
}
else
{
$tmpValue = 0;
# print LogDatei "Keine aktuellen Dateien vorhanden! \n";
}
return $tmpValue;
}

## Hier wird nach Durchlauf der Kontrolle ein Statment abgegeben wenn keine aktuellen Dateien vorhanden sind!
unless($global_boolean)
{
print LogDatei "########################################################################################################################\n\n";
print LogDatei " ********** ERROR: OTA-Dateiverzeichnis ist unvollständig !! Bitte prüfen!!! ************\n\n";
print LogDatei "########################################################################################################################\n";
print LogDatei "########################################################################################################################\n\n\n";
}

###############################################################################################################################
#Überprüfung LogDatei




# 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.
$global_boolean = 1;





my $dir1 = '//sv040555.zitd.global.commerzbank.com//D$//Backup//MSSQL//TRN//ztb_treasurycockpit_db';
opendir(DIR,$dir1) or die $!; # Verzeichnis "öffnen"


my @verzeichnisse1 = grep{-f $dir1 .'/'.$_}readdir(DIR);
$bool = 0;
for my $file(@verzeichnisse1)

{
if(existsActLOG($dir1.'/'.$file,1))
{
$bool = 1;
print LogDatei "\n--------------------------------------------------------------------------------------
--------------------------\n";
print LogDatei "\n ----------------------------LOG Dateien vorhanden----------------------------- \n" . $bool . " LOG-Dateien gefunden!\n";
print LogDatei $file . "\n \n" . @verzeichnisse1 . " LOG-Dateien im Verzeichnis " . $dir1 . " vorhanden!" ;
print LogDatei "\n--------------------------------------------------------------------------------------
---------------------------\n";
}
else
{
#print LogDatei "--------------------------------------------------------------------------\n";
#print LogDatei " Aktuelle Datei ist nicht vorhanden!\n";
#print LogDatei "--------------------------------------------------------------------------\n";
}
}
if ($bool == 1)
{
print LogDatei "--------------------------------------------------------------------------\n";
print LogDatei "INFO : Es besteht in dem Verzeichnis mind. eine aktuelle LOG-Dateien!\n";
print LogDatei "--------------------------------------------------------------------------\n";
}
else
{
print LogDatei "--------------------------------------------------------------------------\n";
print LogDatei "ERROR: Es besteht in dem Verzeichnis keine aktuelle LOG-Dateien!\n";
print LogDatei "--------------------------------------------------------------------------\n";
$global_boolean = 0;
}

unless($global_boolean)
{
print LogDatei "--------------------------------------------------------------------------\n";
print LogDatei "ERROR: LOG-Dateien unvollständig !!!!!\n";
print LogDatei "--------------------------------------------------------------------------\n";
print LogDatei "\n++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++\n";
print LogDatei "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++\n\n\n";
}

# Hier wird geprüft ob aktuelle Datei vorliegt oder nicht
# return:
# 0 = Die überprüfte Datei ist nicht aktuell genug
# 1 = Die überprüfte Datei ist aktuell genug
sub existsActLOG
{
my ($file,$max_age) = @_;
my $tmpValue = 0;
#print LogDatei $tm ;
my $age = (time - (stat($file))[10]) / (60 * 60 * 1);
if ($age < $max_age)
{
$tmpValue = 1;
print LogDatei " " . $tm . " Aktuelle Dateien vorhanden! \n";
print LogDatei "file stat($file)\n";
#print LogDatei "file2 $file \n";
}
else
{
$tmpValue = 0;
# print LogDatei "Keine aktuellen Dateien vorhanden! \n";
}
return $tmpValue;
}

exit