#!/bin/sh

`dirname $0`/dbm_dump.pl /var/spool/exim/db/greylist.db \
    | perl -e '
use Time::localtime;

while (<>) {
    s/([\w_]+=\d{9,})/unixtime2datetime($1)/eg;
    print($_);
}

sub unixtime2datetime() {
    my($param, $unixtime) = split(/=/, shift(@_));
    $lt = localtime($unixtime);
    return(sprintf("%s=%04d%02d%02d %02d:%02d:%02d",
	$param,
	$lt->year + 1900,
        $lt->mon + 1,
	$lt->mday,
	$lt->hour,
	$lt->min,
	$lt->sec
    ));
}
'