set DXVar.pm defaults into console.pl

as well as cluster.pl.
Remove mention of the defaults in DXVars.pm.issue

diff --git a/perl/DXVars.pm.issue b/perl/DXVars.pm.issue
index b4058cf0271595bc53eaf89377cb103b792b2151..ed19470c478a8d1bac7295effc81746f5f124015 100644 (file)
--- a/perl/DXVars.pm.issue
+++ b/perl/DXVars.pm.issue
@@ -10,34 +10,28 @@ package main;
 
 # this really does need to change for your system!!!!                     
 # use CAPITAL LETTERS
-$mycall = "GB7DJK";
+$mycall = "Q1QQQ-2";
 
 # your name
-$myname = "Dirk";
+$myname = "Fred";
 
 # Your 'normal' callsign (in CAPTTAL LETTERS) 
-$myalias = "G1TLH";
+$myalias = "Q1QQQ";
 
 # Your latitude (+)ve = North (-)ve = South in degrees and decimal degrees
-$mylatitude = +52.68584579;
+$mylatitude = +52.0;
 
 # Your Longtitude (+)ve = East, (-)ve = West in degrees and decimal degrees
-$mylongitude = +0.94518260;
+$mylongitude = +0.0;
 
 # Your locator (USE CAPITAL LETTERS)
-$mylocator = "JO02LQ";
+$mylocator = "JO02AA";
 
 # Your QTH (roughly)
-$myqth = "East Dereham, Norfolk";
+$myqth = "SomeTown, SomeState";
 
 # 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';
+$myemail = "qqq@gmail.com";
 
 # the country codes that my node is located in
 # 
@@ -48,23 +42,6 @@ $lang = 'en';
 
 @my_cc = qw();
 
-# 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;
-
-
 # are we debugging ?
 @debug = qw(chan state msg cron connect);
 

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 092a01e058beac4a9959d0f6b10f9547ec0abe53..6495027be2a3a97f5276685434c908be7005ccde 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -15,7 +15,20 @@ package main;
 require 5.10.1;
 use warnings;
 
-use vars qw($root $is_win $systime $lockfn);
+use vars qw($root $is_win $systime $lockfn @inqueue $starttime $lockfn @outstanding_connects
+                       $zombies @listeners $lang $myalias @debug $userfn $clusteraddr
+                       $clusterport $mycall $decease $routeroot $me $reqreg $bumpexisting
+                       $allowdxby $dbh $dsn $dbuser $dbpass $do_xml $systime_days $systime_daystart
+                       $can_encode $maxconnect_user $maxconnect_node $idle_interval $log_flush_interval
+                       $broadcast_debug 
+                  );
+
+$lang = 'en';                                  # default language
+$clusteraddr = '127.0.0.1';            # cluster tcp host address - used for things like console.pl
+$clusterport = 27754;                  # cluster tcp port
+$yes = 'Yes';                                  # visual representation of yes
+$no = 'No';                                            # ditto for no
+$user_interval = 11*60;                        # the interval between unsolicited prompts if no traffic
 
 # make sure that modules are searched in the order local then perl
 BEGIN {
@@ -140,13 +153,6 @@ use Web;
 
 use Local;
 
-use vars qw(@inqueue $starttime $lockfn @outstanding_connects
-                       $zombies @listeners $lang $myalias @debug $userfn $clusteraddr
-                       $clusterport $mycall $decease $routeroot $me $reqreg $bumpexisting
-                       $allowdxby $dbh $dsn $dbuser $dbpass $do_xml $systime_days $systime_daystart
-                       $can_encode $maxconnect_user $maxconnect_node $idle_interval $log_flush_interval
-                       $broadcast_debug 
-                  );
 
 @inqueue = ();                                 # the main input queue, an array of hashes
 $systime = 0;                                  # the time now (in seconds)

diff --git a/perl/console.pl b/perl/console.pl
index 854f3835eb6c03fd2ba7130aaab0fea498d54b67..663618080dc1a69e444c6251d954cfcd0177a889 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -27,6 +27,9 @@ BEGIN {
        $is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows?
 }
 
+$clusteraddr = '127.0.0.1';
+$clusterport = 27754;
+
 use Mojo::IOLoop;
 
 use DXVars;

diff --git a/perl/rbn.pl b/perl/rbn.pl
index 773564c2946c5d2d58212ed725293db093f43326..ee8f0ed3b2852753f01413dab09badcb25e5519c 100755 (executable)
--- a/perl/rbn.pl
+++ b/perl/rbn.pl
@@ -93,8 +93,8 @@ while (<$sock>) {
        say "RAW,$_" if $wantraw;
 
        if (/call:/) {
-print $sock "$mycall\r\n";
-say "ADMIN,call $mycall sent" if $dbg;
+               print $sock "$mycall\r\n";
+               say "ADMIN,call $mycall sent" if $dbg;
        }
 
        my (undef, undef, $origin, $qrg, $call, $mode, $s, $m, $spd, $u, $sort, $t, $tx) = split /[:\s]+/;