diff --git a/ban2mysql.pl b/ban2mysql.pl index 3c3dd3d..30a7ec9 100644 --- a/ban2mysql.pl +++ b/ban2mysql.pl @@ -46,7 +46,7 @@ my %coun = @$country; $nolandips{$first} = (); for my $l ( @file ) { - my ( $month, $day, $h, $m, $s, $kat, $src, $dst, $port ) = $l =~ /(.*?) (.*?) (..):(..):(..) 192.*banIP\/...-wan\/drop\/(.*?):.*SRC=(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}) DST=(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}).*DPT=(\d+)/; + my ( $month, $day, $h, $m, $s, $kat, $src, $dst, $port ) = $l =~ /(.*?) (.*?) (..):(..):(..) 192.*banIP\/inbound\/drop\/(.*?):.*SRC=(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}) DST=(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}).*DPT=(\d+)/; my $dt = ''; if ( $month ) { $day = sprintf "%02d", $day;