# Subroutine1 Datei-Zeitstempel nicht älter als 1 Tag

# 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 existsTimeStamp 
   {
     
     my ($file,$max_age) = @_;
     my $tmpValue = 0;
     #print LogDatei $tm;#
     my $age = (time - (stat($file))[10]) / ( 24 * 60 * 60 );
     print LogDatei ("Info:  " . $age . "und" . $max_age . "Alter");
     if ($age < $max_age) 
       {    
         $tmpValue = 1;
        # print LogDatei ("INFO: ","Aktuelle Datei" . $file . " vorhanden!");
        # print LogDatei ("INFO","file  stat($datei)");
       } 
     else 
       {  
         $tmpValue = 0; 
        # print LogDatei ("INFO: ","Aktuelle Datei" . $file . " nicht vorhanden!");
       }  
     return $tmpValue;
   }