perl/DXVars.pm

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