Quote

# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
#
# variablen/funktion zum steuern des scripts
#
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

#
# Log-Pfad
$logPath="H:\\Perl\\BackupCheck\\output" ;


# Pfad zu OTA-Log-Dateien
$otaLogPath="H:\\Perl\\BackupCheck\\input\\OtaLog" ;

# Pfad zu BackupCheck- Dateien
$backupPath="H:\\Perl\\BackupCheck\\_backup" ;

#LogFilter
#Der LogFilter steuert die Feinheit der Logdatei-Einträge.
#Es gibt zwei Filtereinstellungen:
# DEBUG
# INFO
my $LogFilter = "DEBUG";


# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
#
# ende variablen/funktion zum steuern des scripts
#
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# Subroutine1 BackupCheck Zeitstempel

Quote

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