#!/usr/local/bin/perl

use Date::Parse;
use POSIX;
use MIME::QuotedPrint;

while (<STDIN>){
	chomp;
	if ($hdr){
		/^Date:\s+(.*)/ && do {$date=$1;};
		/^From:\s+(.*)/ && do {$from=$1;};
		/^$/ && do {
			$hdr=0;
			next if( ($#ARGV+1) && !($from =~ /$ARGV[0]/i));

            $mail = decode_qp($from);
            $mail =~ s/=\?(?:ISO|iso).+?Q\?(.+)\?=/$1/;
			$mail = lc($mail);

			$HoH{int(str2time($date)/3600/24)}{$mail}++;
			$frm{$mail}++;
		};
	}else{
		/^From / && do {$hdr=1; undef $from,$date;};
	}
};

foreach $family ( sort {$a <=> $b} keys %HoH ) {
	print strftime("%d.%m.%Y: {\n",gmtime($family*60*60*24));
	for $role ( sort {$HoH{$family}{$a} <=> $HoH{$family}{$b} } keys %{ $HoH{$family} } ) {
		printf "%3d %s\n",$HoH{$family}{$role},$role;
	}
	print "}\n";
}

print "Totals: {\n";
for $key (sort {$frm{$a} <=> $frm{$b}} keys %frm){
	printf "%3d %s\n",$frm{$key},$key;
};
print "}\n";