Merge branch 'SIMPLEROUTE'

[spider.git] / perl / DXProtVars.pm

diff --git a/perl/DXProtVars.pm b/perl/DXProtVars.pm
index a5f6bc433b677fc3ac126e105fe56c578e97eb3c..9f839b23163cc5961bf1ea08869e38d1bd522748 100644 (file)
--- a/perl/DXProtVars.pm
+++ b/perl/DXProtVars.pm
@@ -1,50 +1 @@
-#
-#
-# These are various values used by the AK1A protocol stack
-#
-# Change these at your peril (or if you know what you are doing)!
-#
-# Copyright (c) 1998 - Dirk Koopman G1TLH
-#
-# $Id$
-#
-
-package DXProt;
-
-# the interval between pc50s (in seconds)
-$pc50_interval = 14*60;
-
-# the version of DX cluster (tm) software I am masquerading as
-$myprot_version = 5300;
-
-# default hopcount to use
-$def_hopcount = 30;
-
-# some variable hop counts based on message type
-%hopcount = (
-  11 => 25,
-  16 => 25,
-  17 => 25,
-  19 => 25,
-  21 => 25,
-);
-
-# 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;
+### These are various values used by the AK1A protocol stack## Change these at your peril (or if you know what you are doing)!## Copyright (c) 1998 - Dirk Koopman G1TLH## $Id$#package DXProt;# the interval between pc50s (in seconds)$pc50_interval = 14*60;# the version of DX cluster (tm) software I am masquerading as$myprot_version = 5300;# default hopcount to use$def_hopcount = 30;# some variable hop counts based on message type%hopcount = (  11 => 25,  16 => 25,  17 => 25,  19 => 25,  21 => 25,);# 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;
\ No newline at end of file