notification de mail entrant - postfix/linux
Bonjour,
je cherche un petit script permettant d'analyser le fichier /var/log/mail.log puis extraire les infos comme :
Date
mail_from
mail_to
enfin les envoyer à user@domain.local. Dans un premier temps je les affiche pour voir déjà si ça marche.
Je ne maîtrise pas Perl et encore moins les expressions régulières:). Est ce que quelqu'un peut me donner un coup de main, pour faire ce script ?
J'imagine un début de ce type
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| #!/usr/bin/perl -w
use strict;
my $mail_from;
my $mail_to;
my $date;
open(FILE, "/var/log/mail.log") or die "je n'ai pas pu ouvrir le fichier mail.log: $!; aborting";
while (<FILE>) {
if ($_ =~ belle expression régulière) {
$date = $1;
$mail_from = $2;
$mail_to = $3;
print "date: \t", $date,"\n";
print "mail_from: \t", $mail_from,"\n";
print "mail_to: \t", $mail_to,"\n\n";
}
}
close(FILE) |
;
