X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXVars.pm.issue;h=b4058cf0271595bc53eaf89377cb103b792b2151;hb=8d4360134b5a83741dbd77ef99a56c2f1c40db05;hp=1433d080b5ca8c175cccb12f0eff66b68daed41b;hpb=d6ef92100b25e721a15d00da498256853cc0acf2;p=spider.git diff --git a/perl/DXVars.pm.issue b/perl/DXVars.pm.issue index 1433d080..b4058cf0 100644 --- a/perl/DXVars.pm.issue +++ b/perl/DXVars.pm.issue @@ -2,26 +2,12 @@ # The system variables - those indicated will need to be changed to suit your # circumstances (and callsign) # -# Copyright (c) 1998 - Dirk Koopman G1TLH +# Copyright (c) 1998-2007 - 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 @my_cc - $pc50_interval $user_interval - ); - - # this really does need to change for your system!!!! # use CAPITAL LETTERS $mycall = "GB7DJK"; @@ -78,23 +64,16 @@ $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"; +# are we debugging ? +@debug = qw(chan state msg cron connect); -# where the user data lives -$userfn = "$data/users"; +# are we doing xml? +$do_xml = 0; -# the "message of the day" file -$motd = "$data/motd"; +# the SQL database DBI dsn +#$dsn = "dbi:SQLite:dbname=$root/data/dxspider.db"; +#$dbuser = ""; +#$dbpass = ""; -# are we debugging ? -@debug = qw(chan state msg cron connect); +1;