#!/usr/bin/perl

use strict;
use DBI;
use DBD::mysql;

sub SendMail($$$);

my @monthnames = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)); 
my @msg;
my @datetime;

my ($rin, $nfound, $rout, $what, $dbh, $logtime, $logtable, $month);
my $strSQL = '';
my $category = '';
my $catflag = '';


$dbh = DBI->connect("DBI:mysql:database=logger;host=localhost",
                    "username", "password", {'RaiseError' => 1});

$rin="";
vec($rin,fileno(STDIN),1)=1;
open (TTY, "> /dev/tty1");

while (1) 
{

   sleep 1;
   $nfound=select($rout=$rin,"","",1);
   $what = ($nfound) ? <> : "";
   

   if ($what ne "")
   {
      $what = substr($what, index ($what, "MSWinEventLog"));
      @msg = split(/\t/, $what);
      @datetime = split(/ /, $msg[4]);

      for(0..11)
      {
         if ($monthnames[$_] eq $datetime[1]) {$month=++$_;}
      }
      $logtime = "$datetime[4]-$month-$datetime[2] $datetime[3]";

      if ($msg[9] =~ "Error") 
      {
         $logtable = 'error';
         SendMail($msg[10], $msg[5], $msg[13]);
      }elsif ($msg[9] =~ "Warning") 
      {
         $logtable = 'warning';
      }else 
      {
         $logtable = 'other'; 
         $category = "\'$msg[9]\',"; 
         $catflag='category, ';
      }
   
      $strSQL = "INSERT INTO $logtable ($catflag"."logtime, host, logtype, event_id," .
                " source, message) VALUES ($category \'$logtime\', \'$msg[10]\', " .
                "\'$msg[2]\', $msg[5], \'$msg[6]\', \'$msg[13]\')";
      $dbh->do($strSQL);

      $category = $catflag = '';
   }
}

#----------------- Send an email notification ---------------------
sub SendMail($$$)
{
   my ($host, $evnum, $msg) = @_;

   my $smtp = Net::SMTP->new(Host => 'smtp',
                             Timeout => 30,
                             Debug => 0);  #Set to 0 in production version

   $smtp->mail('Windows System Event');
   $smtp->to('admin');

   $smtp->data();
   $smtp->datasend("To: System Support\n");
   $smtp->datasend("Subject: Error event $evnum on $host\n");
   $smtp->datasend("\n");

   $smtp->datasend("$msg\n");
   $smtp->dataend();

   $smtp->quit;
}
#-----------------------------------------------------------------