From 905063b392672f001b4900bb9033c8fefa77f2d5 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 15 Jun 2001 11:38:09 +0000 Subject: [PATCH] add in and out to filter debugging --- perl/Filter.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/perl/Filter.pm b/perl/Filter.pm index 5f6b9bf1..676cef2b 100644 --- a/perl/Filter.pm +++ b/perl/Filter.pm @@ -89,7 +89,7 @@ sub compile if ($@) { my $sort = $ref->{sort}; my $name = $ref->{name}; - dbg("Error compiling $ar $sort $name: $@") if isdbg('err'); + dbg("Error compiling $ar $sort $name: $@"); Log('err', "Error compiling $ar $sort $name: $@"); } $rr = $@; @@ -222,8 +222,10 @@ sub it my $args = join '\',\'', @_; my $true = $r ? "OK" : "REJ"; my $sort = $self->{sort}; + my $dir = $self->{name} ~= /^in_/i ? "IN " : "OUT"; + $hops ||= "none"; - dbg("Filter: $type/$sort with $asc on '$args': $true hops: $hops") if isdbg('filter'); + dbg("$dir: $type/$sort with $asc on '$args': $true hops: $hops") if isdbg('filter'); } return ($r, $hops); } -- 2.43.0