From c68334e1637b4ad83d0c0bd8e1895dac76bead6e Mon Sep 17 00:00:00 2001 From: steffen Date: Sat, 15 Feb 2025 12:19:29 +0100 Subject: [PATCH] neuer regex --- ban2mysql.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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;