put dx.pl into an explicit handle sub

[spider.git] / perl / DXProtVars.pm

diff --git a/perl/DXProtVars.pm b/perl/DXProtVars.pm
index dcd51d611d3ff56334062beb17c7bfc712ab0ca5..ae192bcff38d83b6c4dec4c76029dd293507a44c 100644 (file)
--- a/perl/DXProtVars.pm
+++ b/perl/DXProtVars.pm
@@ -6,33 +6,27 @@
 #
 # Copyright (c) 1998 - Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 package DXProt;
 
-# maximum number of users in a PC16 message
-$pc16_max_users = 5;
-
-# maximum number of nodes in a PC19 message
-$pc19_max_nodes = 5;
-
 # the interval between pc50s (in seconds)
-$pc50_interval = 14*60;
+$pc50_interval = 60*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;
+$def_hopcount = 30;
 
 # some variable hop counts based on message type
 %hopcount = (
-  11 => 10,
-  16 => 10,
-  17 => 10,
-  19 => 10,
-  21 => 10,
+  11 => 25,
+  16 => 25,
+  17 => 25,
+  19 => 25,
+  21 => 25,
 );
 
 # list of nodes we don't accept dx from
@@ -50,4 +44,7 @@ $def_hopcount = 15;
 
 );
 
+# send out for/opernams for callsigns sending dx spots who haven't got qra locators
+$send_opernam = 0;
+
 1;