X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fcmd_cache.pl;fp=cmd%2Fshow%2Fcmd_cache.pl;h=bd26c7d88dfd103ba4d7b7050f33f102b308f1fe;hb=d7854d2dceaec16989218681be28f6f48a3c3c4a;hp=0000000000000000000000000000000000000000;hpb=3065f0dd2c80cd59b7a2b17d397a343b6521b1f4;p=spider.git

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);