=================================================================== RCS file: /cvs/cvsweb/cvsweb.cgi,v retrieving revision 1.1.1.33 retrieving revision 1.1.1.34 diff -u -p -r1.1.1.33 -r1.1.1.34 --- cvsweb/cvsweb.cgi 2002/07/23 16:15:22 1.1.1.33 +++ cvsweb/cvsweb.cgi 2002/09/26 22:09:02 1.1.1.34 @@ -21,8 +21,7 @@ # (c) 1998-1999 Henner Zeller # (c) 1999 Henrik Nordstrom # (c) 2000-2002 Akinori MUSHA -# (c) 2002 Ville Skyttä -# All rights reserved. +# (c) 2002 Ville Skyttä‹# All rights reserved. # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions @@ -45,9 +44,10 @@ # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # -# $FreeBSD: projects/cvsweb/cvsweb.cgi,v 1.119 2002/07/23 13:58:32 scop Exp $ +# FreeBSD: projects/cvsweb/cvsweb.cgi,v 1.119 2002/07/23 13:58:32 scop Exp # $zId: cvsweb.cgi,v 1.112 2001/07/24 13:03:16 hzeller Exp $ # $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.84 2001/10/07 20:50:10 knu Exp $ +# $FreeBSD: www/en/cgi/cvsweb.cgi,v 1.85 2002/07/23 16:27:04 scop Exp $ # ### @@ -235,6 +235,18 @@ $LOG_REVSEPARATOR = q/^-{28}$/; }, ); +$cgi_style::hsty_base = 'http://www.FreeBSD.org'; +$_ = q$FreeBSD: www/en/cgi/cvsweb.cgi,v 1.85 2002/07/23 16:27:04 scop Exp $; +@_ = split; +$cgi_style::hsty_date = "@_[3,4]"; + +# warningproof +0 if $cgi_style::hsty_base ne $cgi_style::hsty_date; + +package cgi_style; +require "$main::mydir/cgi-style.pl"; +package main; + $HTML_DOCTYPE = ''; @@ -3619,19 +3631,21 @@ sub http_header(;$) { sub html_header($) { my ($title) = @_; http_header("text/html"); + + (my $header = &cgi_style::html_header) =~ s,\A.*\n,,s; + print < $title $HTML_META -$body_tag -$logo

$title

+$header EOH } sub html_footer() { - print "
\n
$address
\n\n\n"; + return &cgi_style::html_footer; } sub link_tags($) {