]> www.dxcluster.org Git - spider.git/blob - perl/DXProtVars.pm
added some guff about running in compatibility mode if Storable is
[spider.git] / perl / DXProtVars.pm
1 #
2 #
3 # These are various values used by the AK1A protocol stack
4 #
5 # Change these at your peril (or if you know what you are doing)!
6 #
7 # Copyright (c) 1998 - Dirk Koopman G1TLH
8 #
9 # $Id$
10 #
11
12 package DXProt;
13
14 # the interval between pc50s (in seconds)
15 $pc50_interval = 14*60;
16
17 # the version of DX cluster (tm) software I am masquerading as
18 $myprot_version = 5300;
19
20 # default hopcount to use
21 $def_hopcount = 30;
22
23 # some variable hop counts based on message type
24 %hopcount = (
25   11 => 25,
26   16 => 25,
27   17 => 25,
28   19 => 25,
29   21 => 25,
30 );
31
32 # list of nodes we don't accept dx from
33 @nodx_node = (
34
35 );
36
37 # list of nodes we don't accept announces from
38 @noann_node = (
39
40 );
41
42 # list of node we don't accept wwvs from
43 @nowwv_node = (
44
45 );
46
47 # send out for/opernams for callsigns sending dx spots who haven't got qra locators
48 $send_opernam = 0;
49
50 1;