steffen/banip
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neuer regex

Browse Source
This commit is contained in:
steffen
2025-02-15 12:19:29 +01:00
parent 639a0327e4
commit c68334e163
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ban2mysql.pl
View File

@@ -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;