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

shutup perl warnings

Browse source
This commit is contained in:
Wolfram Schneider 2007-07-16 17:48:29 +00:00
parent 932eef450c
commit 24cea0ffec
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=30488
1 changed files with 13 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
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.178 2007-07-16 17:40:22 wosch Exp $ # $Id: man.cgi,v 1.179 2007-07-16 17:48:29 wosch Exp $
############################################################################ ############################################################################
# !!! man.cgi is stale perl4 code !!! # !!! man.cgi is stale perl4 code !!!
@ -42,10 +42,7 @@
$www{'title'} = 'FreeBSD Hypertext Man Pages'; $www{'title'} = 'FreeBSD Hypertext Man Pages';
$www{'home'} = 'http://www.FreeBSD.org'; $www{'home'} = 'http://www.FreeBSD.org';
$www{'head'} = $www{'title'}; $www{'head'} = $www{'title'};
"";
$command{'man'} = 'man'; # 8Bit clean man
$command{'man'} = '/home/wosch/bin/cgi-man'; # 8Bit clean man
$command{'man'} = '/usr/bin/man'; # 8Bit clean man $command{'man'} = '/usr/bin/man'; # 8Bit clean man
# Config Options # Config Options
@ -433,9 +430,10 @@ $sections = join( "|", @sections ); # sections regexp
$mailto = 'wosch@FreeBSD.org'; $mailto = 'wosch@FreeBSD.org';
$mailtoURL = 'http://wolfram.schneider.org'; $mailtoURL = 'http://wolfram.schneider.org';
$mailtoURL = "mailto:$mailto" if !$mailtoURL; $mailtoURL = "mailto:$mailto" if !$mailtoURL;
$webmaster = $mailto;
$webmasterURL = $mailtoURL; #$webmaster = $mailto;
$manstat = 'http://www.de.freebsd.org/de/stat/man'; #$webmasterURL = $mailtoURL;
#$manstat = 'http://www.de.freebsd.org/de/stat/man';
&secure_env; &secure_env;
@ -449,10 +447,8 @@ $enable_mailto_links = 0;
# Plexus Native Interface # Plexus Native Interface
sub do_man { sub do_man {
local ( $BASE, $path, $form ) = @_; local ( $BASE, $path, $form ) = @_;
local ( $_, %form, $query, $proto, $name, $section, $apropos ); local ( $_, %form, $query, $name, $section, $apropos );
# spinner is buggy, shit
local ($u) = 'http://user.cs.tu-berlin.de/~wosch/man.cgi';
local ($u) = $BASE; local ($u) = $BASE;
return &faq_output($u) if ( $path =~ /\/(faq|help)\.html$/ ); return &faq_output($u) if ( $path =~ /\/(faq|help)\.html$/ );
@ -937,8 +933,8 @@ sub proc {
local ($pid) = open( FH, "-|" ); local ($pid) = open( FH, "-|" );
return undef unless defined($pid); return undef unless defined($pid);
if ( $pid == 0 ) { if ( $pid == 0 ) {
exec $prog, @args; exec( $prog, @args )
&mydie("exec $prog failed\n"); or &mydie("exec $prog failed\n");
} }
1; 1;
} }
@ -1165,7 +1161,7 @@ ETX
} }
sub copyright { sub copyright {
$id = '$Id: man.cgi,v 1.178 2007-07-16 17:40:22 wosch Exp $'; $id = '$Id: man.cgi,v 1.179 2007-07-16 17:48:29 wosch Exp $';
return qq{\ return qq{\
<pre> <pre>
@ -1220,7 +1216,7 @@ sub faq {
if $manPathAliases{$_}; if $manPathAliases{$_};
} }
local $id = '$Id: man.cgi,v 1.178 2007-07-16 17:40:22 wosch Exp $'; local $id = '$Id: man.cgi,v 1.179 2007-07-16 17:48:29 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>