#!/usr/bin/perl
#
# Copyright: Pásztor György
# Usage: perl levelek.pl <mail.log
# összepárosítja a mailqueue-beli ID alapján a leveleket, hogy kitõl, kinek, mikor
#
use strict;

my %levelek;
my $sor;

while ($sor=<>) {
	if ($sor=~m/(\S+ +\d+ \d+:\d+:\d+).*postfix.*: ([0-9a-fA-F]+).*from=<([^>]*)>/) {
		$levelek{$2}{from}=$3;
		$levelek{$2}{date}=$1;
		print "DEBUG: from:$1,$2,$3\n";
	} elsif ($sor=~m/(\S+ +\d+ \d+:\d+:\d+).*postfix.*: ([0-9a-fA-F]+).*to=<([^>]*)>/) {
		$levelek{$2}{to}=$3;
		print "DEBUG: to:$1,$2,$3\n";
	} else {
		print "DEBUG: egyéb: $sor\n";
	}
}

foreach my $i (keys(%levelek)) {
	print $i.",".$levelek{$i}{date}.",".$levelek{$i}{from}.",".$levelek{$i}{to}."\n";
}
