From d7854d2dceaec16989218681be28f6f48a3c3c4a Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 2 Jul 2007 15:14:29 +0100
Subject: [PATCH] add sh/cmd_cache

---
 Changes               |  4 ++++
 cmd/Commands_en.hlp   | 12 +++++++++++-
 cmd/show/cmd_cache.pl | 20 ++++++++++++++++++++
 perl/Version.pm       |  2 +-
 4 files changed, 36 insertions(+), 2 deletions(-)
 create mode 100644 cmd/show/cmd_cache.pl

diff --git a/Changes b/Changes
index 8c039864..1e630cef 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+02Jul07=======================================================================
+1. Add a new command to show the contents of the cmd_cache. This allows those
+people whom develop their own commands to see which version they are using.
+It is called show/cmd_cache (or sh/cmd for short).
 29Jun07=======================================================================
 1. If a node is set/isolated then make sure that a) pc9x is not advertised
 and b) pc9x is ignored.
diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index b1fdb80e..66f6db9b 100644
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -915,7 +915,8 @@ will automatially be picked up by the cluster program. Sometimes it
 can get confused if you are doing a lot of moving commands about or
 delete a command in the local_cmd tree and want to use the normal one
 again. Execute this command to reset everything back to the state it
-was just after a cluster restart.
+was just after a cluster restart. To see what is in the command cache
+see SHOW/CMD_CACHE.
 
 === 9^LOAD/FORWARD^Reload the msg forwarding routing table
 Reload the /spider/msg/forward.pl file if you have changed it
@@ -1863,6 +1864,15 @@ occurred whilst you were away. SHOW/CHAT on its own will show data for
 all groups. If you use a group name then it will show only chat for
 that group.
 
+=== 9^SHOW/CMD_CACHE^Show the real source path of commands
+It is possible in DXSpider to define local versions of commands.
+Sometimes one forgets that one has these. This command will show you
+the source path where the node is getting each one of its commands.
+
+If you find a local command that you don't want then then simply
+delete it, run LOAD/CMD_CACHE to clear out the command cache and
+try again. You will now be using the standard version.
+
 === 0^SHOW/CONFIGURATION [<node>]^Show all the nodes and users visible
 This command allows you to see all the users that can be seen
 and the nodes to which they are connected.
diff --git a/cmd/show/cmd_cache.pl b/cmd/show/cmd_cache.pl
new file mode 100644
index 00000000..bd26c7d8
--- /dev/null
+++ b/cmd/show/cmd_cache.pl
@@ -0,0 +1,20 @@
+#
+# show the contents and paths of any commands in the cmd_cache
+#
+# This will tell you whether you are using the version of the command
+# that you think you are...
+#
+# Copyright (c) 2007 Dirk Koopman G1TLH
+#
+
+my $self = shift;
+return (1, $self->msg('e5')) if $self->priv < 9;
+
+my @out = sprintf "%-20s %s", "Command", "Path";
+for (sort keys %cmd_cache) {
+	my $v = $cmd_cache{$_};
+	$v =~ s|,|/|g;
+	push @out, sprintf "%-20s %s", $_, "$v.pl";
+}
+
+return (1, @out);
diff --git a/perl/Version.pm b/perl/Version.pm
index 68f113ea..9b594c33 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '96';
+$build = '97';
 
 1;
-- 
2.43.0