fix einstellige Zahlen in im Tag zu 2 Stelligen konvertiert
This commit is contained in:
@@ -31,7 +31,7 @@ my $dbh = DBI->connect("DBI:MariaDB:database=kram;host=edna",
|
||||
"steffen", "66WXRlvF0UUV",
|
||||
{'RaiseError' => 1});
|
||||
|
||||
my @file = read_file('sys.log');
|
||||
my @file = read_file('sys.log.1');
|
||||
|
||||
my $ua = Mojo::UserAgent->new();
|
||||
|
||||
@@ -47,9 +47,9 @@ $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 $dt = '';
|
||||
if ( $month ) {
|
||||
$day = sprintf "%02d", $day;
|
||||
$month = $month2int->{lc $month};
|
||||
my $mysqldt = "$year-$month-$day $h:$m:$s";
|
||||
my $dt1 = DateTime->new(
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
Jan 26 00:00:00 192.168.2.1 kernel: [715906.879921] banIP/inp-wan/drop/countryv4: IN=wan OUT= MAC=80:af:ca:48:69:c7:00:17:10:98:c8:0e:08:00 SRC=78.128.113.38 DST=91.66.60.83 LEN=40 TOS=0x00 PREC=0x00 TTL=246 ID=45792 PROTO=TCP SPT=46209 DPT=27518 WINDOW=1024 RES=0x00 SYN URGP=0
|
||||
Jan 6 00:00:00 192.168.2.1 kernel: [715906.879921] banIP/inp-wan/drop/countryv4: IN=wan OUT= MAC=80:af:ca:48:69:c7:00:17:10:98:c8:0e:08:00 SRC=78.128.113.38 DST=91.66.60.83 LEN=40 TOS=0x00 PREC=0x00 TTL=246 ID=45792 PROTO=TCP SPT=46209 DPT=27518 WINDOW=1024 RES=0x00 SYN URGP=0
|
||||
Jan 26 00:00:00 192.168.2.1 kernel: [715906.958900] banIP/fwd-wan/drop/countryv4: IN=wan OUT=br-lan MAC=80:af:ca:48:69:c7:00:17:10:98:c8:0e:08:00 SRC=170.244.219.165 DST=192.168.2.5 LEN=52 TOS=0x00 PREC=0x00 TTL=105 ID=18298 DF PROTO=TCP SPT=29578 DPT=443 WINDOW=64240 RES=0x00 SYN URGP=0
|
||||
Jan 26 00:00:00 192.168.2.1 kernel: [715906.968739] banIP/fwd-wan/drop/countryv4: IN=wan OUT=br-lan MAC=80:af:ca:48:69:c7:00:17:10:98:c8:0e:08:00 SRC=170.244.218.78 DST=192.168.2.5 LEN=52 TOS=0x00 PREC=0x00 TTL=117 ID=39495 DF PROTO=TCP SPT=3522 DPT=443 WINDOW=64240 RES=0x00 SYN URGP=0
|
||||
Jan 26 00:00:06 192.168.2.1 kernel: [715912.824316] banIP/fwd-wan/drop/countryv4: IN=wan OUT=br-lan MAC=80:af:ca:48:69:c7:00:17:10:98:c8:0e:08:00 SRC=170.244.219.175 DST=192.168.2.5 LEN=52 TOS=0x00 PREC=0x00 TTL=114 ID=31201 DF PROTO=TCP SPT=55627 DPT=443 WINDOW=64240 RES=0x00 SYN URGP=0
|
||||
|
||||
Reference in New Issue
Block a user