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