use strict;

# LICENSE GPLv2 or lator;
# 2017/01/02
# copylight ribbon@users.sourceforge.jp
#
# sshguard blacklist.db dump program
# ver 0.1

my $blacklist_time;
my $service_no;
my $address_kind;
my $address_value;
my $sec;
my $min;
my $hour;
my $mday;
my $month;
my $year;
my $wday;
my $stime;
my $times;
my @week = ('Sun', 'Mon', 'Tue', 'Wed', 'Thr', 'Fri', 'Sut');

while (<>) {
    ($blacklist_time,$service_no,$address_kind,$address_value) = split /\|/;
    ($sec,$min,$hour,$mday,$month,$year,$wday,$stime) = localtime($blacklist_time);
    $times = sprintf( "%04d\/%02d\/%02d\(%s\) %02d\:%02d:%02d", 
             $year+1900,$month+1,$mday,$week[$wday],$hour,$min,$sec);
    printf "blaclist_time= %s,sevice_no=%d,address_kind=%d,address_value=%s\n",
    $times,$service_no,$address_kind,$address_value;
}