my $code = 'true';

#!/usr/bin/perl -w

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


     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) );
     
                                                         


#########################################################################################################################
##########################################################################################################################
###########################################################################################################################
# Subroutinenaufruf der einzelnen Prüfroutinen
 &runSqlBackCheck; # start subroutine: runSqlBackCheck
 &runOtaCheck; # start subroutine: runOtaCheck
 &runSqlTrnCheck; # start subroutine: runSqlTrnCheck 

 my $Block3 = $bool_runSqlTrnCheck; ## Hier an der Stelle soll nochmals das Ergebnis aus der Subroutine ausgegeben werden!           
 

# 3 Block hier werden die Transactionlog-Dateien geprüft
  sub runSqlTrnCheck
    {
      #Überprüfung LogDatei-Verzeichnis

         
      
      # 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 $runSQLTrnCheck = 1;
           
      print LogDatei  '*' x 130, "\n\n";
      print LogDatei  '#' x 130, "\n";
      print LogDatei  '#' x 130, "\n\n";
      print LogDatei " TRN LOG-Verzeichnischeck beginnt: $tm \n\n\n";
      print LogDatei  '#' x 130, "\n\n";  
      
      my $dir1 = '//D$//Backup//MSSQL//TRN//ztb_treasurycockpit_db';
      opendir(DIR,$dir1) or die $!; # Verzeichnis "öffnen"    
      
      my @verzeichnisse1 = grep{-M $dir1 .'/'.$_}readdir(DIR);
      my $bool_runSqlTrnCheck = 0; #0 = Nein
      for my $file(@verzeichnisse1)         
        {       
          if(existsGlobalCheck($dir1.'/'.$file,1)) 
            {    
               $bool_runSqlTrnCheck = 1;  #1 = Ja
               print LogDatei '-' x 130, "\n";
               print LogDatei "\n ----------------------------LOG Dateien vorhanden----------------------------- \n" . $bool_runSqlTrnCheck . " LOG-Dateien gefunden!\n";
                print LogDatei $file . "\n \n" . @verzeichnisse1 . " LOG-Dateien (TRN) im Verzeichnis " . $dir1 . " vorhanden!";
                print LogDatei '-' x 130, "\n";
            }
          else
            {
              #print LogDatei "--------------------------------------------------------------------------\n";
              #print LogDatei " Aktuelle Datei ist nicht vorhanden!\n";
              #print LogDatei "--------------------------------------------------------------------------\n"; 
            }          
         }
           if ($bool_runSqlTrnCheck == 1) # 1= Ja 
             {
                print LogDatei '-' x 130, "\n";
                print LogDatei "INFO : Es besteht in dem Verzeichnis mind. eine aktuelle LOG-Dateien!\n";
                print LogDatei '-' x 130, "\n";
             }
           else       
             {
               print LogDatei '-' x 130, "\n";
               print LogDatei "ERROR: Es besteht in dem Verzeichnis keine aktuelle LOG-Dateien!\n";
               print LogDatei '-' x 130, "\n";
               $runSQLTrnCheck = 0;
             }
           unless($runSQLTrnCheck)
             {
               print LogDatei '-' x 130, "\n";
               print LogDatei "ERROR: LOG-Dateien unvollständig !!!!!\n";
               print LogDatei '-' x 130, "\n";
               print LogDatei '#' x 130, "\n";
               print LogDatei '#' x 130, "\n\n\n"; 
             }
           return $bool_runSqlTrnCheck;  
      
    }# End of: sub runSqlTrnCheck   
  
#***************************   
#Ende der Subroutinen   
#***************************   
##########################################################################################################################################