#!/usr/bin/perl -w
use strict;
$|++;

my %montonum = ( Jan => 1, Feb => 2, Mar => 3, Apr => 4, May => 5, Jun => 6,
		 Jul => 7, Aug => 8, Sep => 9, Oct => 10, Nov => 11, Dec => 12 );

my($cm,$cy) = (localtime)[4,5];
$cy += 1900;

while(defined($_=<>) && chomp) {
	next unless ( / spamd\[\d+\]: .*?for [^:]+:\d+ / );
	my($month,$day,$time,$score) = m#^(\S+)\s+(\S+)\s+(\S+)\s+.*?\s+\(([0-9.-]+)/#;
	$month = $montonum{$month};
	my $year = $cy;
	$year-- if ( $cm == 0 && $month == 12 );
	printf "%4d-%02d-%02d %s\t%.1f\n",$year,$month,$day,$time,$score;
}