os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fix perl -T warnings for non-standard manual pages releases

Browse source 
like OpenBSD, Solaris & HP-UX
This commit is contained in:
Wolfram Schneider 2007-05-04 19:58:59 +00:00
parent c161a3940f
commit 84106c53dc
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=30150
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
en/cgi/man.cgi
View file

@ -33,7 +33,7 @@
# BSDI Id: bsdi-man,v 1.2 1995/01/11 02:30:01 polk Exp # 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 # Dual CGI/Plexus mode and new interface by sanders@bsdi.com 9/22/1995
# #
# $Id: man.cgi,v 1.172 2007-03-20 20:03:07 wosch Exp $ # $Id: man.cgi,v 1.173 2007-05-04 19:58:59 wosch Exp $
############################################################################ ############################################################################
# !!! man.cgi is stale perl4 code !!! # !!! man.cgi is stale perl4 code !!!
@ -466,6 +466,13 @@ sub do_man {
$apropos = $form{'apropos'}; $apropos = $form{'apropos'};
$alttitle = $form{'title'}; $alttitle = $form{'title'};
$manpath = $form{'manpath'}; $manpath = $form{'manpath'};
if ($manpath =~ /^([0-9A-Za-z \.\-]+)$/) {
$manpath = $1;
} else {
$manpath = '';
}
if (!$manpath) { if (!$manpath) {
$manpath = $manPathDefault; $manpath = $manPathDefault;
} elsif (!$manPath{$manpath}) { } elsif (!$manPath{$manpath}) {
@ -1083,7 +1090,7 @@ ETX
} }
sub copyright { sub copyright {
$id = '$Id: man.cgi,v 1.172 2007-03-20 20:03:07 wosch Exp $'; $id = '$Id: man.cgi,v 1.173 2007-05-04 19:58:59 wosch Exp $';
return qq{\ return qq{\
<PRE> <PRE>
@ -1135,7 +1142,7 @@ sub faq {
&encode_url($_) . "\n") if $manPathAliases{$_}; &encode_url($_) . "\n") if $manPathAliases{$_};
} }
local $id = '$Id: man.cgi,v 1.172 2007-03-20 20:03:07 wosch Exp $'; local $id = '$Id: man.cgi,v 1.173 2007-05-04 19:58:59 wosch Exp $';
return qq{\ return qq{\
<PRE> <PRE>
Copyright (c) 1996-2007 <a href="$mailtoURL">Wolfram Schneider</A> Copyright (c) 1996-2007 <a href="$mailtoURL">Wolfram Schneider</A>