=================================================================== RCS file: /cvs/cvsweb/cvsweb.cgi,v retrieving revision 1.1.1.33 retrieving revision 1.1.1.35 diff -u -p -r1.1.1.33 -r1.1.1.35 --- cvsweb/cvsweb.cgi 2002/07/23 16:15:22 1.1.1.33 +++ cvsweb/cvsweb.cgi 2002/09/30 19:43:49 1.1.1.35 @@ -45,9 +45,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.86 2002/09/26 22:18:25 scop Exp $ # ### @@ -235,6 +236,18 @@ $LOG_REVSEPARATOR = q/^-{28}$/; }, ); +$cgi_style::hsty_base = 'http://www.FreeBSD.org'; +$_ = q$FreeBSD: www/en/cgi/cvsweb.cgi,v 1.86 2002/09/26 22:18:25 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 +3632,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($) {