perl/DXProtVars.pm

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