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 = "Q1QQQ-2";
  14
  15 # your name
  16 $myname = "Fred";
  17
  18 # Your 'normal' callsign (in CAPTTAL LETTERS)
  19 $myalias = "Q1QQQ";
  20
  21 # Your latitude (+)ve = North (-)ve = South in degrees and decimal degrees
  22 $mylatitude = +52.0;
  23
  24 # Your Longtitude (+)ve = East, (-)ve = West in degrees and decimal degrees
  25 $mylongitude = +0.0;
  26
  27 # Your locator (USE CAPITAL LETTERS)
  28 $mylocator = "JO02AA";
  29
  30 # Your QTH (roughly)
  31 $myqth = "SomeTown, SomeState";
  32
  33 # Your e-mail address
  34 $myemail = "qqq@gmail.com";
  35
  36 # the country codes that my node is located in
  37 #
  38 # for example 'qw(EA EA8 EA9 EA0)' for Spain and all its islands.
  39 # if you leave this blank then it will use the country code for
  40 # your $mycall. This will suit 98% of sysops (including GB7 BTW).
  41 #
  42
  43 @my_cc = qw();
  44
  45 # are we debugging ?
  46 @debug = qw(chan state msg cron connect);
  47
  48 # are we doing xml?
  49 $do_xml = 0;
  50
  51 # the SQL database DBI dsn
  52 #$dsn = "dbi:SQLite:dbname=$root/data/dxspider.db";
  53 #$dbuser = "";
  54 #$dbpass = "";
  55
  56 1;