Thread Unterverzeichnisse prüfen auf Dateien (3 answers)
Opened by leissi at 2006-01-18 11:43

leissi
 2006-01-18 11:43
#62019 #62019
User since
2005-07-06
84 articles
BenutzerIn
[default_avatar]
Hallo,

will zu einer Subroutine ein verzeichnis mit Unterverzeichnissen prüfen auf aktuelle Dateien!
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
# 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 = "Ja";
         
          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 = '//sv040555.zitd.global.commerzbank.com//D$//Backup//MSSQL//TRN//ztb_treasurycockpit_db';
          opendir(DIR,$dir1) or die $!; # Verzeichnis "öffnen"
     
     
          my @verzeichnisse1 = grep{-M $dir1 .'/'.$_}readdir(DIR);
          my $bool = 0; #0 = Nein
          for my $file(@verzeichnisse1)
       
        {  
            if(existsGlobalCheck($dir1.'/'.$file,1))
            {
               $bool = 1;  #1 = Ja
               print LogDatei '-' x 130, "\n";
               print LogDatei "\n ----------------------------LOG Dateien vorhanden----------------------------- \n" . $bool . " 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 == 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";
         }
           
            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";
         }
   }# End of: sub runSqlTrnCheck  
 
#***************************  
#Ende der Subroutinen  
#***************************  

Die Prüfung erfolgt auch nur leider explizit für ein Unterverzeichnis!

Gruss
Leissi\n\n

<!--EDIT|esskar|1137581005-->

View full thread Unterverzeichnisse prüfen auf Dateien