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;