allow pc73 for DXNet

diff --git a/Changes b/Changes
index 84505f0c875c2723ad289464c4b5e2a886c82f06..2bb13dd36fb469732dcf721950a6297dae400729 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 02Nov00=======================================================================
 1. updated filtering logic. You will need to RECREATE your filters (clear/spot
 all, then start again) for testing.
+2. allow PC73 for DXNet
 01Nov00=======================================================================
 1. put PC11 field 2 check back to m for pc text.
 2. improve 'simple' callsign checking

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index bc27c417c8df7f85b5e5c15e582e0a507fb8f5d7..441edc6138110705f8bddaada25999252178937c 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1231,7 +1231,7 @@ sub send_wcy_spot
                         ($filter, $hops) = $dxchan->{wcyfilter}->it(@_, $self->{call} );
                         next unless $filter;
                }
-               if ($dxchan->is_clx || $dxchan->is_spider) {
+               if ($dxchan->is_clx || $dxchan->is_spider || $dxchan->is_dxnet) {
                        next if $dxchan == $self;
                        if ($hops) {
                                $routeit = $line;

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 7242c63660669ae56267343240d33a19de66417e..226aff4a22987f820934fcbfef9b11f7f4b124dc 100644 (file)
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -143,12 +143,15 @@ sub getfilkeys
 # The filter returns 0 if an entry is matched by any reject rule and also if any
 # accept rule fails otherwise it returns 1
 #
-# Either set of rules may be missing meaning an implicit 'ok'
+# Either set of rules may be missing meaning an implicit 'opposite' ie if it
+# a reject then ok else if an accept then not ok.
+#
+# you can set a default with either an accept/xxxx all or reject/xxxx all
 #
 # Unlike the old system, this is kept as a hash of hashes so that you can
 # easily change them by program.
 #
-# You can have a [any] number of 'filters', they are tried in random order until 
+# You can have 10 filter lines (0->9), they are tried in order until 
 # one matches
 #
 # There is a parser that takes a Filter::Cmd object which describes all the possible