14. Corrected Pc84/85 handling a bit.

[spider.git] / perl / DXProtVars.pm

diff --git a/perl/DXProtVars.pm b/perl/DXProtVars.pm
index 52477433c531adefb96c416bc8de6f30498c6c9e..483f954e84723cb0277d7549e152712b025d04c0 100644 (file)
--- a/perl/DXProtVars.pm
+++ b/perl/DXProtVars.pm
@@ -21,18 +21,36 @@ $pc19_max_nodes = 5;
 $pc50_interval = 14*60;
 
 # the version of DX cluster (tm) software I am masquerading as
-$myprot_version = "5447";
+$myprot_version = 5300;
 
 # default hopcount to use
 $def_hopcount = 15;
 
 # some variable hop counts based on message type
 %hopcount = (
-  11 => 25,
+  11 => 10,
   16 => 10,
   17 => 10,
   19 => 10,
   21 => 10,
 );
 
+# list of nodes we don't accept dx from
+@nodx_node = (
 
+);
+
+# list of nodes we don't accept announces from
+@noann_node = (
+
+);
+
+# list of node we don't accept wwvs from
+@nowwv_node = (
+
+);
+
+# send out for/opernams for callsigns sending dx spots who haven't got qra locators
+$send_opernam = 0;
+
+1;