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 # maximum number of users in a PC16 message
  15 $pc16_max_users = 5;
  16
  17 # maximum number of nodes in a PC19 message
  18 $pc19_max_nodes = 5;
  19
  20 # the interval between pc50s (in seconds)
  21 $pc50_interval = 14*60;
  22
  23 # the version of DX cluster (tm) software I am masquerading as
  24 $myprot_version = 5300;
  25
  26 # default hopcount to use
  27 $def_hopcount = 30;
  28
  29 # some variable hop counts based on message type
  30 %hopcount = (
  31   11 => 25,
  32   16 => 25,
  33   17 => 25,
  34   19 => 25,
  35   21 => 25,
  36 );
  37
  38 # list of nodes we don't accept dx from
  39 @nodx_node = (
  40
  41 );
  42
  43 # list of nodes we don't accept announces from
  44 @noann_node = (
  45
  46 );
  47
  48 # list of node we don't accept wwvs from
  49 @nowwv_node = (
  50
  51 );
  52
  53 # send out for/opernams for callsigns sending dx spots who haven't got qra locators
  54 $send_opernam = 0;
  55
  56 1;