Thread Änderungsdatum auslesen und funktion zurückliefern (15 answers)
Opened by michaelf2050 at 2009-11-03 15:39

michaelf2050
 2009-11-03 15:39
#127697 #127697
User since
2009-11-03
19 Artikel
BenutzerIn
[default_avatar]
Hallo - ich habe folgendes Problem (ich bin ein Perl neuling:) - das sollte sich aber nicht als Problem herausstellen.
ich muß ein script schreiben, mit dem ich RMAN-Logfiles überprüfe (heutiges Datum Ja - dann Mail an Verteiler mit OK - wenn File nicht von heutigem Datum ist - dann Meldung "Rman nicht vorhanden" - ich habe dafür ein vorhandenes script herangezogen, und versucht zu modifizieren - ich habe jetzt das Problem mit dem Datumsauslesen - vielleicht kann mir jemand helfen :)
Code (perl): (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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

#!/usr/bin/perl



require "sendmail.pl";

use Win32;



$SName = Win32::NodeName();

$Pfad = "D:\\ADMIN\\rman\\logs";

$Log_Name = "BACKUP_XX_ARCH.LOG";

@logfiles = qw/"BACKUP_XX_ARCH.log" "BACKUP_XX_FULL.LOG"/;

$bodyfile = "D:\\admin\\perl\\temp\\RBL.txt";

$Fehler = 0;

my @errors;



foreach my $Log_Name (@logfiles) {

if (-f $Log_Name) {

  my $mtime = ($Writetime) = (stat(@logfiles))[8,9];


 if $Writetime =

  <hier weiter...>

open(InFile,"$Pfad\\".$Log_Name);

     while(<InFile>)

            {

            $Text .= $_;

            }

close(InFile);

$Text =~ /(ERROR)/g;

if ($1 eq "ERROR")

     {

     $Fehler = 1;

     $Fehler_Text .= $Text;                      ,

  push @errors, $Text;

     }

     else

     {

     $Fehler_Text .= "Check RMAN-Log OK!\n";

     }

<sonst hier weiter>

} else {

   push @errors, "Log $Log_Name nicht von heute\n";

}

if (@errors) {

open (FO,">$bodyfile");

print FO @errors."\n";

close(FO);

     print "$Fehler_Text";

     sendmail("RMAN_Error",$bodyfile);

     exit 999;

} else {

     sendmail("RMAN_OK",$bodyfile);

}


//Modedit GwenDragon: Code bitte das nächste Mal in CODE- oder PERL-Tags stellen
Last edited: 2009-11-03 15:40:55 +0100 (CET)

View full thread Änderungsdatum auslesen und funktion zurückliefern