Use html_header and html_footer functions from cgi-style.pl.
This commit is contained in:
parent
26a9aa4ccc
commit
7dae10b5d4
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=2433
2 changed files with 12 additions and 50 deletions
|
@ -52,11 +52,11 @@
|
||||||
#
|
#
|
||||||
# _________________________________________________________________
|
# _________________________________________________________________
|
||||||
#
|
#
|
||||||
# $Date: 1997-12-23 18:39:47 $
|
# $Date: 1998-02-12 11:04:03 $
|
||||||
# ----------------------------------------------------------------------
|
# ----------------------------------------------------------------------
|
||||||
#
|
#
|
||||||
#
|
#
|
||||||
# $Id: missing_handler.cgi,v 1.2 1997-12-23 18:39:47 wosch Exp $
|
# $Id: missing_handler.cgi,v 1.3 1998-02-12 11:04:03 wosch Exp $
|
||||||
|
|
||||||
# output title
|
# output title
|
||||||
$title = $ENV{'MISSING_HANDLER_TITLE'} ||
|
$title = $ENV{'MISSING_HANDLER_TITLE'} ||
|
||||||
|
@ -73,20 +73,8 @@ $server_admin=$ENV{'SERVER_ADMIN'};
|
||||||
$http_host=$ENV{'HTTP_HOST'};
|
$http_host=$ENV{'HTTP_HOST'};
|
||||||
$server_name=$ENV{'SERVER_NAME'};
|
$server_name=$ENV{'SERVER_NAME'};
|
||||||
|
|
||||||
|
require 'cgi-style.pl';
|
||||||
# HTTP header
|
print &html_header($title);
|
||||||
print "Content-type: text/html\n\n";
|
|
||||||
|
|
||||||
# HTML title
|
|
||||||
print <<EOF;
|
|
||||||
<html><head>
|
|
||||||
<title>$title</title>
|
|
||||||
</head>
|
|
||||||
<BODY BGCOLOR="#FFFFFF" TEXT="#000033" ALINK="#FFCC33">
|
|
||||||
|
|
||||||
|
|
||||||
<h1>$title</h1>
|
|
||||||
EOF
|
|
||||||
|
|
||||||
# HTML body
|
# HTML body
|
||||||
print qq[The file <blockquote><b>
|
print qq[The file <blockquote><b>
|
||||||
|
@ -112,12 +100,5 @@ Please contact the server administrator
|
||||||
Thank you very much!<p>
|
Thank you very much!<p>
|
||||||
];
|
];
|
||||||
|
|
||||||
# HTML footer
|
print&html_footer;
|
||||||
print <<EOF;
|
exit;
|
||||||
<HR noshade>
|
|
||||||
$footer
|
|
||||||
\$Date: 1997-12-23 18:39:47 $
|
|
||||||
</body></html>
|
|
||||||
EOF
|
|
||||||
|
|
||||||
exit(0);
|
|
||||||
|
|
|
@ -52,11 +52,11 @@
|
||||||
#
|
#
|
||||||
# _________________________________________________________________
|
# _________________________________________________________________
|
||||||
#
|
#
|
||||||
# $Date: 1997-12-23 18:39:47 $
|
# $Date: 1998-02-12 11:04:03 $
|
||||||
# ----------------------------------------------------------------------
|
# ----------------------------------------------------------------------
|
||||||
#
|
#
|
||||||
#
|
#
|
||||||
# $Id: missing_handler.cgi,v 1.2 1997-12-23 18:39:47 wosch Exp $
|
# $Id: missing_handler.cgi,v 1.3 1998-02-12 11:04:03 wosch Exp $
|
||||||
|
|
||||||
# output title
|
# output title
|
||||||
$title = $ENV{'MISSING_HANDLER_TITLE'} ||
|
$title = $ENV{'MISSING_HANDLER_TITLE'} ||
|
||||||
|
@ -73,20 +73,8 @@ $server_admin=$ENV{'SERVER_ADMIN'};
|
||||||
$http_host=$ENV{'HTTP_HOST'};
|
$http_host=$ENV{'HTTP_HOST'};
|
||||||
$server_name=$ENV{'SERVER_NAME'};
|
$server_name=$ENV{'SERVER_NAME'};
|
||||||
|
|
||||||
|
require 'cgi-style.pl';
|
||||||
# HTTP header
|
print &html_header($title);
|
||||||
print "Content-type: text/html\n\n";
|
|
||||||
|
|
||||||
# HTML title
|
|
||||||
print <<EOF;
|
|
||||||
<html><head>
|
|
||||||
<title>$title</title>
|
|
||||||
</head>
|
|
||||||
<BODY BGCOLOR="#FFFFFF" TEXT="#000033" ALINK="#FFCC33">
|
|
||||||
|
|
||||||
|
|
||||||
<h1>$title</h1>
|
|
||||||
EOF
|
|
||||||
|
|
||||||
# HTML body
|
# HTML body
|
||||||
print qq[The file <blockquote><b>
|
print qq[The file <blockquote><b>
|
||||||
|
@ -112,12 +100,5 @@ Please contact the server administrator
|
||||||
Thank you very much!<p>
|
Thank you very much!<p>
|
||||||
];
|
];
|
||||||
|
|
||||||
# HTML footer
|
print&html_footer;
|
||||||
print <<EOF;
|
exit;
|
||||||
<HR noshade>
|
|
||||||
$footer
|
|
||||||
\$Date: 1997-12-23 18:39:47 $
|
|
||||||
</body></html>
|
|
||||||
EOF
|
|
||||||
|
|
||||||
exit(0);
|
|
||||||
|
|
Loading…
Reference in a new issue