version 1.1.1.33, 2002/07/23 16:15:22 |
version 1.1.1.34, 2002/09/26 22:09:02 |
|
|
# (c) 1998-1999 Henner Zeller |
# (c) 1998-1999 Henner Zeller |
# (c) 1999 Henrik Nordstrom |
# (c) 1999 Henrik Nordstrom |
# (c) 2000-2002 Akinori MUSHA |
# (c) 2000-2002 Akinori MUSHA |
# (c) 2002 Ville Skyttä |
# (c) 2002 Ville Skyttä‹# All rights reserved. |
# All rights reserved. |
|
# |
# |
# Redistribution and use in source and binary forms, with or without |
# Redistribution and use in source and binary forms, with or without |
# modification, are permitted provided that the following conditions |
# modification, are permitted provided that the following conditions |
|
|
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
# SUCH DAMAGE. |
# 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 $ |
# $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 $ |
# $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 $ |
# |
# |
### |
### |
|
|
Line 235 $LOG_REVSEPARATOR = q/^-{28}$/; |
|
Line 235 $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 = |
$HTML_DOCTYPE = |
'<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">'; |
'<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">'; |
|
|
Line 3619 sub http_header(;$) { |
|
Line 3631 sub http_header(;$) { |
|
sub html_header($) { |
sub html_header($) { |
my ($title) = @_; |
my ($title) = @_; |
http_header("text/html"); |
http_header("text/html"); |
|
|
|
(my $header = &cgi_style::html_header) =~ s,\A.*</head>\n,,s; |
|
|
print <<EOH; |
print <<EOH; |
$HTML_DOCTYPE |
$HTML_DOCTYPE |
<html> |
<html> |
<head> |
<head> |
<title>$title</title> |
<title>$title</title> |
$HTML_META</head> |
$HTML_META</head> |
$body_tag |
$header |
$logo <h1 align="center">$title</h1> |
|
EOH |
EOH |
} |
} |
|
|
sub html_footer() { |
sub html_footer() { |
print "<hr noshade>\n<address>$address</address>\n</body>\n</html>\n"; |
return &cgi_style::html_footer; |
} |
} |
|
|
sub link_tags($) { |
sub link_tags($) { |