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
|
||||
$title = $ENV{'MISSING_HANDLER_TITLE'} ||
|
||||
|
@ -73,20 +73,8 @@ $server_admin=$ENV{'SERVER_ADMIN'};
|
|||
$http_host=$ENV{'HTTP_HOST'};
|
||||
$server_name=$ENV{'SERVER_NAME'};
|
||||
|
||||
|
||||
# HTTP header
|
||||
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
|
||||
require 'cgi-style.pl';
|
||||
print &html_header($title);
|
||||
|
||||
# HTML body
|
||||
print qq[The file <blockquote><b>
|
||||
|
@ -112,12 +100,5 @@ Please contact the server administrator
|
|||
Thank you very much!<p>
|
||||
];
|
||||
|
||||
# HTML footer
|
||||
print <<EOF;
|
||||
<HR noshade>
|
||||
$footer
|
||||
\$Date: 1997-12-23 18:39:47 $
|
||||
</body></html>
|
||||
EOF
|
||||
|
||||
exit(0);
|
||||
print&html_footer;
|
||||
exit;
|
||||
|
|
|
@ -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
|
||||
$title = $ENV{'MISSING_HANDLER_TITLE'} ||
|
||||
|
@ -73,20 +73,8 @@ $server_admin=$ENV{'SERVER_ADMIN'};
|
|||
$http_host=$ENV{'HTTP_HOST'};
|
||||
$server_name=$ENV{'SERVER_NAME'};
|
||||
|
||||
|
||||
# HTTP header
|
||||
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
|
||||
require 'cgi-style.pl';
|
||||
print &html_header($title);
|
||||
|
||||
# HTML body
|
||||
print qq[The file <blockquote><b>
|
||||
|
@ -112,12 +100,5 @@ Please contact the server administrator
|
|||
Thank you very much!<p>
|
||||
];
|
||||
|
||||
# HTML footer
|
||||
print <<EOF;
|
||||
<HR noshade>
|
||||
$footer
|
||||
\$Date: 1997-12-23 18:39:47 $
|
||||
</body></html>
|
||||
EOF
|
||||
|
||||
exit(0);
|
||||
print&html_footer;
|
||||
exit;
|
||||
|
|
Loading…
Reference in a new issue