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

Make cgi-style.pl not dependent on cgi-lib.pl.

Browse source
This commit is contained in:
John Fieber 1996-09-29 01:40:53 +00:00
parent 8b32cb83b2
commit b06868a781
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=557
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
data/cgi/cgi-style.pl
View file

@ -1,4 +1,4 @@
# $Id: cgi-style.pl,v 1.2 1996-09-24 20:50:58 jfieber Exp $ # $Id: cgi-style.pl,v 1.3 1996-09-29 01:40:53 jfieber Exp $
# #
# Perl routines to encapsulate various elements of HTML page style. # Perl routines to encapsulate various elements of HTML page style.
@ -27,7 +27,8 @@ if ($hsty_home eq "") {
sub html_header { sub html_header {
local ($title) = @_; local ($title) = @_;
return &PrintHeader . "<html>\n<title>$title</title>\n</head>\n$t_body\n" . return "Content-type: text/html\n\n" .
"<html>\n<title>$title</title>\n</head>\n$t_body\n" .
"<img src=\"$hsty_base/gifs/topbar.gif\" alt=\"\">" . "<img src=\"$hsty_base/gifs/topbar.gif\" alt=\"\">" .
"$i_daemon <h1 align=right>$title</h1><br clear=all><hr noshade>\n"; "$i_daemon <h1 align=right>$title</h1><br clear=all><hr noshade>\n";
} }

5
en/cgi/cgi-style.pl
View file

@ -1,4 +1,4 @@
# $Id: cgi-style.pl,v 1.2 1996-09-24 20:50:58 jfieber Exp $ # $Id: cgi-style.pl,v 1.3 1996-09-29 01:40:53 jfieber Exp $
# #
# Perl routines to encapsulate various elements of HTML page style. # Perl routines to encapsulate various elements of HTML page style.
@ -27,7 +27,8 @@ if ($hsty_home eq "") {
sub html_header { sub html_header {
local ($title) = @_; local ($title) = @_;
return &PrintHeader . "<html>\n<title>$title</title>\n</head>\n$t_body\n" . return "Content-type: text/html\n\n" .
"<html>\n<title>$title</title>\n</head>\n$t_body\n" .
"<img src=\"$hsty_base/gifs/topbar.gif\" alt=\"\">" . "<img src=\"$hsty_base/gifs/topbar.gif\" alt=\"\">" .
"$i_daemon <h1 align=right>$title</h1><br clear=all><hr noshade>\n"; "$i_daemon <h1 align=right>$title</h1><br clear=all><hr noshade>\n";
} }