fix einstellige Zahlen in im Tag zu 2 Stelligen konvertiert

ban2mysql.pl

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