X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXVars.pm.issue;fp=perl%2FDXVars.pm.issue;h=ab43ca6489195ae63c7f3f8f87de45f3b4ff8cb8;hb=9da1742219a27b1c02fd57794412088e4d7b3d1d;hp=0000000000000000000000000000000000000000;hpb=a53dd3ac43ba8336e30057aa39220e71c925a197;p=spider.git diff --git a/perl/DXVars.pm.issue b/perl/DXVars.pm.issue new file mode 100644 index 00000000..ab43ca64 --- /dev/null +++ b/perl/DXVars.pm.issue @@ -0,0 +1,90 @@ +# +# The system variables - those indicated will need to be changed to suit your +# circumstances (and callsign) +# +# Copyright (c) 1998 - Dirk Koopman G1TLH +# +# $Id$ +# + +package main; + +require Exporter; +@ISA = qw(Exporter); + +@EXPORT_OK = qw($mycall $myname $myalias $mylatitude $mylongtitude $mylocator + $myqth $myemail $myprot_version + $clusterport $clusteraddr $debugfn + $def_hopcount $data $system $cmd + $userfn $motd $local_cmd $mybbsaddr + $lang + $pc50_interval $user_interval + ); + + +# this really does need to change for your system!!!! +$mycall = "GB7DJK"; + +# your name +$myname = "Dirk"; + +# Your 'normal' callsign +$myalias = "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 +$mylongitude = +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"; + +# Your BBS addr +$mybbsaddr = "G1TLH\@GB7TLH.#35.GBR.EU"; + +# the default language (the key used must match the one in the Messages file) +$lang = 'en'; + +# the tcp address of the cluster this can be an address of an ethernet port +# but this is more secure. For normal use this will be fine. +$clusteraddr = "localhost"; + +# the port number of the cluster (just leave this, unless it REALLY matters to you) +$clusterport = 27754; + +# your favorite way to say 'Yes' +$yes = 'Yes'; + +# your favorite way to say 'No' +$no = 'No'; + +# the interval between unsolicited prompts if not traffic +$user_interval = 11*60; + +# data files live in +$data = "$root/data"; + +# system files live in +$system = "$root/sys"; + +# command files live in +$cmd = "$root/cmd"; + +# local command files live in (and overide $cmd) +$localcmd = "$root/local_cmd"; + +# where the user data lives +$userfn = "$data/users"; + +# the "message of the day" file +$motd = "$data/motd"; + +# are we debugging ? +@debug = ('chan', 'state', 'msg', 'cron');