add sh/cmd_cache

[spider.git] / cmd / show / cmd_cache.pl

diff --git a/cmd/show/cmd_cache.pl b/cmd/show/cmd_cache.pl
new file mode 100644 (file)
index 0000000..bd26c7d
--- /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);