diff --git a/en/cgi/cgi-style.pl b/en/cgi/cgi-style.pl index a5ece6697e..4c98778ace 100644 --- a/en/cgi/cgi-style.pl +++ b/en/cgi/cgi-style.pl @@ -1,84 +1,88 @@ -# $FreeBSD: www/en/cgi/cgi-style.pl,v 1.19 2005/02/12 13:13:14 ceri Exp $ +# $FreeBSD: www/en/cgi/cgi-style.pl,v 1.20 2005/07/14 11:08:54 ceri Exp $ # # Perl routines to encapsulate various elements of HTML page style. # For future reference, when is now? ($se,$mn,$hr,$md,$mo,$yr,$wd,$yd,$dst) = localtime(time); $yr += 1900; $mo += 1; $timestamp = "$mo-$md-$yr"; if (!defined($hsty_base)) { - $hsty_base = ".."; + $hsty_base = '..'; } if (!defined($hsty_email)) { - $hsty_email = "www\@FreeBSD.org"; + $hsty_email = 'www@FreeBSD.org'; } if (!defined($hsty_author)) { - $hsty_author = "$hsty_email"; + $hsty_author = "$hsty_email"; } if (!defined($hsty_date)) { - $hsty_date = ""; + $hsty_date = ''; } # This can be set to either a string containing an inline CSS stylesheet # or to a element that references an external CSS stylesheet, to # make local modifications to the style of a CGI script's output. -$t_style = ""; +$t_style = ""; -$i_topbar = " $\"Navigation$ - - - - - - - - - - +$i_topbar = "

+ + + + + + + + + + "; if (!defined($hsty_home)) { - $hsty_home = " $\"FreeBSD$ "; + $hsty_home = "

"; } sub html_header { local ($title) = @_; return "Content-type: text/html\n\n" . - "\n$title\n" . - "\n$t_style\n\n\n" . + '' . + "\n\n$title\n" . + "" . + "\n$t_style\n\n\n" . "$i_topbar

$title

\n"; } sub short_html_header { local ($title) = @_; return "Content-type: text/html\n\n" . - "\n$title\n" . - "\n\n\n" . + '' . + "\n\n$title\n" . + "" . + "\n\n\n" . "$i_topbar"; } sub html_footer { - return "

$hsty_author
$hsty_date

\n"; + return "

$hsty_author
$hsty_date

\n\n"; } sub get_the_source { return if $ENV{'PATH_INFO'} ne '/get_the_source'; open(R, $0) || do { print "Oops! open $0: $!\n"; # should not reached exit; }; print "Content-type: text/plain\n\n"; while() { print } close R; exit; } 1;