remove trailing spaces for dumb users

This commit is contained in:
Wolfram Schneider 2002-05-04 15:58:29 +00:00
parent 9f6887dea7
commit 4585c04b42
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=12955

View file

@ -33,7 +33,7 @@
# BSDI Id: bsdi-man,v 1.2 1995/01/11 02:30:01 polk Exp
# Dual CGI/Plexus mode and new interface by sanders@bsdi.com 9/22/1995
#
# $Id: man.cgi,v 1.67 2002-05-04 15:56:24 wosch Exp $
# $Id: man.cgi,v 1.68 2002-05-04 15:58:29 wosch Exp $
#use Data::Dumper;
#use Carp;
@ -350,6 +350,10 @@ sub do_man {
return &man($1, $2);
}
# remove trailing spaces for dumb users
$form{'query'} =~ s/\s+$//;
$form{'query'} =~ s/^\s+//;
$name = $query = $form{'query'};
$section = $form{'sektion'};
$apropos = $form{'apropos'};
@ -926,7 +930,7 @@ ETX
}
sub copyright {
$id = '$Id: man.cgi,v 1.67 2002-05-04 15:56:24 wosch Exp $';
$id = '$Id: man.cgi,v 1.68 2002-05-04 15:58:29 wosch Exp $';
return qq{\
<PRE>