recover from removal of newline characters!

[spider.git] / perl / DXProtVars.pm

diff --git a/perl/DXProtVars.pm b/perl/DXProtVars.pm
index 9f839b23163cc5961bf1ea08869e38d1bd522748..a5f6bc433b677fc3ac126e105fe56c578e97eb3c 100644 (file)
--- a/perl/DXProtVars.pm
+++ b/perl/DXProtVars.pm
@@ -1 +1,50 @@
-### 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
+#
+#
+# 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;