showrequestfromblocklist.dat: Fix silly typos.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
Stefan Schantl
2022-04-05 05:02:30 +02:00
parent 82fea6d575
commit 6223e2b498

View File

@@ -156,13 +156,13 @@ if (!(open (FILE,($filestr =~ /.gz$/ ? "gzip -dc $filestr |" : $filestr)))) {
} }
my $lines = 0; my $lines = 0;
my @log=(); my @log=();
my $blaoklist = $cgiparams{blocklist}; my $blocklist = $cgiparams{blocklist};
if (!$skip) if (!$skip)
{ {
while (<FILE>) { while (<FILE>) {
if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)\s?IN=.*/) { if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)\s?IN=.*/) {
if($1 eq $blacklist){ if($1 eq $blocklist){
$log[$lines] = $_; $log[$lines] = $_;
$lines++; $lines++;
} }
@@ -187,7 +187,7 @@ if ($multifile) {
if (!$skip) { if (!$skip) {
while (<FILE>) { while (<FILE>) {
if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)\s?IN=.*/) { if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)\s?IN=.*/) {
if($1 eq $blacklist){ if($1 eq $blocklist){
$log[$lines] = $_; $log[$lines] = $_;
$lines++; $lines++;
} }
@@ -309,7 +309,7 @@ foreach $_ (@slice) {
$a = $_; $a = $_;
# Check whether valid ipv4 or ipv6 address # Check whether valid ipv4 or ipv6 address
if (($_ =~ /BLKLST_(\w+)\s?IN=/)) { if (($_ =~ /BLKLST_(\w+)\s?IN=/)) {
if($1 eq $blacklist) { if($1 eq $blocklist) {
my $in = '-'; my $out = '-'; my $in = '-'; my $out = '-';
my $srcaddr = ''; my $dstaddr = ''; my $srcaddr = ''; my $dstaddr = '';
my $protostr = ''; my $protostr = '';