email parsing->mysql:: Can someone explain me this perl script?
From: albatroz (alejandro.lengua_at_gmail.com)
Date: 08/30/04
- Next message: Ilya Zakharevich: "Re: OS/2 port of Perl 5.8 not adding CR to \n"
- Previous message: Eric Schwartz: "Re: how many days ago is 2003-07-20 ?"
- Next in thread: Tad McClellan: "Re: email parsing->mysql:: Can someone explain me this perl script?"
- Reply: Tad McClellan: "Re: email parsing->mysql:: Can someone explain me this perl script?"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: 30 Aug 2004 11:20:50 -0700
I am a perl noob that can learn if you give me a hand.
I currently need a script to read emails using email piping,
extract some information and put it inside a MySQL database.
The reason? Make some statistics of my email server antivirus.
The sample body of my emails is as follows:
-----------------> Source of Sample email source <---------
From: "MailScanner" <postmaster@mydomain.com>
To: postmaster@mail.mydomain.com
Subject: Advertencia: Virus detectado en e-mail
Message-Id: <E1C1YEW-000372-5g@mail.mydomain.com>
Date: Sun, 29 Aug 2004 17:33:08 -0500
Body:
Se han encontrado virus en el siguiente e-mail:
Sender: noreply@mydomain.org.pe
IP Address: 200.106.12.141.22214
Recipient: mipersona@mydomain.org.pe
Subject: RETURNED MAIL: SEE TRANSCRIPT FOR DETAILS
MessageID: 1C1YEL-0002Zn-VA
Informe: message.zip contains Worm.Mydoom.M
-----------------> Source of Sample email source <---------
For this purpose I got this script (called amavistat), however
I need that someone tells me what modifications should I do to
to make it work in my case, here I am attaching the source of
the script
#!/usr/bin/perl
# Veghead 2001
# Fixed stupid '=' vs 'eq' bug - Veghead 2003-08-14
#
# changes 18.08.03 - Marcus Schopen <marcus@localguru.de>
use DBD::mysql;
$server='localhost';
$dbname='amavistat';
$table='virus';
$username='xxx';
$password='xxx';
$state="inheader";
$dbh=DBI->connect("DBI:mysql:$dbname:$server",$username,$password) or
die("Can't connect to MySQL");
$state="inheader";
while(<>) {
chomp;
if ($state eq "inheader") {
if (length($_)<2) {$state="inbody";}
elsif ($_=~/^Subject: VIRUS FROM <(.*)> \((.*)\)/) {
$virusfrom=$1;
$viruses=$2;
$viruswarn++;
}
} elsif ($state="inbody") {
if ($_=~/^-> <([^\@]+\@[^\@]+)>/) {
$virusto=$1;
if ($viruswarn) {do_something();}
}
}
}
sub do_something {
foreach $vname ($viruses) {
print "From: $virusfrom\nTo: $virusto\nVirus: $vname\n\n";
$sth = $dbh->prepare("insert into $table values
(0,now(),'$virusfrom','$virusto',
'$vname')");
$sth->execute;
$sth->finish;
}
}
- Next message: Ilya Zakharevich: "Re: OS/2 port of Perl 5.8 not adding CR to \n"
- Previous message: Eric Schwartz: "Re: how many days ago is 2003-07-20 ?"
- Next in thread: Tad McClellan: "Re: email parsing->mysql:: Can someone explain me this perl script?"
- Reply: Tad McClellan: "Re: email parsing->mysql:: Can someone explain me this perl script?"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
|
