changed cluster copyright date

removed extraneous DXDebug from DXUtil
added set/echo to help

diff --git a/Changes b/Changes
index 8ca0fe5171544d6616d4bf21d182973f28ad83d6..4ee08fec5d5127dc26e455eab028e24326cb2852 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+11Jun00=======================================================================
+1. removed extraneous DXDebug from DXUtil
 10Jun00=======================================================================
 1. got rid of some more nasty bugs in sh/qra.
 2. fixed 9A3xx to always be Croatia (and not Haiti!).

diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index f1272ee9e418a3ac2467eb731c119227f890a3fb..4d73698990b020046387f149fa0095ad7285fc01 100644 (file)
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -427,6 +427,15 @@ SP is an alias for SEND PRIVATE
 === 0^SET/DX^Allow DX messages to come out on your terminal
 === 0^UNSET/DX^Stop DX messages coming out on your terminal
 
+=== 0^SET/ECHO^Make the cluster echo your input
+=== 0^UNSET/ECHO^Stop the cluster echoing your input
+If you are connected via a telnet session, different implimentations
+of telnet handle echo differently depending on whether you are 
+connected via port 23 or some other port. You can use this command
+to change the setting appropriately. 
+
+YOU DO NOT NEED TO USE THIS COMMAND IF YOU ARE CONNECTED VIA AX25.
+
 === 0^SET/HERE^Tell the system you are present at your terminal
 === 0^UNSET/HERE^Tell the system you are absent from your terminal
 

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 0911d6ff6ee415eed03e14ffaf18a1b6d4c2e546..7be97ebf17a1972afb6c0c117c11c0ac91ebdc9a 100644 (file)
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -12,8 +12,6 @@ use Date::Parse;
 use IO::File;
 use Data::Dumper;
 
-use DXDebug;
-
 require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(atime ztime cldate cldatetime slat slong yesno promptf 

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 9f03281f998385deb11d0f3b326374d0230a42d1..d3ab1871c438c6ed2f3a1e5adcff97d9c5733edf 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -68,7 +68,7 @@ package main;
 
 @inqueue = ();                                 # the main input queue, an array of hashes
 $systime = 0;                                  # the time now (in seconds)
-$version = "1.40";                             # the version no of the software
+$version = "1.41";                             # the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 $lockfn = "cluster.lock";       # lock file name
 @outstanding_connects = ();     # list of outstanding connects
@@ -299,7 +299,7 @@ STDOUT->autoflush(1);
 Log('cluster', "DXSpider V$version started");
 
 # banner
-dbg('err', "DXSpider DX Cluster Version $version", "Copyright (c) 1998-1999 Dirk Koopman G1TLH");
+dbg('err', "DXSpider DX Cluster Version $version", "Copyright (c) 1998-2000 Dirk Koopman G1TLH");
 
 # load Prefixes
 dbg('err', "loading prefixes ...");