From 19f68ea69f734f50b46fba21aab99315d5803e09 Mon Sep 17 00:00:00 2001 From: djk Date: Sun, 11 Jun 2000 09:38:43 +0000 Subject: [PATCH] changed cluster copyright date removed extraneous DXDebug from DXUtil added set/echo to help --- Changes | 2 ++ cmd/Commands_en.hlp | 9 +++++++++ perl/DXUtil.pm | 2 -- perl/cluster.pl | 4 ++-- 4 files changed, 13 insertions(+), 4 deletions(-) diff --git a/Changes b/Changes index 8ca0fe51..4ee08fec 100644 --- 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 f1272ee9..4d736989 100644 --- 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 0911d6ff..7be97ebf 100644 --- 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 9f03281f..d3ab1871 100755 --- 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 ..."); -- 2.43.0