projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
eca912f
)
improve debugging on filtering?
author
minima
<minima>
Thu, 14 Jun 2001 21:58:17 +0000
(21:58 +0000)
committer
minima
<minima>
Thu, 14 Jun 2001 21:58:17 +0000
(21:58 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index dffb2055407c700ea8fe831d95241b7c630d2d93..d5e886e5a37f33bad133c89146c239c7a8e86824 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-388,7
+388,7
@@
sub normal
if ($self->{inspotsfilter}) {
my ($filter, $hops) = $self->{inspotsfilter}->it(@spot);
unless ($filter) {
if ($self->{inspotsfilter}) {
my ($filter, $hops) = $self->{inspotsfilter}->it(@spot);
unless ($filter) {
- dbg("PCPROT: Rejected by filter") if isdbg('chanerr');
+ dbg("PCPROT: Rejected by
input spot
filter") if isdbg('chanerr');
return;
}
}
return;
}
}
@@
-502,7
+502,7
@@
sub normal
my ($filter, $hops) = $self->{inannfilter}->it(@field[1..6], $self->{call},
$ann_dxcc, $ann_itu, $ann_cq, $org_dxcc, $org_itu, $org_cq);
unless ($filter) {
my ($filter, $hops) = $self->{inannfilter}->it(@field[1..6], $self->{call},
$ann_dxcc, $ann_itu, $ann_cq, $org_dxcc, $org_itu, $org_cq);
unless ($filter) {
- dbg("PCPROT: Rejected by filter") if isdbg('chanerr');
+ dbg("PCPROT: Rejected by
input announce
filter") if isdbg('chanerr');
return;
}
}
return;
}
}
@@
-1759,7
+1759,7
@@
sub send_route
if ($filter) {
push @rin, $r;
} else {
if ($filter) {
push @rin, $r;
} else {
- dbg(
'DXPROT: Rejected by filter'
) if isdbg('chanerr');
+ dbg(
"DXPROT: $self->{call}/" . $r->call . " rejected by output filter"
) if isdbg('chanerr');
}
} else {
dbg("was sent a null value") if isdbg('chanerr');
}
} else {
dbg("was sent a null value") if isdbg('chanerr');
@@
-1851,7
+1851,7
@@
sub in_filter_route
if ($self->{inroutefilter}) {
($filter, $hops) = $self->{inroutefilter}->it($self->{call}, $self->{dxcc}, $self->{itu}, $self->{cq}, $r->call, $r->dxcc, $r->itu, $r->cq);
if ($self->{inroutefilter}) {
($filter, $hops) = $self->{inroutefilter}->it($self->{call}, $self->{dxcc}, $self->{itu}, $self->{cq}, $r->call, $r->dxcc, $r->itu, $r->cq);
- dbg(
'PCPROT: rejected by filter
') if !$filter && isdbg('chanerr');
+ dbg(
"PCPROT: $self->{call}/" . $r->call . ' rejected by in_filter_route
') if !$filter && isdbg('chanerr');
}
return $filter;
}
}
return $filter;
}