Initial version

[spider.git] / perl / DXVars.pm

diff --git a/perl/DXVars.pm b/perl/DXVars.pm
new file mode 100644 (file)
index 0000000..df78142
--- /dev/null
+++ b/perl/DXVars.pm
@@ -0,0 +1,71 @@
+#
+# The system variables - those indicated will need to be changed to suit your
+# circumstances (and callsign)
+#
+
+package main;
+
+require Exporter;
+@ISA = qw(Exporter);
+
+@EXPORT_OK = qw($mycall $myname $mynormalcall $mylatitude $mylongtitude $mylocator
+                $myqth $myemail $myprot 
+                $clusterport $clusteraddr $debugfn 
+                $def_hopcount $root $data $system $cmd
+                               $userfn
+               );
+                          
+                          
+# this really does need to change for your system!!!!                     
+$mycall = "GB7TLH";
+
+# your name
+$myname = "Dirk";
+
+# Your 'normal' callsign 
+$mynormalcall = "G1TLH";
+
+# Your latitude (+)ve = North (-)ve = South in degrees and decimal degrees
+$mylatitude = +52.68584579;
+
+# Your Longtitude (+)ve = East, (-)ve = West in degrees and decimal degrees
+$mylongtitude = +0.94518260;
+
+# Your locator (yes I know I can calculate it - eventually)
+$mylocator = "JO02LQ";
+
+# Your QTH (roughly)
+$myqth = "East Dereham, Norfolk";
+
+# Your e-mail address
+$myemail = "djk@tobit.co.uk";
+
+# the tcp address of the cluster and so does this !!!
+$clusteraddr = "dirk1.tobit.co.uk";
+
+# the port number of the cluster (just leave this, unless it REALLY matters to you)
+$clusterport = 27754;
+
+# cluster debug file
+$debugfn = "/tmp/debug_cluster";
+
+# the version of DX cluster (tm) software I am masquerading as
+$myprot = "5447";
+
+# default hopcount to use - note this will override any incoming hop counts, if they are greater
+$def_hopcount = 7;
+
+# root of directory tree for this system
+$root = "/spider"; 
+
+# data files live in 
+$data = "$root/data";
+
+# system files live in
+$system = "$root/sys";
+
+# command files live in
+$cmd = "$root/cmd";
+
+# where the user data lives
+$userfn = "$data/users";