]> scm.dxcluster.org Git - spider.git/blob - perl/DXVars.pm
started the addition of help files
[spider.git] / perl / DXVars.pm
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                                 $pc50_interval, $user_interval
21                );
22                            
23                            
24 # this really does need to change for your system!!!!                      
25 $mycall = "GB7DJK";
26
27 # your name
28 $myname = "Dirk";
29
30 # Your 'normal' callsign 
31 $myalias = "G1TLH";
32
33 # Your latitude (+)ve = North (-)ve = South in degrees and decimal degrees
34 $mylatitude = +52.68584579;
35
36 # Your Longtitude (+)ve = East, (-)ve = West in degrees and decimal degrees
37 $mylongtitude = +0.94518260;
38
39 # Your locator (yes I know I can calculate it - eventually)
40 $mylocator = "JO02LQ";
41
42 # Your QTH (roughly)
43 $myqth = "East Dereham, Norfolk";
44
45 # Your e-mail address
46 $myemail = "djk\@tobit.co.uk";
47
48 # Your BBS addr
49 $mybbsaddr = "G1TLH\@GB7TLH.#35.GBR.EU";
50
51 # the tcp address of the cluster and so does this !!!
52 $clusteraddr = "dirk1.tobit.co.uk";
53
54 # the port number of the cluster (just leave this, unless it REALLY matters to you)
55 $clusterport = 27754;
56
57 # cluster debug file
58 $debugfn = "/tmp/debug_cluster";
59
60 # your favorite way to say 'Yes'
61 $yes = 'Yes';
62
63 # your favorite way to say 'No'
64 $no = 'No';
65
66 # the interval between unsolicited prompts if not traffic
67 $user_interval = 11*60;
68
69 # data files live in 
70 $data = "$root/data";
71
72 # system files live in
73 $system = "$root/sys";
74
75 # command files live in
76 $cmd = "$root/cmd";
77
78 # local command files live in (and overide $cmd)
79 $localcmd = "$root/local_cmd";
80
81 # where the user data lives
82 $userfn = "$data/users";
83
84 # the "message of the day" file
85 $motd = "$data/motd";
86
87 # are we debugging ?
88 @debug = ('chan');