#!/usr/local/bin/perl
# 
use Sys::Hostname;
use Net::SMTP;
use File::Find::Rule;

# Paramter für Mail Versand
#-----------------------------
$SID            = <SYSTEM>;
$local_host     = hostname();
$mailServer     = "<MAILSERVER>"; 
$from           = "$ABSENDER\@$local_host";
$to             = "Test@TEST.de"; 

my $output = "F:\\temp\\out\\output.txt";
my $directory = "F:\\Ziel\\log";
my $timelimit = time - (60 * 15);

my @files = File::Find::Rule->file()                    # Rückgabe aller Files < 15min
                            ->mtime( ">$timelimit" )
                            ->in( $directory );
if (@files[0] ne '' )                                   #Wenn Array ungleich "leer" dann "Installer läuft"
{
                printf "Alles Gut/n";
}
else
{
        printf "Pruefen/n";
        open(DATA,"F:\\<INSTDIR>\\log\\Console.log");
        $newline = 1;
        for ($i=-1; seek(DATA,$i,2); $i--) {
        read DATA,$char,1;
        if ($char eq "\n") {$i--; $newline++;}
        last if ($newline > 20);
        $string = $char.$string;
        }
        close(DATA);
        @last20lines = split(/\n/, $string);
        printf "=============";
        printf "@last20lines";
        printf "=============";
   
        open (DATEI, ">>$output") or die $!;
        print DATEI "@last20lines";
        close (DATEI);  
        
        #E-Mail Benachrichtigung
        $smtp = Net::SMTP->new($mailServer);
        $smtp->mail($from);
        $smtp->to($to);
        $smtp->data(); 
        $smtp->datasend("To: $to\n");
        $smtp->datasend("From: $from\n");
        $smtp->datasend("Subject: SUM Installer benoetigt Eingabe\n");
        $smtp->datasend("MIME-Version: 1.0\n");
        $smtp->datasend("Content-type: multipart/mixed; boundary=\"frontier\"/n");
        $smtp->datasend("\n--frontier/n");
        $smtp->datasend("Content-type: text/plain/n");
        $smtp->datasend("Content-Type: application/text; name=\"output.txt\"/n");       # ATTACHMENT funktioniert noch nicht
        $smtp->datasend("Content-Disposition: attachment; filename=\"output.txt\"/n");  # ATTACHMENT funktioniert noch nicht
        $smtp->datasend("/n");
        #$smtp->datasend("TESTESTTEST/n");
        $smtp->dataend();
        $smtp->quit;
        
}