77 lines
2.0 KiB
Perl
77 lines
2.0 KiB
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
use DBI;
|
|
|
|
use Data::Printer;
|
|
use File::Slurp;
|
|
|
|
use Mojo::UserAgent;
|
|
|
|
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',
|
|
'dez' => '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 $ua = Mojo::UserAgent->new();
|
|
|
|
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+)/;
|
|
$ua->get("http://ip-api.com/json/$src" => {Accept => '*/*'})->result->body;
|
|
p $ua;
|
|
|
|
my $dt = '';
|
|
if ( $month ) {
|
|
$month = $month2int->{lc $month};
|
|
$dt = "$year-$month-$day $h:$m:$s";
|
|
p $dt;
|
|
|
|
my $da = $dbh->selectrow_hashref('SELECT * FROM banip WHERE src = ? and port = ?', undef, $src, $port );
|
|
if ( $da ) {
|
|
$dbh->do('UPDATE banip set count = count + 1, updated = ? WHERE src = ? and port = ?', undef, $dt, $src, $port );
|
|
} else {
|
|
$dbh->do(
|
|
'INSERT INTO banip (
|
|
created,
|
|
updated,
|
|
src,
|
|
dst,
|
|
port,
|
|
kat)
|
|
VALUES (
|
|
?,
|
|
?,
|
|
?,
|
|
?,
|
|
?,
|
|
?)', undef,
|
|
$dt,
|
|
$dt,
|
|
$src,
|
|
$dst,
|
|
$port,
|
|
$kat);
|
|
}
|
|
}
|
|
}
|