$title

# $Id: cgi-style.pl,v 1.12 1999/03/24 17:29:55 max 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"; # Colors for the body $t_body = ""; if (!defined($hsty_base)) { $hsty_base = ".."; } if (!defined($hsty_email)) { $hsty_email = "www\@FreeBSD.org"; } if (!defined($hsty_author)) { $hsty_author = "$hsty_email"; } $i_topbar = " $\"Navigation$ "; if ($hsty_home eq "") { $hsty_home = " $\"FreeBSD$ "; } sub html_header { local ($title) = @_; print <<__EOF__; Content-type: text/html $title

News, Internal, Projects, Home
Software, Support, Documentation

$title

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

__EOF__ return ""; } 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; }