X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtVars.pm;h=ae192bcff38d83b6c4dec4c76029dd293507a44c;hb=2c50f9b4b2b3f29b000d77623a9d7c3748933aef;hp=52477433c531adefb96c416bc8de6f30498c6c9e;hpb=1cf4bd14be226274d5deb05da8480ab91a5dac52;p=spider.git diff --git a/perl/DXProtVars.pm b/perl/DXProtVars.pm index 52477433..ae192bcf 100644 --- a/perl/DXProtVars.pm +++ b/perl/DXProtVars.pm @@ -6,33 +6,45 @@ # # 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 => 25, - 16 => 10, - 17 => 10, - 19 => 10, - 21 => 10, + 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;