diff --git a/en/cgi/man.cgi b/en/cgi/man.cgi
index 07a1c2ba58..1113789b99 100755
--- a/en/cgi/man.cgi
+++ b/en/cgi/man.cgi
@@ -1,1172 +1,1173 @@
 #!/usr/bin/perl -T
 #
 # Copyright (c) 1996-2003 Wolfram Schneider <wosch@FreeBSD.org>. Berlin.
 # All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without
 # modification, are permitted provided that the following conditions
 # are met:
 # 1. Redistributions of source code must retain the above copyright
 #    notice, this list of conditions and the following disclaimer.
 # 2. Redistributions in binary form must reproduce the above copyright
 #    notice, this list of conditions and the following disclaimer in the
 #    documentation and/or other materials provided with the distribution.
 #
 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 # ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
 # man.cgi - HTML hypertext FreeBSD man page interface
 #
 # based on bsdi-man.pl,v 2.17 1995/10/05 16:48:58 sanders Exp
 # bsdi-man -- HTML hypertext BSDI man page interface
 # based on bsdi-man.pl,v 2.10 1993/10/02 06:13:23 sanders Exp
 # by polk@BSDI.COM 1/10/95
 #	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.112 2003-10-29 14:15:54 www Exp $
+# $Id: man.cgi,v 1.113 2003-10-31 11:22:04 www Exp $
 
 #use Data::Dumper;
 #use Carp;
 
 
 $www{'title'} = 'FreeBSD Hypertext Man Pages';
 $www{'home'} = 'http://www.FreeBSD.org';
 $www{'head'} = qq[<A HREF="$www{'home'}">$www{'title'}</a> ] .
                qq[<IMG SRC="/gifs/littlelogo.gif">] .
                 "";
 
 $command{'man'} =     'man'; # 8Bit clean man
 $command{'man'} =     '/home/wosch/bin/cgi-man'; # 8Bit clean man
 $command{'man'} =     '/usr/bin/man'; # 8Bit clean man
 
 
 # Config Options
 # map sections to their man command argument(s)
 %sections = (
     '', '',
     'All', '',
     '0', '',
 
     '1', '-S1',
     '1c', '-S1',
     '1C', '-S1',
     '1g', '-S1',
     '1m', '-S1',
     '2', '-S2',
     '2j', '-S2',
     '3', '-S3',
     '3S', '-S3',
     '3f', '-S3',
     '3j', '-S3',
     '3m', '-S3',
     '3n', '-S3',
     '3r', '-S3',
     '3s', '-S3',
     '3x', '-S3',
     '4', '-S4',
     '5', '-S5',
     '6', '-S6',
     '7', '-S7',
     '8', '-S8',
     '8c', '-S8',
     '9', '-S9',
     'l', '-Sl',
     'n', '-Sn',
 );
 
 $sectionpath = {
     'HP-UX 11.22' => { 'path' => '1:1m:2:3:4:5:7:9' },
     'HP-UX 11.20' => { 'path' => '1:1m:2:3:4:5:7:9' },
     'HP-UX 11.11' => { 'path' => '1:1m:2:3:4:5:7:9' },
     'HP-UX 11.00' => { 'path' => '1:1m:2:3:4:5:7:9' },
     'HP-UX 10.20' => { 'path' => '1:1m:2:3:4:5:7:9' },
     'HP-UX 10.10' => { 'path' => '1:1m:2:3:4:5:7:9' },
     'HP-UX 10.01' => { 'path' => '1:1m:2:3:4:5:7:9' },
     'SunOS 5.9' => {
 	'path' => '1:1m:1s:2:3:3c:3malloc:3dl:3nsl:3socket:3ldap:3nisdb:3rac:3resolv:3rpc:3slp:3xfn:3proc:3rt:3thr:3elf:3kvm:3kstat:3m:3mp:3pam:3sched:3aio:3bsm:3cpc:3sec:3secdb:3cfgadm:3crypt:3devid:3devinfo:3door:3lib:3libucb:3head:3nvpair:3rsm:7:7d:7fs:7i:7m:7p:9:9e:9f:9p:9s:4:5:4b:3gen:3exacct:3sysevent:3wsreg:3dmi:3snmp:3tnf:3volmgt:3mail:3layout:3ext:3picl:3picltree:3pool:3project:1b:1c:1f:3ucb:3xnet:3curses:3plot:3xcurses:3gss:6:l:n',
     },
     'SunOS 5.8' => {
 	'path' => '1:1m:1s:2:3:3c:3malloc:3dl:3nsl:3socket:3ldap:3krb:3nisdb:3rac:3resolv:3rpc:3slp:3xfn:3proc:3rt:3thr:3elf:3kvm:3kstat:3m:3mp:3pam:3sched:3aio:3bsm:3cpc:3sec:3secdb:3cfgadm:3crypt:3devid:3devinfo:3door:3lib:3libucb:3head:7:7d:7fs:7i:7m:7p:9:9e:9f:9s:4:5:4b:3gen:3dmi:3snmp:3tnf:3volmgt:3mail:3layout:3ext:1b:1c:1f:3ucb:3xnet:3curses:3plot:3xcurses:6:l:n',
     },
     'SunOS 5.7' => {
 	'path' => '1:1m:1c:1f:1s:1b:2:3:3c:3s:3x:3xc:3n:3r:3t:3xn:3m:3k:3g:3e:3b:9f:9s:9e:9:4:5:7:7d:7i:7m:7p:7fs:4b:6:l:n',
     },
     'SunOS 5.6' => {
 	'path' => '1:1m:1c:1f:1s:1b:2:3:3c:3s:3x:3xc:3xn:3r:3t:3n:3m:3k:3g:3e:3b:9f:9s:9e:9:4:5:7:7d:7i:7m:7p:7fs:4b:6:l:n',
     },
     'SunOS 5.5.1' => {
 	'path' => '1:1m:1c:1f:1s:1b:2:3:3c:3s:3x:3xc:3xn:3r:3t:3n:3m:3k:3g:3e:3b:9f:9s:9e:9:4:5:7:7d:7i:7m:7p:7fs:4b:6:l:n',
     },
     'OpenBSD 3.0' => {
 	'path' => '1:2:3:3p:4:5:6:7:8:9',
     },
     'OpenBSD 3.1' => {
 	'path' => '1:2:3:3p:4:5:6:7:8:9',
     },
     'OpenBSD 3.2' => { 'path' => '1:2:3:3p:4:5:6:7:8:9', },
     'OpenBSD 3.3' => { 'path' => '1:2:3:3p:4:5:6:7:8:9', },
 };
 
 foreach my $os (keys %$sectionpath) {
     foreach my $section (split(/:/, $sectionpath->{$os}{'path'})) {
 	$section =~ /(.)(.*)/;
 	$sectionpath->{$os}{$1} .= 
 	    ($sectionpath->{$os}{$1} ? ':' : '') . $section;
     }
 }
 
 
 %sectionName = 
     (
      '0', 'All Sections',
      '1', '1 - General Commands',
      '2', '2 - System Calls',
      '3', '3 - Subroutines',
      '4', '4 - Special Files',
      '5', '5 - File Formats',
      '6', '6 - Games',
      '7', '7 - Macros and Conventions',
      '8', '8 - Maintenance Commands',
      '9', '9 - Kernel Interface',
      'n', 'n - New Commands',
      );
 
 $manLocalDir = '/usr/local/www/bsddoc/man';
 $manPathDefault = 'FreeBSD 5.1-RELEASE';
 
 %manPath = 
     (
      'FreeBSD 5.1-current',   "$manLocalDir/FreeBSD-5.1-current",
      'FreeBSD 4.9-stable',    "$manLocalDir/FreeBSD-4.9-stable",
 
      'FreeBSD 5.1-RELEASE',   "$manLocalDir/FreeBSD-5.1-RELEASE",
      'FreeBSD 5.0-RELEASE',   "$manLocalDir/FreeBSD-5.0-RELEASE",
      'FreeBSD 4.9-RELEASE',   "$manLocalDir/FreeBSD-4.9-RELEASE",
      'FreeBSD 4.8-RELEASE',   "$manLocalDir/FreeBSD-4.8-RELEASE",
      'FreeBSD 4.7-RELEASE',   "$manLocalDir/FreeBSD-4.7-RELEASE",
      'FreeBSD 4.6.2-RELEASE', "$manLocalDir/FreeBSD-4.6.2-RELEASE",
      'FreeBSD 4.6-RELEASE',   "$manLocalDir/FreeBSD-4.6-RELEASE",
      'FreeBSD 4.5-RELEASE',   "$manLocalDir/FreeBSD-4.5-RELEASE",
      'FreeBSD 4.4-RELEASE',   "$manLocalDir/FreeBSD-4.4-RELEASE",
      'FreeBSD 4.3-RELEASE',   "$manLocalDir/FreeBSD-4.3-RELEASE",
      'FreeBSD 4.2-RELEASE',   "$manLocalDir/FreeBSD-4.2-RELEASE",
      'FreeBSD 4.1.1-RELEASE', "$manLocalDir/FreeBSD-4.1.1-RELEASE",
      'FreeBSD 4.1-RELEASE',   "$manLocalDir/FreeBSD-4.1-RELEASE",
      'FreeBSD 4.0-RELEASE',   "$manLocalDir/FreeBSD-4.0-RELEASE",
      'FreeBSD 3.5.1-RELEASE',   "$manLocalDir/FreeBSD-3.5.1-RELEASE",
      'FreeBSD 3.4-RELEASE',   "$manLocalDir/FreeBSD-3.4-RELEASE",
      'FreeBSD 3.3-RELEASE',   "$manLocalDir/FreeBSD-3.3-RELEASE",
      'FreeBSD 3.2-RELEASE',   "$manLocalDir/FreeBSD-3.2-RELEASE",
      'FreeBSD 3.1-RELEASE',   "$manLocalDir/FreeBSD-3.1-RELEASE",
      'FreeBSD 3.0-RELEASE',   "$manLocalDir/FreeBSD-3.0-RELEASE",
      'FreeBSD 2.2.5-RELEASE',   "$manLocalDir/FreeBSD-2.2.5-RELEASE",
      'FreeBSD 2.2.6-RELEASE',   "$manLocalDir/FreeBSD-2.2.6-RELEASE",
      'FreeBSD 2.2.7-RELEASE',   "$manLocalDir/FreeBSD-2.2.7-RELEASE",
      'FreeBSD 2.2.8-RELEASE',   "$manLocalDir/FreeBSD-2.2.8-RELEASE",
      'FreeBSD 2.2.2-RELEASE',   "$manLocalDir/FreeBSD-2.2.2-RELEASE",
      'FreeBSD 2.2.1-RELEASE',   "$manLocalDir/FreeBSD-2.2.1-RELEASE",
      'FreeBSD 2.1.7.1-RELEASE', "$manLocalDir/FreeBSD-2.1.7.1-RELEASE",
      'FreeBSD 2.1.6.1-RELEASE', "$manLocalDir/FreeBSD-2.1.6.1-RELEASE",
      'FreeBSD 2.1.5-RELEASE', "$manLocalDir/FreeBSD-2.1.5-RELEASE",
      'FreeBSD 2.1.0-RELEASE', "$manLocalDir/FreeBSD-2.1.0-RELEASE",
      'FreeBSD 2.0.5-RELEASE', "$manLocalDir/FreeBSD-2.0.5-RELEASE",
      'FreeBSD 2.0-RELEASE',   "$manLocalDir/FreeBSD-2.0-RELEASE",
      'FreeBSD 1.1.5.1-RELEASE', "$manLocalDir/FreeBSD-1.1.5.1-RELEASE",
      'FreeBSD 1.1-RELEASE',   "$manLocalDir/FreeBSD-1.1-RELEASE",
      'FreeBSD 1.0-RELEASE',   "$manLocalDir/FreeBSD-1.0-RELEASE",
      'FreeBSD Ports 5.0-RELEASE', "$manLocalDir/FreeBSD-ports-5.0-RELEASE",
      'FreeBSD Ports 4.7-RELEASE', "$manLocalDir/FreeBSD-ports-4.7-RELEASE",
 
      'OpenBSD 2.0',           "$manLocalDir/OpenBSD-2.0",
      'OpenBSD 2.1',           "$manLocalDir/OpenBSD-2.1",
      'OpenBSD 2.2',           "$manLocalDir/OpenBSD-2.2",
      'OpenBSD 2.3',           "$manLocalDir/OpenBSD-2.3",
      'OpenBSD 2.4',           "$manLocalDir/OpenBSD-2.4",
      'OpenBSD 2.5',           "$manLocalDir/OpenBSD-2.5",
      'OpenBSD 2.6',           "$manLocalDir/OpenBSD-2.6",
      'OpenBSD 2.7',           "$manLocalDir/OpenBSD-2.7",
      'OpenBSD 2.8',           "$manLocalDir/OpenBSD-2.8",
      'OpenBSD 2.9',           "$manLocalDir/OpenBSD-2.9",
      'OpenBSD 3.0',           "$manLocalDir/OpenBSD-3.0",
      'OpenBSD 3.1',           "$manLocalDir/OpenBSD-3.1",
      'OpenBSD 3.2',           "$manLocalDir/OpenBSD-3.2",
      'OpenBSD 3.3',           "$manLocalDir/OpenBSD-3.3",
 
     #'NetBSD 0.9',            "$manLocalDir/NetBSD-0.9",
      'NetBSD 1.0',            "$manLocalDir/NetBSD-1.0",
      'NetBSD 1.1',            "$manLocalDir/NetBSD-1.1",
      'NetBSD 1.2',            "$manLocalDir/NetBSD-1.2",
      'NetBSD 1.2.1',          "$manLocalDir/NetBSD-1.2.1",
      'NetBSD 1.3',            "$manLocalDir/NetBSD-1.3",
      'NetBSD 1.3.1',          "$manLocalDir/NetBSD-1.3.1",
      'NetBSD 1.3.2',          "$manLocalDir/NetBSD-1.3.2",
      'NetBSD 1.3.3',          "$manLocalDir/NetBSD-1.3.3",
      'NetBSD 1.4',            "$manLocalDir/NetBSD-1.4",
      'NetBSD 1.4.1',          "$manLocalDir/NetBSD-1.4.1",
      'NetBSD 1.4.2',          "$manLocalDir/NetBSD-1.4.2",
      'NetBSD 1.4.3',          "$manLocalDir/NetBSD-1.4.3",
      'NetBSD 1.5',            "$manLocalDir/NetBSD-1.5",
      'NetBSD 1.5.1',          "$manLocalDir/NetBSD-1.5.1",
      'NetBSD 1.5.2',          "$manLocalDir/NetBSD-1.5.2",
      'NetBSD 1.5.3',          "$manLocalDir/NetBSD-1.5.3",
      'NetBSD 1.6',            "$manLocalDir/NetBSD-1.6",
      'NetBSD 1.6.1',          "$manLocalDir/NetBSD-1.6.1",
 
      '2.8 BSD',             "$manLocalDir/2.8BSD",
      '2.9.1 BSD',             "$manLocalDir/2.9.1BSD",
      '2.10 BSD',              "$manLocalDir/2.10BSD",
      '2.11 BSD',              "$manLocalDir/2.11BSD",
      '386BSD 0.0',            "$manLocalDir/386BSD-0.0",
      '386BSD 0.1',            "$manLocalDir/386BSD-0.1",
      '4.3BSD Reno',	      "$manLocalDir/4.3BSD-Reno",
      '4.3BSD NET/2',          "$manLocalDir/net2",
      '4.4BSD Lite2',	      "$manLocalDir/4.4BSD-Lite2",
 
      'Linux Slackware 3.1',   "$manLocalDir/Slackware-3.1",
      'Red Hat Linux/i386 4.2', "$manLocalDir/RedHat-4.2",
      'Red Hat Linux/i386 5.0', "$manLocalDir/RedHat-5.0",
      'Red Hat Linux/i386 5.2', "$manLocalDir/RedHat-5.2-i386",
      'Red Hat Linux/i386 6.1', "$manLocalDir/RedHat-6.1-i386",
      'Red Hat Linux/i386 6.2', "$manLocalDir/RedHat-6.2-i386",
      'Red Hat Linux/i386 7.0', "$manLocalDir/RedHat-7.0-i386",
      'Red Hat Linux/i386 7.1', "$manLocalDir/RedHat-7.1-i386",
      'Red Hat Linux/i386 7.2', "$manLocalDir/RedHat-7.2-i386",
      'Red Hat Linux/i386 7.3', "$manLocalDir/RedHat-7.3-i386",
+     'Red Hat Linux/i386 8.0', "$manLocalDir/RedHat-8.0-i386",
 
      'SuSE Linux/i386 4.3',   "$manLocalDir/SuSE-4.3-i386",
      'SuSE Linux/i386 5.0',   "$manLocalDir/SuSE-5.0-i386",
      'SuSE Linux/i386 5.2',   "$manLocalDir/SuSE-5.2-i386",
      'SuSE Linux/i386 5.3',   "$manLocalDir/SuSE-5.3-i386",
      'SuSE Linux/i386 6.0',   "$manLocalDir/SuSE-6.0-i386",
      'SuSE Linux/i386 6.1',   "$manLocalDir/SuSE-6.1-i386",
      'SuSE Linux/i386 6.3',   "$manLocalDir/SuSE-6.3-i386",
      'SuSE Linux/i386 6.4',   "$manLocalDir/SuSE-6.4-i386",
      'SuSE Linux/i386 7.0',   "$manLocalDir/SuSE-7.0-i386",
      'SuSE Linux/i386 7.1',   "$manLocalDir/SuSE-7.1-i386",
      'SuSE Linux/i386 7.2',   "$manLocalDir/SuSE-7.2-i386",
      'SuSE Linux/i386 7.3',   "$manLocalDir/SuSE-7.3-i386",
 
      'HP-UX 11.22',	      "$manLocalDir/HP-UX-11.22",
      'HP-UX 11.20',	      "$manLocalDir/HP-UX-11.20",
      'HP-UX 11.11',	      "$manLocalDir/HP-UX-11.11",
      'HP-UX 11.00',	      "$manLocalDir/HP-UX-11.00",
      'HP-UX 10.20',	      "$manLocalDir/HP-UX-10.20",
      'HP-UX 10.10',	      "$manLocalDir/HP-UX-10.10",
      'HP-UX 10.01',	      "$manLocalDir/HP-UX-10.01",
 
      'SunOS 5.9',	      "$manLocalDir/SunOS-5.9",
      'SunOS 5.8',	      "$manLocalDir/SunOS-5.8",
      'SunOS 5.7',	      "$manLocalDir/SunOS-5.7",
      'SunOS 5.6',	      "$manLocalDir/SunOS-5.6",
      'SunOS 5.5.1',	      "$manLocalDir/SunOS-5.5.1",
      'SunOS 4.1.3',	      "$manLocalDir/SunOS-4.1.3",
 
      'XFree86 3.2',	      "$manLocalDir/XFree86-3.2",
      'XFree86 3.3',	      "$manLocalDir/XFree86-3.3",
      'XFree86 3.3.6',	      "$manLocalDir/XFree86-3.3.6",
      'XFree86 4.0',	      "$manLocalDir/XFree86-4.0",
      'XFree86 4.0.1',	      "$manLocalDir/XFree86-4.0.1",
      'XFree86 4.0.2',	      "$manLocalDir/XFree86-4.0.2",
      'XFree86 4.1.0',	      "$manLocalDir/XFree86-4.1.0",
      'XFree86 4.2.0',	      "$manLocalDir/XFree86-4.2.0",
      'XFree86 4.2.99.3',      "$manLocalDir/XFree86-4.2.99.3",
      'XFree86 4.3.0',         "$manLocalDir/XFree86-4.3.0",
 
      'ULTRIX 4.2',	      "$manLocalDir/ULTRIX-4.2",
      'OSF1 V4.0/alpha',	      "$manLocalDir/OSF1-V4.0-alpha",
      'OSF1 V5.1/alpha',	      "$manLocalDir/OSF1-V5.1-alpha",
 
      'Plan 9',		      "$manLocalDir/plan9",
      'Minix 2.0',             "$manLocalDir/Minix-2.0",
      'Unix Seventh Edition',  "$manLocalDir/v7man",
      'deutsch - Linux/GNU',   "$manLocalDir/linux-de-0.4",
      'Darwin 1.3 PPC',        "$manLocalDir/Darwin-1.3-ppc",
 );
 
 # delete not existing releases
 while (($key,$val) = each %manPath) {
     if ((! -d $val) && (! -l $val)) {
 	delete $manPath{"$key"} if $key ne $manPathDefault;
     }
 }
 
 # keywords must be in lower cases.
 %manPathAliases = 
     (
      'freebsd', 'FreeBSD 5.1-RELEASE',
      'freebsd-stable', 'FreeBSD 4.9-stable',
      'freebsd-current', 'FreeBSD 5.1-current',
      'freebsd 5.1-release', 'FreeBSD 5.1-RELEASE',
      'slackware', 'Linux Slackware 3.1',
      'linux-de', 'deutsch - Linux/GNU',
-     'redhat', 'Red Hat Linux/i386 7.3',
+     'redhat', 'Red Hat Linux/i386 8.0',
      'suse', 'SuSE Linux/i386 7.3',
-     'linux', 'Red Hat Linux/i386 7.3',
+     'linux', 'Red Hat Linux/i386 8.0',
      'darwin', 'Darwin 1.3 PPC',
      'macosx', 'Darwin 1.3 PPC',
 
      'netbsd', 'NetBSD 1.6.1',
      'openbsd', 'OpenBSD 3.3',
      'v7', 'Unix Seventh Edition', 
      'v7man', 'Unix Seventh Edition', 
      'x11', 'XFree86 4.3.0',
      'xfree86', 'XFree86 4.3.0',
      'ultrix', 'ULTRIX 4.2',
      'hpux', 'HP-UX 11.22',
      'solaris', 'SunOS 5.9',
      'sunos5', 'SunOS 5.9',
      'sunos4', 'SunOS 4.1.3',
      'sunos', 'SunOS 4.1.3',
      'freebsd ports', 'FreeBSD Ports 4.7-RELEASE',
      'ports', 'FreeBSD Ports 4.7-RELEASE',
      'plan9', 'Plan 9',
      'osf1', 'OSF1 V5.1/alpha',
      'true64', 'OSF1 V5.1/alpha',
 );
 
 foreach (sort keys %manPathAliases) {
     # delete non-existing aliases
     if (!defined($manPath{$manPathAliases{$_}})) {
 	undef $manPathAliases{$_};
 	next;
     }
 
     # add aliases, replases spaces with dashes
     if (/\s/) {
 	local($key) = $_;
 	$key =~ s/\s+/-/g;
 	$manPathAliases{$key} = $manPathAliases{$_};
     }
 }
 
 @sections = keys %sections; shift @sections;	# all but the "" entry
 $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;
 $webmaster = $mailto;
 $webmasterURL = $mailtoURL;
 $manstat = 'http://www.de.freebsd.org/de/stat/man';
 
 &secure_env;
 # CGI Interface -- runs at load time
 &do_man(&env('SCRIPT_NAME'), &env('PATH_INFO'), &env('QUERY_STRING'))
     unless defined($main'plexus_configured);
 
 $enable_include_links = 0;
 
 # Plexus Native Interface
 sub do_man {
     local($BASE, $path, $form) = @_;
     local($_, %form, $query, $proto, $name, $section, $apropos);
 
     # spinner is buggy, shit
     local($u) = 'http://user.cs.tu-berlin.de/~wosch/man.cgi';
 	local($u)= $BASE;
 
     return &faq_output($u) if ($path =~ /faq.html$/);
     return &copyright_output($u) if ($path =~ /copyright.html$/);
     return &get_the_sources if ($path =~ /source$/);
 
     return &include_output($path) 
     	if ($enable_include_links && $path =~ m%^/usr/include/% && -f $path);
 
     return &indexpage if ($form eq "");
 
     &decode_form($form, *form, 0);
     
     $format = $form{'format'};
     $format = 'html' if $format !~ /^(ps|pdf|ascii|latin1|dvi|troff)$/;
 
     local($fform) = &dec($form);
     if ($fform =~ m%^([a-zA-Z_\-]+)$%) {
 	return &man($1, '');
     } elsif ($fform =~ m%^([a-zA-Z_\-]+)\(([0-9a-zA-Z]+)\)$%) {
 	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'};
     $alttitle = $form{'title'};
     $manpath = $form{'manpath'};
     if (!$manpath) {
 	$manpath = $manPathDefault;
     } elsif (!$manPath{$manpath}) {
 	local($m) = ($manpath =~ y/A-Z/a-z/);
 	if ($manPath{$manPathAliases{$manpath}}) {
 	    $manpath = $manPathAliases{$manpath};
 	} else {
 	    $manpath = $manPathDefault;
 	}
     }
 
     # download a man hierarchie as gzip'd tar file
     return &download if ($apropos > 1);
 
     # empty query
     return &indexpage if ($manpath && $form !~ /query=/);
 
     $section = "" if $section eq "ALL" || $section eq '';
 
     if (!$apropos && $query =~ m/^(.*)\(([^\)]*)\)/) {
 	$name = $1; $section = $2;
     }
     
     $apropos  ?  &apropos($query)  :  &man($name, $section);
 }
 
 # --------------------- support routines ------------------------
 
 sub debug {
     &http_header("text/plain");
     print @_,"\n----------\n\n\n";
 }
 
 sub get_the_sources {
     local($file) = '/usr/local/www/bsddoc/bin/man.cgi';
     $file = $0 if ! -f $file;
 
     open(R, $file) || &mydie("open $file: $!\n");
     print "Content-type: text/plain\n\n";
     while(<R>) { print }
     close R;
     exit;
 }
 
 # download a manual directory as gzip'd tar archive
 sub download {
 
     $| = 1;
     print qq{Content-type: application/x-tar\n} .
 	qq{Content-encoding: x-gzip\n\n};
 
     local($m) = $manPath{"$manpath"};
     $m =~ s%^$manLocalDir/?%%;
 
     chdir($manLocalDir) || do {
 	print "chdir: $!\n"; exit(0);
     };
 
     sleep 1;
     system("find $m/* -print | cpio -o -H tar 2>/dev/null | gzip -cqf");
     exit(0);
 }
 
 sub http_header {
     local($content_type) = @_;
     if (defined($main'plexus_configured)) {
 	&main'MIME_header('ok', $content_type);
     } else {
 	print "Content-type: $content_type\n\n";
     }
 }
 
 sub env { defined($main'ENV{$_[0]}) ? $main'ENV{$_[0]} : undef; }
 
 sub apropos {
     local($query) = @_;
     local($_, $title, $head, *APROPOS);
     local($names, $section, $msg, $key);
     local($prefix);
 
     $prefix = "Apropos ";
     if ($alttitle) {
 	$prefix = "";
 	$title = &encode_title($alttitle);
 	$head = &encode_data($alttitle);
     } else {
 	$title = &encode_title($query);
 	$head = &encode_data($query);
     }
 
     &http_header("text/html");
     print &html_header("$www{'title'}: Apropos $title");
     print "<H1>$www{'head'}</H1>\n\n";
     &formquery;
 
     local($mpath) = ($manpath ? &dec($manpath) : $manPathDefault);
 
     open(APROPOS, "$manPath{$mpath}/whatis") || do {
 	warn "$0: Cannot open whatis database for `$mpath'\n";
 	print "Cannot open whatis database for `$mpath'\n";
 	print "</DL>\n</BODY>\n</HTML>\n";
 	return;
     };
 
     local($q) = $query; 
     $q =~ s/(\W)/\\W/g;
     local($acounter) = 0;
     
     while (<APROPOS>) {
 	next if !/$q/oi;
 	$acounter++;
 
     	# matches whatis.db lines: name[, name ...] (sect) - msg
 	$names = $section = $msg = $key = undef;
 	($key, $section) = m/^([^()]+)\(([^)]*)\)/;
         $key =~ s/\s+$//;
         $key =~ s/.*\s+//;
         ($names, $msg) = m/^(.*\))\s+-\s+(.*)/;
 	print "<DT><A HREF=\"$BASE?query=", &encode_url($key),
 	    "&sektion=", &encode_url($section), "&apropos=0", 
             "&manpath=", &encode_url($manpath), "\">",
 	    &encode_data("$names"), "</A>\n<DD>",
 	    &encode_data($msg), "\n";
     }
     close(APROPOS);
 
     if (!$acounter) {
 	print "Sorry, no data found for `$query'.\n";
 	print qq{You may look for other } . 
 	    qq{<a href="../../search/">FreeBSD Search Services</a>.\n};
     }
     print "</DL>\n</BODY>\n</HTML>\n";
 }
 
 sub man {
     local($name, $section) = @_;
     local($_, $title, $head, *MAN);
     local($html_name, $html_section, $prefix);
     local(@manargs);
     local($query) = $name;
 
     # $section =~ s/^([0-9ln]).*$/$1/;
     $section =~ tr/A-Z/a-z/;
 
     $prefix = "Man ";
     if ($alttitle) {
 	$prefix = "";
 	$title = &encode_title($alttitle);
 	$head = &encode_data($alttitle);
     } elsif ($section) {
 	$title = &encode_title("${name}($section)");
 	$head = &encode_data("${name}($section)");
     } else {
 	$title = &encode_title("${name}");
 	$head = &encode_data("${name}");
     }
 
     if ($format eq "html") {
 	&http_header("text/html");
 	print &html_header("$www{'title'}: $title");
 	print "<H1>$www{'head'}</H1>\n\n";
 	&formquery;
 	print "<PRE>\n";
     } else {
 	#$format =~ /^(ps|ascii|latin1|dvi|troff)$/')
 	$ENV{'NROFF_FORMAT'} = $format;
 
 	# Content-encoding: x-gzip
 	if ($format eq "ps") {
 	    &http_header("application/postscript");
 	} elsif ($format eq "pdf") {
 	    &http_header("application/pdf");
 	} elsif ($format eq "dvi") {
 	    &http_header("application/x-dvi");
 	} elsif ($format eq "troff") {
 	    &http_header("application/x-troff-mandoc");
 	} else {
 	    &http_header("text/plain");
 	}
     }
 
     $html_name = &encode_data($name);
     $html_section = &encode_data($section);
 
     #print Dumper($sectionpath);
     #print "yy $section yy $manpath\n";
     if ($name =~ /^\s*$/) {	
 	print "Empty input, no man page given.\n";
 	return;
     }
 
     if (index($name, '*') != -1) {	
 	print "Invalid character input '*': $name\n";
 	return;
     }
 
     if ($section !~ /^[0-9ln]\w*$/ && $section ne '') {
 	print "Sorry, section `$section' is not valid\n";
 	return;
     }
 
     if (!$section) {
 	if ($sectionpath->{$manpath}) {
 	    $section = "-S " . $sectionpath->{$manpath}{'path'};
 	} else {
 	    $section =  '';
 	}
     } else {
 	if ($sectionpath->{$manpath}{$section}) {
 	    $section = "-S " . $sectionpath->{$manpath}{$section};
 	} else {
 	    $section = "-S $section";
 	}
     }
 
     @manargs = split(/ /, $section);
     if ($manpath) {
 	if ($manPath{$manpath}) {
 	    unshift(@manargs, ('-M', $manPath{$manpath}));
 	} elsif ($manpath{&dec($manpath)}) {
 	    unshift(@manargs, ('-M', $manPath{&dec($manpath)}));
 	} else {
 	    # unset invalid manpath
 	    print "x $manpath x\n";
 	    print "x " . &dec($manpath) . "x\n";
 	    undef $manpath;
 	}
     }
 
     if ($format =~ /^(ps|pdf)$/) {
         push(@manargs, '-t');
     }
 
     # print "X $command{'man'} @manargs -- x $name x\n";
     &proc(*MAN, $command{'man'}, @manargs, "--", $name) ||
 	&mydie ("$0: open of $command{'man'} command failed: $!\n");
     if (eof(MAN)) {
 	# print "X $command{'man'} @manargs -- x $name x\n";
 	print "Sorry, no data found for `$html_name" .
 		($html_section ? "($html_section)": '') . "'.\n";
 	print qq{You may look for other } . 
 	    qq{<a href="../../search/">FreeBSD Search Services</a>.\n};
 	return;
     }
 
     if ($format ne "html") {
 	if ($format eq "latin1" || $format eq "ascii") {
 	    while(<MAN>) { s/.//g; print; }
 	} elsif ($format eq "pdf") {
 	    # 
 	    # run a PostScript to PDF converter
 	    #
 	    local(@args) = ('mktemp', '/tmp/_man.cgi-ps2pdf-XXXXXXXXXXXX');
 	    open(TMP, "-|") or 
 		exec(@args) or die "open @args: $!\n";
 	    local($tempfile) = <TMP>;
 	    close TMP;
 
 	    # chomp, avoid security warnings using -T switch
 	    #chop($tempfile);
 	    if ($tempfile =~ /(\S+)/) {
 		$tempfile = $1;
 	    }
 
 	    if (!$tempfile || ! -f $tempfile) {
 		die "Cannot create tempfile: $tempfile\n";
 	    }
 	    #warn $tempfile;
 
 	    #$tempfile = '/tmp/bla2';
 	    open(TMP, "> $tempfile") or die "open $tempfile: $!\n";
 	    while(<MAN>) {
 		print TMP $_;
 	    }
 	    close TMP;
 	    local($ENV{'PATH'}) = '/bin:/usr/bin:/usr/local/bin';
 	    open(PDF, "-|") or 
 		exec('/usr/local/bin/ps2pdf', $tempfile, '/dev/stdout') or
 		die "open ps2pdf: $!\n";
 
             # sleep and delete the temp file
             #select(undef, undef, undef, 0.8);
 	    #unlink($tempfile);
 
 	    while(<PDF>) {
 		print;
 	    }
 	    close PDF;
 	    unlink($tempfile);
 
 	} else {
 	    while(<MAN>) { print; }
 	}
 	close(MAN);
 	exit(0);
     }
 
     local($space) = 1;
     local(@sect);
     local($i, $j);
     while(<MAN>) {
 	# remove tailing white space
 	if (/^\s+$/) {
 	    next if $space;
 	    $space = 1;
 	} else {
 	    $space = 0;
 	}
 
 	$_ = &encode_data($_);
 	if($enable_include_links &&
 	   m,(<B>)?\#include(</B>)?\s+(<B>)?\&lt\;(.*\.h)\&gt\;(</B>)?,) {
 	    $match = $4; ($regexp = $match) =~ s/\./\\\./;
 	    s,$regexp,\<A HREF=\"$BASE/usr/include/$match\"\>$match\</A\>,;
         }
 	/^\s/ && 			# skip headers
 	    s,((<[IB]>)?[\w\_\.\-]+\s*(</[IB]>)?\s*\(([1-9ln][a-zA-Z]*)\)),&mlnk($1),oige;
 
 	# detect E-Mail Addreses in manpages
 	if (/\@/) {
 	    s/([a-z0-9_\-\.]+\@[a-z0-9\-\.]+\.[a-z]+)/<A HREF="mailto:$1">$1<\/A>/gi;
 	}
 
 	# detect URLs in manpages
 	if (m%tp://%) {
 	    s,((ftp|http)://[^\s<>\)]+),<A HREF="$1">$1</A>,gi;
 	}
 
 	if (/^<B>\S+/ && m%^<B>([^<]+)%) {
 	    $i = $1; $j = &encode_url($i);
 	    s%^<B>([^<]+)</B>%<a name="$j" href="#end"><B>$i</B></a>%;
 	    push(@sect, $1);
         }
 	print;
     }
     close(MAN);
     print qq{</PRE>\n<a name="end">\n<hr noshade>\n};
 
     for ($i = 0; $i <= $#sect; $i++) {
 	print qq{<a href="#} . &encode_url($sect[$i]) . 
             qq{">$sect[$i]</a>} . ($i < $#sect ? " |\n" : "\n");
     }
 
     print "</BODY>\n";
     print "</HTML>\n";
 
     # Sleep 0.35 seconds to avoid DoS attacs
     select undef, undef, undef, 0.35;
 }
 
 sub mlnk {
     local($matched) = @_;
     local($link, $section);
     ($link = $matched) =~ s/[\s]+//g;
     $link =~ s/<\/?[IB]>//g;
     ($link, $section) = ($link =~ m/^([^\(]*)\((.*)\)/);
     $link = &encode_url($link);
     $section = &encode_url($section);
     local($manpath) = &encode_url($manpath);
     return qq{<A HREF="$BASE?query=$link} . 
            qq{&sektion=$section&apropos=0&manpath=$manpath">$matched</A>};
 }
 
 sub proc {
     local(*FH, $prog, @args) = @_;
     local($pid) = open(FH, "-|");
     return undef unless defined($pid);
     if ($pid == 0) {
 	exec $prog, @args;
 	&mydie("exec $prog failed\n");
     }
     1;
 }
 
 # $indent is a bit of optional data processing I put in for
 # formatting the data nicely when you are emailing it.
 # This is derived from code by Denis Howe <dbh@doc.ic.ac.uk>
 # and Thomas A Fine <fine@cis.ohio-state.edu>
 sub decode_form {
     local($form, *data, $indent, $key, $_) = @_;
     foreach $_ (split(/&/, $form)) {
 	($key, $_) = split(/=/, $_, 2);
 	$_   =~ s/\+/ /g;				# + -> space
 	$key =~ s/\+/ /g;				# + -> space
 	$_   =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig;	# undo % escapes
 	$key =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig;	# undo % escapes
 	$_   =~ s/[\r\n]+/\n\t/g if defined($indent);	# indent data after \n
 	$data{$key} = &escape($_);
     }
 }
 
 # block cross-site scripting attacks (css)
 sub escape($) { $_ = $_[0]; s/&/&amp;/g; s/</&lt;/g; s/>/&gt;/g; $_; }
 
 sub dec {
     local($_) = @_;
 
     s/\+/ /g;                       # '+'   -> space
     s/%(..)/pack("c",hex($1))/ge;   # '%ab' -> char ab
 
     return($_);
 }
 
 #
 # Splits up a query request, returns an array of items.
 # usage: @items = &main'splitquery($query);
 #
 sub splitquery {
     local($query) = @_;
     grep((s/%([\da-f]{1,2})/pack(C,hex($1))/eig, 1), split(/\+/, $query));
 }
 
 # encode unknown data for use in a URL <A HREF="...">
 sub encode_url {
     local($_) = @_;
     # rfc1738 says that ";"|"/"|"?"|":"|"@"|"&"|"=" may be reserved.
     # And % is the escape character so we escape it along with
     # single-quote('), double-quote("), grave accent(`), less than(<),
     # greater than(>), and non-US-ASCII characters (binary data),
     # and white space.  Whew.
     s/([\000-\032\;\/\?\:\@\&\=\%\'\"\`\<\>\177-\377 ])/sprintf('%%%02x',ord($1))/eg;
     s/%20/+/g;
     $_;
 }
 # encode unknown data for use in <TITLE>...</TITILE>
 sub encode_title {
     # like encode_url but less strict (I couldn't find docs on this)
     local($_) = @_;
     s/([\000-\031\%\&\<\>\177-\377])/sprintf('%%%02x',ord($1))/eg;
     $_;
 }
 # encode unknown data for use inside markup attributes <MARKUP ATTR="...">
 sub encode_attribute {
     # rfc1738 says to use entity references here
     local($_) = @_;
     s/([\000-\031\"\'\`\%\&\<\>\177-\377])/sprintf('\&#%03d;',ord($1))/eg;
     $_;
 }
 # encode unknown text data for using as HTML,
 # treats ^H as overstrike ala nroff.
 sub encode_data {
     local($_) = @_;
     local($str);
 
     # Escape &, < and >
     s,\010[><&],,g;
     s/\&/\&amp\;/g; 
     s/\</\&lt\;/g; 
     s/\>/\&gt\;/g;
 
     s,((_\010.)+),($str = $1) =~ s/.\010//g; "<I>$str</I>";,ge;
     s,(.\010)+,$1,g;
 
     if (!s,((.\010.)+\s+(.\010.)+),($str = $1) =~ s/.\010//g; "<B>$str</B>";,ge) {
     s,((.\010.)+),($str = $1) =~ s/.\010//g; "<B>$str</B>";,ge;
     }
 
 
     # Escape binary data except for ^H which we process below
     # \375 gets turned into the & for the entity reference
     #s/([^\010\012\015\032-\176])/sprintf('\375#%03d;',ord($1))/eg;
     # Process ^H sequences, we use \376 and \377 (already escaped
     # above) to stand in for < and > until those characters can
     # be properly escaped below.
     #s,\376[IB]\377_\376/[IB]\377,,g;
     #s/.[\b]//g;			# just do an erase for anything else
     # Now convert our magic chars into our tag markers
     #s/\375/\&/g; s/\376/</g; s/\377/>/g;
 
     s,.\010,,g;
 
     $_;
 }
 
 sub indexpage {
     &http_header("text/html");
     print &html_header("$www{'title'}: Index Page") .
 	 "<H1>$www{'head'}</H1>\n\n" . &intro;
     &formquery;
 
     local($m) = ($manpath ? $manpath : $manPathDefault);
     $m = &encode_url($m);
 
     print "<B><I>Section Indexes</I></B>: ";
     foreach ('1', '2', '3', '4', '5', '6', '7', '8', '9', 'n') {
 	print qq{&#164; <A HREF="$BASE?query=($_)&sektion=&apropos=1&manpath=$m&title=Section%20$_Index">$_</A>\n};
     }
 
     print "<BR><B><I>Explanations of Man Sections:</I></B>";
     foreach ('1', '2', '3', '4', '5', '6', '7', '8', '9') {
 	print qq{&#164; <A HREF="$BASE?query=intro&sektion=$_&apropos=0&manpath=$m&title=Introduction%20Section%20$_">intro($_)</A>\n};
     }
 
     print "<BR>\n<B><I>Quick Reference Categories:</I></B>\n";
     foreach ('database', 'disk', 'driver', 'ethernet', 'mail', 'net', 'nfs', 
              'nis', 'protocol', 'ppp', 'roff', 'string', 'scsi', 
 	     'statistic', 'tcl', 'tcp', 'time') 
     {
 	print qq{&#164; <A HREF="$BASE?query=$_&sektion=&apropos=1&manpath=$m&title=Quick%20Ref%20$_">$_</A>\n};
     }
 
     print <<ETX if $mailto;
 <HR noshade>
 <img ALIGN="RIGHT" src="/gifs/powerlogo.gif">
 Please direct questions about this server to
 <I><A HREF="$webmasterURL">$webmaster</A></I><br>
 URL:  <A HREF="$BASE" target=_parent>$www{'home'}$BASE</a><br>
 ETX
 
     print "<br>\n";
     print "</BODY>\n</HTML>\n";
     0;
 }
 
 sub formquery {
     local($astring, $bstring);
     if (!$apropos) {
 	$astring = " CHECKED";
     } else {
 	$bstring = " CHECKED";
     }
 
     print <<ETX;
 <FORM METHOD="GET" ACTION="$BASE">
 <B><I>Man Page or Keyword Search:</I></B>
 <INPUT VALUE="$query" NAME="query">
 <INPUT TYPE="submit" VALUE="Submit">
 <INPUT TYPE="reset" VALUE="Reset">
 <BR>
 <INPUT NAME="apropos" VALUE="0" TYPE="RADIO"$astring> <A HREF="$BASE?query=man&sektion=1&apropos=0">Man</A>
 <SELECT NAME="sektion">
 ETX
 
 
     foreach $key (sort keys %sectionName) {
         print "<OPTION" . (($key eq $section) ? ' SELECTED ' : ' ') .
                 qq{VALUE="$key">$sectionName{$key}</OPTION>\n};
     };
 
 
     print qq{</SELECT>\n<SELECT NAME="manpath">\n};
 
     local($l) = ($manpath ? $manpath : $manPathDefault);
     foreach (sort keys %manPath) {
 	$key = $_;
 	print "<OPTION" . (($key eq $l) ? ' SELECTED ' : ' ') .
 	      qq{VALUE="$key">$key</OPTION>\n};
     }
 
     local($m) = &encode_url($l);
     print <<ETX;
 </SELECT>
 <BR>
 <INPUT NAME="apropos" VALUE="1" TYPE="RADIO"$bstring> <A HREF="$BASE?query=apropos&sektion=1&apropos=0">Apropos</A> Keyword Search (all sections)
 <SELECT NAME="format">
 ETX
 
     foreach ('html', 'ps', 'pdf',
 	     # 'dvi', # you need a 8 bit clean man, e.g. jp-man
 	     'ascii', 'latin1', 'troff') {
 	print qq{<OPTION VALUE="$_">$_</OPTION>\n};
     };
 
     print <<ETX;
 </SELECT>
 Output format
 </FORM>
 
 <A HREF="$BASE?manpath=$m">Index Page and Help</A> |
 <A HREF="$BASE/faq.html">FAQ</A> |
 <A HREF="$BASE/copyright.html">Copyright</A>
 <HR>
 ETX
     0;
 }
 
 sub copyright {
-    $id = '$Id: man.cgi,v 1.112 2003-10-29 14:15:54 www Exp $';
+    $id = '$Id: man.cgi,v 1.113 2003-10-31 11:22:04 www Exp $';
 
     return qq{\
 <PRE>
 Copyright (c) 1996-2003 Wolfram Schneider <A HREF="$mailtoURL">&lt;$mailto&gt;</A>. Berlin.
 Copyright (c) 1993-1995 Berkeley Software Design, Inc.
 
 This data is part of a licensed program from BERKELEY SOFTWARE
 DESIGN, INC.  Portions are copyrighted by BSDI, The Regents of
 the University of California, Massachusetts Institute of
 Technology, Free Software Foundation, FreeBSD Inc., and others.
 
 </PRE>\n
 This script has the revsion: $id
 <p>
 
 Copyright (c) for man pages by OS vendors.
 <p>
 <a href="ftp://ftp.2bsd.com">2.11 BSD</a>,
 <a href="http://www.hp.com">HP</a>,
 <a href="http://www.freebsd.org">FreeBSD</a>,
 <a href="http://www.cs.vu.nl/~ast/minix.html">Minix</a>,
 <a href="http://slackware.com">Linux Slackware</a>,
 <a href="http://www.linux.de">Linux/de</a>,
 <a href="http://www.netbsd.org">NetBSD</a>,
 <a href="http://www.openbsd.org">OpenBSD</a>,
 <a href="http://plan9.bell-labs.com/plan9/">Plan 9</a>,
 <a href="http://www.sun.com">SunOS</a>,
 <a href="http://www.digital.com">ULTRIX</a>,
 <a href="ftp://elib.zib.de/pub/netlib/att/cs/v7man">Unix Seventh Edition</a>,
 <a href="http://www.xfree86.org">XFree86</a>
 };
 }
 
 sub faq {
     
     local(@list, @list2);
     local($url);
     foreach (sort keys %manPath) {
 	$url = &encode_url($_);
 	push(@list, 
 	     qq{<li><a href="$BASE?apropos=2&manpath=$url">[download]} .
 	     qq{</a> "$_" -> $BASE?manpath=$url});
     }
 
     foreach (sort keys %manPathAliases) {
 	push(@list2, qq[<li>"$_" -> "$manPathAliases{$_}" -> ] .
 	     "$BASE?manpath=" . 
 	     &encode_url($_) . "\n") if $manPathAliases{$_};
     }
 
     return qq{\
 <PRE>
 Copyright (c) 1996-2003 Wolfram Schneider <a href="$mailtoURL">&lt;$mailto&gt;</a>. Berlin.
 </PRE>
 
 <h2>FAQ</h2>
 <UL>
 <li>Get the <a href="$BASE/source">source</a> of the man.cgi script
 <li>Troff macros works only if defined in FreeBSD/groff. OS specific
 macros like `appeared in NetBSD version 1.2' are not supported.
 <li>Netscape is buggy, you may press twice the link 'Index Page and Help'
 <li>Some OSs provide only formated manual pages (catpages), e.g. NetBSD
 and OpenBSD. In this case it is not possible to create Postscript
 and troff output.
 <li>The <a href="http://cvsweb.freebsd.org/src/share/misc/bsd-family-tree">
 Unix family tree, BSD part</a>.
 <li>The <a href="http://www.freebsd.org/cgi/ports.cgi">
 FreeBSD Ports Changes</a> script.
 <li>Copyright (c) and download for man pages by <a href="$BASE/copyright.html">
 OS vendors</a>
 </UL>
 
 <h2>Releases</h2>
 
 Releases and Releases Aliases are information how 
 to make a link to this script to the right OS version.
 <p>
 You may download the manpages as gzip'd tar archive
 for private use. A tarball is usually 5MB big.
 <p>
 <ul>
 @list
 </ul>
 
 <h2>Releases Aliases</h2>
 Release aliases are for lazy people. Plus, they have a longer
 lifetime, eg. 'openbsd' points always to the latest OpenBSD release.
 <ul>
 @list2
 </ul>
 };
 }
 
 
 sub intro {
     return qq{\
 <P>
 <I>Man Page Lookup</I> searches for man pages name and section as
 given in the selection menu and the query dialog.  <I>Apropos
 Keyword Search</I> searches the database for the string given in
 the query dialog.  There are also several hypertext links provided
 as short-cuts to various queries:  <I>Section Indexes</I> is apropos
 listings of all man pages by section.  <I>Explanations of Man
 Sections</I> contains pointers to the intro pages for various man
 sections.  Or you can select a category from <I>Quick Reference
 Categories</I> and see man pages relevant to the selected topic.
 <P>
 };
 }
 
 sub copyright_output {
     &http_header("text/html");
     print &html_header("HTML hypertext FreeBSD man page interface") .
 	"<H1>$www{'head'}</H1>\n" . &copyright . qq{\
 <HR>
 
 <A HREF="$_[0]">Index Page and Help</A>
 </BODY>
 </HTML>
 };
 }
 
 sub faq_output {
     &http_header("text/html");
     print &html_header("HTML hypertext FreeBSD man page interface") .
 	"<H1>$www{'head'}</H1>\n" . &faq . qq{\
 <HR>
 
 <A HREF="$_[0]">Index Page and Help</A>
 </BODY>
 </HTML>
 };
 }
 
 sub html_header {
     return qq{<HTML>
 <HEAD>
 <TITLE>$_[0]</TITLE>
 <link rev="made" href="mailto:wosch\@FreeBSD.ORG">
 <META name="robots" content="nofollow">
 <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
 </HEAD> 
 <BODY BGCOLOR="#FFFFFF" TEXT="#000000">\n\n};
 }
 
 sub secure_env {
     $main'ENV{'PATH'} = '/bin:/usr/bin';
     $main'ENV{'MANPATH'} = $manPath{$manPathDefault};
     $main'ENV{'IFS'} = " \t\n";
     $main'ENV{'PAGER'} = 'cat';
     $main'ENV{'SHELL'} = '/bin/sh';
     $main'ENV{'LANG'} = 'en_US.ISO_8859-1';
     undef $main'ENV{'DISPLAY'};
 }
 
 sub include_output {
     local($inc) = @_;
 
     &http_header("text/plain");
     open(I, "$inc") || do { print "open $inc: $!\n"; exit(1) };
     while(<I>) { print }
     close(I);
 }
 
 # CGI script must die with error status 0
 sub mydie {
 	local($message) = @_;
 	&http_header("text/html");
 	print &html_header("Error");
 	print $message;
 
 print qq{
 <p>
 <A HREF="$BASE">Index Page and Help</A>
 </BODY>
 </HTML>
 };
 
 	exit(0);
 }
 
 1;