log-prefix.
Signed-off-by: Rob Brewer <rob.brewer@ipfire.org>
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
if (!$skip)
{
while (<FILE>) {
- if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)IN=.*/) {
- if($1 eq $blocklist){
+ if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)\s?IN=.*/) {
+ if($1 eq $blacklist){
$log[$lines] = $_;
$lines++;
}
}
if (!$skip) {
while (<FILE>) {
- if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)IN=.*/) {
- if($1 eq $blocklist){
+ if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)\s?IN=.*/) {
+ if($1 eq $blacklist){
$log[$lines] = $_;
$lines++;
}
foreach $_ (@slice) {
$a = $_;
# Check whether valid ipv4 or ipv6 address
- if (($_ =~ /BLKLST_(\w+)IN=/)) {
- if($1 eq $blocklist) {
-
+ if (($_ =~ /BLKLST_(\w+)\s?IN=/)) {
+ if($1 eq $blacklist) {
my $in = '-'; my $out = '-';
my $srcaddr = ''; my $dstaddr = '';
my $protostr = '';