diff --git a/ban2mysql.pl b/ban2mysql.pl index 30a7ec9..19133e8 100644 --- a/ban2mysql.pl +++ b/ban2mysql.pl @@ -8,30 +8,16 @@ use File::Slurp; use Mojo::UserAgent; -my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); -$year = $year+1900; +#my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); +#$year = $year+1900; -my $month2int = { - 'jan' => '01', - 'feb' => '02', - 'mar' => '03', - 'apr' => '04', - 'may' => '05', - 'jun' => '06', - 'jul' => '07', - 'aug' => '08', - 'sep' => '09', - 'oct' => '10', - 'nov' => '11', - 'dec' => '12' -}; # Connect to the database. my $dbh = DBI->connect("DBI:MariaDB:database=kram;host=edna", "steffen", "66WXRlvF0UUV", {'RaiseError' => 1}); -my @file = read_file('sys.log.1'); +my @file = read_file('/var/log/HWR/kernel.log.1'); my $ua = Mojo::UserAgent->new(); @@ -46,11 +32,11 @@ my %coun = @$country; $nolandips{$first} = (); for my $l ( @file ) { - 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 ( $year, $month, $day, $h, $m, $s, $kat, $src, $dst, $port ) = $l =~ /(\d{4})-(\d{2})-(\d{2})T(..):(..):(..)\+.* HWR kernel:.*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; - $month = $month2int->{lc $month}; my $mysqldt = "$year-$month-$day $h:$m:$s"; my $dt1 = DateTime->new( year => $year,