From: minima <minima>
Date: Thu, 2 Nov 2000 16:24:56 +0000 (+0000)
Subject: allow pc73 for DXNet
X-Git-Tag: R_1_45~52
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=478a52c72ec787bf037111f4b46233fcf60d5068;p=spider.git

allow pc73 for DXNet
---

diff --git a/Changes b/Changes
index 84505f0c..2bb13dd3 100644
--- 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 bc27c417..441edc61 100644
--- 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 7242c636..226aff4a 100644
--- 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