perl/DXVars.pm

   1 #
   2 # The system variables - those indicated will need to be changed to suit your
   3 # circumstances (and callsign)
   4 #
   5
   6 package main;
   7
   8 require Exporter;
   9 @ISA = qw(Exporter);
  10
  11 @EXPORT_OK = qw($mycall $myname $mynormalcall $mylatitude $mylongtitude $mylocator
  12                 $myqth $myemail $myprot
  13                 $clusterport $clusteraddr $debugfn
  14                 $def_hopcount $root $data $system $cmd
  15                                 $userfn
  16                );
  17
  18
  19 # this really does need to change for your system!!!!
  20 $mycall = "GB7TLH";
  21
  22 # your name
  23 $myname = "Dirk";
  24
  25 # Your 'normal' callsign
  26 $mynormalcall = "G1TLH";
  27
  28 # Your latitude (+)ve = North (-)ve = South in degrees and decimal degrees
  29 $mylatitude = +52.68584579;
  30
  31 # Your Longtitude (+)ve = East, (-)ve = West in degrees and decimal degrees
  32 $mylongtitude = +0.94518260;
  33
  34 # Your locator (yes I know I can calculate it - eventually)
  35 $mylocator = "JO02LQ";
  36
  37 # Your QTH (roughly)
  38 $myqth = "East Dereham, Norfolk";
  39
  40 # Your e-mail address
  41 $myemail = "djk@tobit.co.uk";
  42
  43 # the tcp address of the cluster and so does this !!!
  44 $clusteraddr = "dirk1.tobit.co.uk";
  45
  46 # the port number of the cluster (just leave this, unless it REALLY matters to you)
  47 $clusterport = 27754;
  48
  49 # cluster debug file
  50 $debugfn = "/tmp/debug_cluster";
  51
  52 # the version of DX cluster (tm) software I am masquerading as
  53 $myprot = "5447";
  54
  55 # default hopcount to use - note this will override any incoming hop counts, if they are greater
  56 $def_hopcount = 7;
  57
  58 # root of directory tree for this system
  59 $root = "/spider";
  60
  61 # data files live in
  62 $data = "$root/data";
  63
  64 # system files live in
  65 $system = "$root/sys";
  66
  67 # command files live in
  68 $cmd = "$root/cmd";
  69
  70 # where the user data lives
  71 $userfn = "$data/users";