perl/DXVars.pm.issue

   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                 $lang @my_cc
  21                                 $pc50_interval $user_interval
  22                );
  23
  24
  25 # this really does need to change for your system!!!!
  26 # use CAPITAL LETTERS
  27 $mycall = "GB7DJK";
  28
  29 # your name
  30 $myname = "Dirk";
  31
  32 # Your 'normal' callsign (in CAPTTAL LETTERS)
  33 $myalias = "G1TLH";
  34
  35 # Your latitude (+)ve = North (-)ve = South in degrees and decimal degrees
  36 $mylatitude = +52.68584579;
  37
  38 # Your Longtitude (+)ve = East, (-)ve = West in degrees and decimal degrees
  39 $mylongitude = +0.94518260;
  40
  41 # Your locator (USE CAPITAL LETTERS)
  42 $mylocator = "JO02LQ";
  43
  44 # Your QTH (roughly)
  45 $myqth = "East Dereham, Norfolk";
  46
  47 # Your e-mail address
  48 $myemail = "djk\@tobit.co.uk";
  49
  50 # Your BBS addr
  51 $mybbsaddr = "G1TLH\@GB7TLH.#35.GBR.EU";
  52
  53 # the default language (the key used must match the one in the Messages file)
  54 $lang = 'en';
  55
  56 # the country codes that my node is located in
  57 #
  58 # for example 'qw(EA EA8 EA9 EA0)' for Spain and all its islands.
  59 # if you leave this blank then it will use the country code for
  60 # your $mycall. This will suit 98% of sysops (including GB7 BTW).
  61 #
  62
  63 @my_cc = qw();
  64
  65 # the tcp address of the cluster this can be an address of an ethernet port
  66 # but this is more secure. For normal use this will be fine.
  67 $clusteraddr = "localhost";
  68
  69 # the port number of the cluster (just leave this, unless it REALLY matters to you)
  70 $clusterport = 27754;
  71
  72 # your favorite way to say 'Yes'
  73 $yes = 'Yes';
  74
  75 # your favorite way to say 'No'
  76 $no = 'No';
  77
  78 # the interval between unsolicited prompts if not traffic
  79 $user_interval = 11*60;
  80
  81 # data files live in
  82 $data = "$root/data";
  83
  84 # system files live in
  85 $system = "$root/sys";
  86
  87 # command files live in
  88 $cmd = "$root/cmd";
  89
  90 # local command files live in (and overide $cmd)
  91 $localcmd = "$root/local_cmd";
  92
  93 # where the user data lives
  94 $userfn = "$data/users";
  95
  96 # the "message of the day" file
  97 $motd = "$data/motd";
  98
  99 # are we debugging ?
 100 @debug = qw(chan state msg cron connect);