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 $myalias $mylatitude $mylongtitude $mylocator
  16                 $myqth $myemail $myprot_version
  17                 $clusterport $clusteraddr $debugfn
  18                 $def_hopcount $data $system $cmd
  19                                 $userfn $motd $local_cmd $mybbsaddr
  20                                 $pc50_interval, $user_interval
  21                );
  22
  23
  24 # this really does need to change for your system!!!!
  25 $mycall = "GB7DJK";
  26
  27 # your name
  28 $myname = "Dirk";
  29
  30 # Your 'normal' callsign
  31 $myalias = "G1TLH";
  32
  33 # Your latitude (+)ve = North (-)ve = South in degrees and decimal degrees
  34 $mylatitude = +52.68584579;
  35
  36 # Your Longtitude (+)ve = East, (-)ve = West in degrees and decimal degrees
  37 $mylongtitude = +0.94518260;
  38
  39 # Your locator (yes I know I can calculate it - eventually)
  40 $mylocator = "JO02LQ";
  41
  42 # Your QTH (roughly)
  43 $myqth = "East Dereham, Norfolk";
  44
  45 # Your e-mail address
  46 $myemail = "djk\@tobit.co.uk";
  47
  48 # Your BBS addr
  49 $mybbsaddr = "G1TLH\@GB7TLH.#35.GBR.EU";
  50
  51 # the tcp address of the cluster this can be an address of an ethernet port
  52 # but this is more secure. For normal use this will be fine.
  53 $clusteraddr = "localhost";
  54
  55 # the port number of the cluster (just leave this, unless it REALLY matters to you)
  56 $clusterport = 27754;
  57
  58 # cluster debug file
  59 $debugfn = "/tmp/debug_cluster";
  60
  61 # your favorite way to say 'Yes'
  62 $yes = 'Yes';
  63
  64 # your favorite way to say 'No'
  65 $no = 'No';
  66
  67 # the interval between unsolicited prompts if not traffic
  68 $user_interval = 11*60;
  69
  70 # data files live in
  71 $data = "$root/data";
  72
  73 # system files live in
  74 $system = "$root/sys";
  75
  76 # command files live in
  77 $cmd = "$root/cmd";
  78
  79 # local command files live in (and overide $cmd)
  80 $localcmd = "$root/local_cmd";
  81
  82 # where the user data lives
  83 $userfn = "$data/users";
  84
  85 # the "message of the day" file
  86 $motd = "$data/motd";
  87
  88 # are we debugging ?
  89 @debug = ('chan', 'state', 'msg');