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