add CTY-3304
[spider.git] / cmd / apropos.pl
index 20775dd9bf9ca29f77b54ab2e470bbb19fc24fe9..1d6ac6bf5ab73b80715fc41098f81f1e9edea55c 100644 (file)
@@ -5,7 +5,7 @@
 #
 # Copyright (c) 1998 - Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 my ($self, $line) = @_;
@@ -14,9 +14,10 @@ my @out;
 my $lang = $self->lang;
 $lang = 'en' if !$lang;
 
-print "$line\n";
+#print "$line\n";
 my $in;
 $line = 'help' unless $line;
+$line =~ s/\ball\b/.*/;
 $line =~ s/\W//g;   # remove dubious characters
 print "$line\n";