\n";
print &html_footer;
diff --git a/en/cgi/missing_handler.cgi b/en/cgi/missing_handler.cgi
index a63f796ed6..d6ffe47910 100755
--- a/en/cgi/missing_handler.cgi
+++ b/en/cgi/missing_handler.cgi
@@ -1,109 +1,109 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -T
# Copyright (c) Juli 1997-2000. Wolfram Schneider , 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.
#
# missing_handler.cgi - User friendly error response (Apache style)
#
#
# default apache message:
# ----------------------------------------------------------------------
# File Not found
# The requested URL /~wosch/test/bla was not found on this server.
# ----------------------------------------------------------------------
#
#
# missing_handler.cgi message:
# ----------------------------------------------------------------------
# FreeBSD.org - Document not found
#
# The file
#
# http://www.FreeBSD.org/~wosch/test/bla
#
# does not exist at this server. You are coming from
#
# http://www.FreeBSD.org/~wosch/test/error.html.
#
# The closest match to your request is http://www.FreeBSD.org.
# Please contact the server administrator wosch@FreeBSD.org.
#
# Thank you very much!
#
# _________________________________________________________________
#
-# $FreeBSD: www/en/cgi/missing_handler.cgi,v 1.6 2000/01/05 15:47:44 phantom Exp $
+# $FreeBSD: www/en/cgi/missing_handler.cgi,v 1.8 2000/10/03 19:50:16 wosch Exp $
# ----------------------------------------------------------------------
# output title
$title = $ENV{'MISSING_HANDLER_TITLE'} ||
'FreeBSD.org - Document not found';
# footer message
$footer = $ENV{'MISSING_HANDLER_FOOT'} || '';
# Server environment variables
$http_referer=$ENV{'HTTP_REFERER'};
$redirect_url=$ENV{'REDIRECT_URL'};
$server_admin=$ENV{'SERVER_ADMIN'};
$http_host=$ENV{'HTTP_HOST'};
$server_name=$ENV{'SERVER_NAME'};
# rfc1738 says that ";"|"/"|"?"|":"|"@"|"&"|"=" may be reserved.
$http_referer_url = $http_referer;
$http_referer_url =~ s/([^a-zA-Z0-9;\/?:&=])/sprintf("%%%02x",ord($1))/eg;
$redirect_url_save = $redirect_url;
$redirect_url_save =~ s/([^a-zA-Z0-9;\/?:&=])/sprintf("%%%02x",ord($1))/eg;
$hsty_base = '';
-require 'cgi-style.pl';
+require './cgi-style.pl';
print &html_header($title);
# HTML body
print qq[The file
http://$http_host$redirect_url
does not exist at this server.\n];
if ($http_referer) {
print qq{You are coming from
None of the archives you requested ($i) are " .
" available at this time.
\n";
print "
Please try again later, or return to the " .
"search page and select a different archive.
\n";
print &html_footer;
exit 0;
}
# Now we formulate the question to ask the server
foreach $i (@AVAIL_source) {
$w_sources .= "(:source-id\n :filename \"$i.src\"\n ) ";
}
$w_question = "\n (:question
:version 2
:seed-words \"@FORM_words\"
:relevant-documents
( )
:sourcepath \"$sourcepath/:\"
:sources
( $w_sources )
:maximum-results $FORM_max
:result-documents
( )
)\n";
#
# First case, no document number so this is a regular search
#
print &html_header("Search Results");
print $availmsg;
if ($#AVAIL_source > 0) {
$src = join(", ", @AVAIL_source);
$src =~ s/,([^,]*)$/ and $1/;
print "
The archives $src contain ";
}
else {
print "The archive @AVAIL_source contains ";
}
print " the following items relevant to \`@FORM_words\':\n";
print "
\n};
if ($hits == 0) {
print "Nothing found.\n";
}
print &html_footer;
close(WAISOUT);
close(WAISIN);
}
# Given an array of sources (sans .src extension), this routine
# checks to see if they actually exist, and if they do, if they
# are currently available (ie, not being updated). It returns
# an array of sources that are actually available.
sub checksource {
local (@sources) = @_;
$j = 0;
foreach $i (@sources) {
if (stat("$sourcepath/$i.src")) {
if (!stat("$sourcepath/$i.update.lock")) {
$goodsources[$j] = $i;
$j++;
}
}
}
return(@goodsources);
}
sub htmlescape {
local ($data) = @_;
$data =~ s/&/&/g;
$data =~ s/The archive $file contains no relevant documents.