From b0f75ae15722922dc8f341a2de79106326ff7575 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Fri, 4 Dec 1998 16:16:27 +0000
Subject: [PATCH] 1. Started Changes file 2. Added load/cmd_cache.pl to clear
 cmd cache shortcuts (use this if cluster.pl get confused about where it is
 getting its commands from eg if you have removed a file from local_cmd 'cos
 you want to go back to standard one) 3. Fixed bull handling at least to the
 extent that it stores them and doesn't mess up the normal directory handling.
 4. Fixed the unset/debug command so that it actually does the job! 5. Removed
 the middle line 'written in perl for unix' from show/version.pl

---
 cmd/Aliases           |  3 ++-
 cmd/load/cmd_cache.pl | 15 +++++++++++++++
 cmd/show/version.pl   |  1 -
 perl/DXDebug.pm       |  4 +---
 perl/DXLogPrint.pm    |  2 +-
 5 files changed, 19 insertions(+), 6 deletions(-)
 create mode 100644 cmd/load/cmd_cache.pl

diff --git a/cmd/Aliases b/cmd/Aliases
index bd4f0cab..4136e53c 100644
--- a/cmd/Aliases
+++ b/cmd/Aliases
@@ -71,8 +71,9 @@ package CmdAlias;
 	q => [
 	  '^q', 'bye', 'bye',
 	],
-	r => [
+	r => [	
 	  '^r$', 'read', 'read',
+	  '^rcmd/(\S+)', 'rcmd $1', 'rcmd',
 	],
 	s => [
 	  '^set/nobe', 'unset/beep', 'unset/beep',
diff --git a/cmd/load/cmd_cache.pl b/cmd/load/cmd_cache.pl
new file mode 100644
index 00000000..67507dbd
--- /dev/null
+++ b/cmd/load/cmd_cache.pl
@@ -0,0 +1,15 @@
+#
+# reset/reload the short name command cache
+#
+# you may need to do this if you remove files or the system
+# gets confused about where it should be loading its cmd files
+# from.
+#
+# Copyright (c) 1998 - Dirk Koopman G1TLH
+#
+# $Id$
+#
+my $self = shift;
+return (1, $self->msg('e5')) if $self->priv < 9;
+DXCommandmode::clear_cmd_cache();
+return (1, $self->msg('ok'));
diff --git a/cmd/show/version.pl b/cmd/show/version.pl
index 2bf3a7fe..f6184a09 100644
--- a/cmd/show/version.pl
+++ b/cmd/show/version.pl
@@ -9,7 +9,6 @@
 my @out;
 
 push @out, "DX Spider Cluster version $main::version";
-push @out, "written in perl for unix";
 push @out, "Copyright (c) 1998 Dirk Koopman G1TLH";
 
 return (1, @out);
diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index 96cc0ec2..530f3b21 100644
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -25,8 +25,6 @@ use Carp;
 %dbglevel = ();
 $fp = DXLog::new('debug', 'dat', 'd');
 
-no strict 'refs';
-
 sub dbg
 {
 	my $l = shift;
@@ -55,7 +53,7 @@ sub dbgsub
 	my $entry;
 	
 	foreach $entry (@_) {
-		delete $dbglevel{entry};
+		delete $dbglevel{$entry};
 	}
 }
 
diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index fff39d12..54cfc516 100644
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -98,7 +98,7 @@ sub print_item
 	} elsif ($ref[1] eq 'talk') {
 		$s = "$ref[3] -> $ref[2] ($ref[4]) $ref[5]";
 	} elsif ($ref[1] eq 'ann') {
-		$s = "$ref[2] -> $ref[3] $ref[4]";
+		$s = "$ref[3] -> $ref[2] $ref[4]";
 	} else {
 		$s = "$ref[2]";
 	}
-- 
2.43.0