]> dxcluster.net Git - spider.git/blob - perl/DXVars.pm.issue
fix 5.8 ism that does not work on 5.6 (incrementing a subroutine).
[spider.git] / 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 # are we doing xml?
90 $do_xml = 0;
91
92 # the SQL database DBI dsn
93 #$dsn = "dbi:SQLite:dbname=$root/data/dxspider.db";
94 #$dbuser = "";
95 #$dbpass = "";
96
97 1;