- More XHTML/HTML fixes: <html> element

This commit is contained in:
Pav Lucistnik 2005-11-29 22:57:21 +00:00
parent 66d862e577
commit d6d17f7e19
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=26470

View file

@ -1,4 +1,4 @@
# $FreeBSD: www/en/cgi/cgi-style.pl,v 1.25 2005/10/29 15:08:21 fenner Exp $
# $FreeBSD: www/en/cgi/cgi-style.pl,v 1.26 2005/10/29 15:11:09 fenner Exp $
#
# Perl routines to encapsulate various elements of HTML page style.
@ -143,6 +143,7 @@ sub short_html_header {
$xhtml = 1 unless defined($xhtml);
$doctype = $xhtml ? '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' : '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">';
$html = $xhtml ? '<html xmlns="http://w3.org/1999/xhtml">' : '<html>';
$endslash = $xhtml ? '/' : '';
$csshack = (1 || $xhtml) ? '' : q`<style type="text/css">
tr, td {
@ -158,8 +159,8 @@ tr, td {
return qq`Content-type: text/html
$doctype
$html
<html xmlns='http://www.w3.org/1999/xhtml'>
<head><title>$title</title>
<meta http-equiv='content-type' content='text/html; charset=iso-8859-1' $endslash>
<meta name='robots' content='nofollow' $endslash>