#************************************************************************************
#*  Backup-Kontrolle TestDirector
#************************************************************************************
# noch offen
#  Logfilname soll Timestamp enthalten
# ***********************************************************************************


# ####################################################
#                                                 ****
#   H A U P T S T E U E R U N G                   ****
#                                                 ****
# ####################################################


# ####################################################
# Erzeugen der Log-Datei mit Zeitstempel
######################################################
  
my $ausgabe_Datei = "log3.txt";
open LogDatei, ">>backupCheck.txt"       || die "Kann Log Datei nicht anlegen : $!";
use time::localtime;
$tm = localtime;
print LogDatei " $tm \n\n\n";

# ####################################################
# parameter und funktion fuer das script einlesen 
######################################################
$parameterFile = "input/Main.cfg";                                                                                                                                
open(IN, $parameterFile) || die "Paramterfile $parameterFile nicht gefunden!";   
@par = <IN>;                                                                     
close(IN);                                                                       
eval( join("\n", @par) );                                                        

# ####################################################
#Ermittlung der aktuellen TestDirector-projekte
######################################################
 
#use cwd;
#use time::localtime; 
#use strict;
#use strict;
#use warnings;
use Data::Dumper;
#wird erst später aus DOMS.mdb ermittelt, vorerst wird mit Hardcodierten Werten gearbeitet

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

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

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

$numberProjects = $#pjName;

for ($i = 0; $i <= $numberProjects; $i++){
  
  $bkupDirectory = $backupPath . "\\" . $pjDomain[$i] . "_" . $pjName[$i] . "_db";
  
   print LogDatei"Prüfe Existenz von " . $bkupDirectory . "\n";
  
  if ( &existsFile($bkupDirectory) == 1 ) {
     print LogDatei "Verzeichnis ist vorhanden!\n";
    # nächste Prüfung: Inhalt innerhalb ...
    # Prüfe mit der Subroutine 'existsActBackup', ob für das Verzeichnis eine Bkup-Datei existiert, die jünger als der Zeitraum.
    # wenn 'ja' ist alles ok
    # wenn 'nein', dann Eintrag in Log-Datei

    
$tmpValue = 0;

my $dir = $bkupDirectory;
opendir(DIR,$dir) or die "Kann das angegebene Verzeichnis nicht öffnen: $!\n";

my @verzeichnisse = grep{-f $dir.'/'.$_}readdir(DIR);
print LogDatei $_,"\n" for(@verzeichnisse);
#closedir DIR;

### Das ist die Routine die prüfen soll ob Dateien aktuell mit Datum heute oder 1 Tag zurück sind!
sub existsActBackup {
if (-C $_ <= @_[1])
    {    
      $tmpValue = 1;
          
     } else {  
      $tmpValue = 0;      
     }   
 $rValue = $tmpValue
}     
                                                          
print LogDatei $_,"\n" for(@verzeichnisse);                 
 
  } else {
     print LogDatei "Verzeichnis ist nicht vorhanden!\n";
    # LOG: Fehlermeldung ausweisen.
  }
  
  
  
}

 


# ####################################################
#                                                 ****
#   S U B R O U T I N E N                         ****
#                                                 ****
# ####################################################


# existsFile
# ----------------------------------------------------
# Diese Routine prüft, ob eine übergebene Datei, auch
# ein Verzeichnis existiert.
# wenn 'ja', dann gibt die Routine die Zahl 1 zurück
# wenn 'nein', dann die Zahl 0
# ----------------------------------------------------
sub existsFile {
  $tmpValue = 0;
  
  if (-e @_[0]){
    $tmpValue = 1;    
  } else {  
    $tmpValue = 0;      
  }
  
  $rValue = $tmpValue
}

sub existsActBackup {
  my ($file,$max_age) = @_;
  my $tmpValue = 0;
  my $age = (time - (stat($file))[10]) / (60 * 60 * 24);
  if ($age < $max_age) {    
     $tmpValue = 1;
  } else {  
     $tmpValue = 0;      
  }  
  return $tmpValue;
} 

if(existsActBackup('/path/to/fil.txt',hoechstAlterInTagen)){
  print "Datei ist aktuell";
}

sub existsActBackup {
if (-C $_ <= @_[1])
   {    
     $tmpValue = 1;
          
    } else {  
     $tmpValue = 0;      
    }  
$rValue = $tmpValue
}

#!/usr/bin/perl

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

my $ausgabe_Datei = "log3.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) );                                                        


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

for (my $i = 0; $i <= $numberProjects; $i++){
 
 my $bkupDirectory = $backupPath . "\\" . $pjDomain[$i] . "_" . $pjName[$i] . "_db";
 
  print LogDatei"Prüfe Existenz von " . $bkupDirectory . "\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){
        $bool = 1 if(existsActBackup($file,1));
    }
    print LogDatei "Backup vorhanden\n" if($bool);
    print LogDatei $_,"\n" for(@verzeichnisse);
    closedir DIR;
 } else {
    print LogDatei "Verzeichnis ist nicht vorhanden!\n";
   # LOG: Fehlermeldung ausweisen.
 } 
}

sub existsActBackup {
 my ($file,$max_age) = @_;
 my $tmpValue = 0;
 my $age = (time - (stat($file))[10]) / (60 * 60 * 24);
 if ($age < $max_age) {    
    $tmpValue = 1;
 } else {  
    $tmpValue = 0;      
 }  
 return $tmpValue;
}