#!/usr/bin/perl

my $first=1;
print "insert into banips(date,ip) values ";
while (<>) {
/^(.*) CHKUSER.*unknown:(.*)\> rcpt .*/;
my $time=$1;
my $ip=$2;
$time=~ s/\.\d+//;
my $printout=",";
if ($first) {$printout=""; $first=0;}
$printout .= "(\"$time\", \"$ip\")\n";
print $printout;
}