allow stuff after help :)
#!/usr/bin/perl -w
-# $Id: service.in,v 1.21 2000/10/09 00:32:23 ajt Exp $
+# $Id: service.in,v 1.22 2000/10/10 21:44:01 joy Exp $
#
# Usage: service <code>.nn
# Temps: incoming/P<code>.nn
} else {
&transcript("Info file $file does not exist.\n\n");
}
- } elsif (m/^help$/i) {
+ } elsif (m/^help/i) {
&sendhelp;
&transcript("\n");
$ok++;