add the possibility to search for a string in sh/cmd

diff --git a/Changes b/Changes
index 1e630cef519aea516021b8c0af3ee44f67f2d6c6..bfb0b248479af4c926473e5a7d2e41853c131040 100644 (file)
--- a/Changes
+++ b/Changes
@@ -16,7 +16,7 @@ its own with no message).
 24Jun07=======================================================================
 1. Fix the routing algorithms to allow route selection in the face of
 incomplete trees of nodes (trees as produced by sh/newc).
 24Jun07=======================================================================
 1. Fix the routing algorithms to allow route selection in the face of
 incomplete trees of nodes (trees as produced by sh/newc).

-2. Fix the obscout issues which mean that many nodes get timed out after 3hrs.
+2. Fix the obscount issues which mean that many nodes get timed out after 3hrs.

 3. Extend 4m to 70631 to cover CT.
 23Jun07=======================================================================
 1. fix basic deduping algorithm
 3. Extend 4m to 70631 to cover CT.
 23Jun07=======================================================================
 1. fix basic deduping algorithm

diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index 66f6db9b8fe27df9cb7bf9bf073ccb206a050f7c..f5d3905cf4bd2674fbcdaefb2caebbd83dca5e50 100644 (file)
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -1864,7 +1864,7 @@ 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.
 
 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
+=== 9^SHOW/CMD_CACHE [pattern]^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.
 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.


@@ -1873,6 +1873,17 @@ 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.
 
 delete it, run LOAD/CMD_CACHE to clear out the command cache and
 try again. You will now be using the standard version.
 

+If you are looking for information on a specific command then
+just add a string, eg:
+
+  sh/cmd dx
+
+might give you:
+
+  Command              Path
+  set/dxgrid           /spider/cmd/set/dxgrid.pl
+  sh/dx                /spider/cmd/show/dx.pl
+

 === 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.
 === 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
index bd26c7d88dfd103ba4d7b7050f33f102b308f1fe..25321e9a66f502640ebd835c7b3524b5b409b7ab 100644 (file)
--- a/cmd/show/cmd_cache.pl
+++ b/cmd/show/cmd_cache.pl
@@ -8,10 +8,12 @@
 #
 
 my $self = shift;
 #
 
 my $self = shift;

+my $line = shift;

 return (1, $self->msg('e5')) if $self->priv < 9;
 
 my @out = sprintf "%-20s %s", "Command", "Path";
 for (sort keys %cmd_cache) {
 return (1, $self->msg('e5')) if $self->priv < 9;
 
 my @out = sprintf "%-20s %s", "Command", "Path";
 for (sort keys %cmd_cache) {

+       next if $line && $_ !~ m|\Q$line|i;

        my $v = $cmd_cache{$_};
        $v =~ s|,|/|g;
        push @out, sprintf "%-20s %s", $_, "$v.pl";
        my $v = $cmd_cache{$_};
        $v =~ s|,|/|g;
        push @out, sprintf "%-20s %s", $_, "$v.pl";

diff --git a/perl/Version.pm b/perl/Version.pm
index 9b594c33d2a957920961d3e176a164d2d74b4c7b..9844f97822882d819f02b2d585384b1fedd4b8ef 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
 
 $version = '1.54';
 $subversion = '0';

-$build = '97';
+$build = '98';

 
 1;
 
 1;