#!/usr/bin/perl
use strict;
use warnings;
require "sendmail.pl";

# wofür brauchst du das?
use Win32;
my $SName = Win32::NodeName();


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

# Anführungszeichen unnötig, stören sogar
# einmal mit kleinem .log einmal mit großem .LOG?
my @logfiles = qw/BACKUP_XX_ARCH.log BACKUP_XX_FULL.LOG/;

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

my $Fehler = 0;
my $Fehler_Text='';
my @errors;

foreach my $Log_Name (@logfiles)
{
  if (-f $Log_Name)
  {
    # Da stimmt aber was nicht...
    # my $mtime = ($Writetime) = (stat(@logfiles))[8,9];
    # wolltest du sowas schreiben?
    my ($atime, $mtime)=(stat("$Pfad\\$Log_Name"))[8,9];
    # auch bei stat den vollständigen Pfad angeben.

    # Änderung am Logfile jünger als 24 Stunden
    if(time()-$mtime < 24*60*60)
    {
      # lexikalische Filehandles und Fehlermeldung
      # open lifert bei Erfolg true (1) zurück
      if(open(my $InFile,"$Pfad\\$Log_Name"))
      {
        # Trennzeichen für ReadLine auf undef setzen
        # => ganze Datei einlesen
        local $/=undef;
        my $Text=<$InFile>;
        close($InFile);

        # der match-Operator gibt beim auffinden "true" (1) zurück
        if ($Text =~ /ERROR/)
        {
          $Fehler = 1;
          $Fehler_Text .= $Text;
          push @errors, $Text;
        }
        else
        {
          $Fehler_Text .= "Check RMAN-Log OK!\n";
        }
      }
      else
      {
        # in $! steht der Fehler beim open.
        push @errors, "Log $Log_Name konnte nicht geöffnet werden ($!)\n";
      }
    }
    else
    {
      push @errors, "Log $Log_Name nicht von heute\n";
    }
  }
  else
  {
    push @errors, "Log $Log_Name existiert nicht\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);
}