#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
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";