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

print a 'Want to link to this manual page' link

Browse source 
at the bottom with a short persistent URI
This commit is contained in:
Wolfram Schneider 2008-08-05 21:56:16 +00:00
parent c8ac1ccb6a
commit b8eb7a30d4
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=32625
1 changed files with 30 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

46
en/cgi/man.cgi
View file

@ -33,8 +33,8 @@
# 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.217 2008-08-03 21:08:13 wosch Exp $
# $FreeBSD: www/en/cgi/man.cgi,v 1.216 2008/08/03 19:52:06 wosch Exp $
# $Id: man.cgi,v 1.218 2008-08-05 21:56:16 wosch Exp $
# $FreeBSD: www/en/cgi/man.cgi,v 1.217 2008/08/03 21:08:13 wosch Exp $
############################################################################
# !!! man.cgi is stale perl4 code !!!
@ -42,8 +42,8 @@
# run `perltidy -b man.cgi' to indent the code
# Use standard FreeBSD CGI Style if available. Otherwise
# print simple HTML design.
# Use standard FreeBSD CGI Style if available.
# Otherwise print simple HTML design.
package cgi_style;
use constant HAS_FREEBSD_CGI_STYLE => eval { require "./cgi-style.pl"; };
@ -381,7 +381,7 @@ $manPathDefault = 'FreeBSD 7.0-RELEASE';
'X11R6.8.2', "$manLocalDir/X11R6.8.2",
'X11R6.9.0', "$manLocalDir/X11R6.9.0",
'X11R7.2', "$manLocalDir/X11R7.2",
'X11R7.3.2', "$manLocalDir/X11R7.3.2",
'X11R7.3.2', "$manLocalDir/X11R7.3.2",
'ULTRIX 4.2', "$manLocalDir/ULTRIX-4.2",
'OSF1 V4.0/alpha', "$manLocalDir/OSF1-V4.0-alpha",
@ -478,9 +478,11 @@ $sections = join( "|", @sections ); # sections regexp
# mailto - Author
# webmaster - who run this service
$mailto = 'wosch@FreeBSD.org';
$mailtoURL = 'http://wolfram.schneider.org';
$mailtoURL = "mailto:$mailto" if !$mailtoURL;
$mailto = 'wosch@FreeBSD.org';
$mailtoURL = 'http://wolfram.schneider.org';
$mailtoURL = "mailto:$mailto" if !$mailtoURL;
$full_url = 'http://www.freebsd.org/cgi/man.cgi';
$want_to_link_to_this_page = 1;
&secure_env;
@ -702,11 +704,11 @@ sub apropos {
&formquery;
local ($mpath) = $manPath{$manpath};
if ($debug >= 2) {
foreach my $dir (split(/:/, $mpath)) {
my $whatis = $dir . '/whatis';
warn "$manpath: no whatis file found: $whatis\n" if ! -f $whatis;
}
if ( $debug >= 2 ) {
foreach my $dir ( split( /:/, $mpath ) ) {
my $whatis = $dir . '/whatis';
warn "$manpath: no whatis file found: $whatis\n" if !-f $whatis;
}
}
open( APROPOS, "env MANPATH=$mpath $command{'man'} -k . |" ) || do {
@ -751,8 +753,7 @@ sub to_filename {
my %args = @_;
my $name = exists $args{'name'} ? $args{'name'} : 'manpage';
my $section =
exists $args{'section'}
my $section = exists $args{'section'}
&& $args{'section'} ne "" ? $args{'section'} : '0';
my $format = exists $args{'format'} ? $args{'format'} : 'unkown';
@ -1020,6 +1021,19 @@ s/([a-z0-9_\-\.]+\@[a-z0-9\-\.]+\.[a-z]+)/<a href="mailto:$1">$1<\/A>/gi;
. ( $i < $#sect ? " |\n" : "\n" );
}
if ($want_to_link_to_this_page) {
print
qq{<p align="left">Want to link to this manual page? Use this URL: <br />&lt;};
print qq{<a href="$full_url?query=$html_name};
print qq{&sektion=$html_section} if $html_section != 0;
print qq{&manpath=}, &encode_url($manpath), qq{">};
print qq{$full_url?query=$html_name};
print qq{&amp;sektion=$html_section} if $html_section != 0;
print qq{&amp;manpath=}, &encode_url($manpath), qq{</a>&gt;</p>\n};
}
&html_footer;
# Sleep 0.35 seconds to avoid DoS attacs
@ -1315,7 +1329,7 @@ sub faq {
}
local $id =
'$FreeBSD: www/en/cgi/man.cgi,v 1.216 2008/08/03 19:52:06 wosch Exp $';
'$FreeBSD: www/en/cgi/man.cgi,v 1.217 2008/08/03 21:08:13 wosch Exp $';
return qq{\
<pre>
Copyright (c) 1996-2008 <a href="$mailtoURL">Wolfram Schneider</a>