Author: pgollucci Date: Mon Aug 22 20:06:23 2005 New Revision: 239306 URL: http://svn.apache.org/viewcvs?rev=239306&view=rev Log: update the output to XHTML 1.0 Strict
Modified: perl/modperl/trunk/lib/Apache2/Status.pm Modified: perl/modperl/trunk/lib/Apache2/Status.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/Status.pm?rev=239306&r1=239305&r2=239306&view=diff ============================================================================== --- perl/modperl/trunk/lib/Apache2/Status.pm (original) +++ perl/modperl/trunk/lib/Apache2/Status.pm Mon Aug 22 20:06:23 2005 @@ -129,7 +129,7 @@ my $uri = $r->uri; $r->print('<p>'); $r->print( - map { qq[<a href="$uri?$_">$status{$_}</a><br>\n] } sort { lc $a cmp lc $b } keys %status + map { qq[<a href="$uri?$_">$status{$_}</a><br />\n] } sort { lc $a cmp lc $b } keys %status ); $r->print('</p>'); } @@ -145,28 +145,30 @@ $r->content_type("text/html"); my $v = $^V ? sprintf "v%vd", $^V : $]; $r->print(<<"EOF"); -<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"> -<html lang="en"> -<head> - <title>Apache2::Status</title> - <style type="text/css"> - body { - color: #000; - background-color: #fff; - } - p.hdr { - background-color: #ddd; - border: 2px outset; - padding: 3px; - width: 99%; - } - </style> -</head> -<body> -<p class="hdr"> - Embedded Perl version <b>$v</b> for <b>$srv</b> process <b>$$</b>,<br> - running since $start -</p> +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" +"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> + +<html lang="en" xmlns="http://www.w3.org/1999/xhtml"> + <head> + <title>Apache2::Status $Apache2::Status::VERSION</title> + <style type="text/css"> + body { + color: #000; + background-color: #fff; + } + p.hdr { + background-color: #ddd; + border: 2px outset; + padding: 3px; + width: 99%; + } + </style> + </head> + <body> + <p class="hdr"> + Embedded Perl version <b>$v</b> for <b>$srv</b> process <b>$$</b>,<br /> + running since $start + </p> EOF } @@ -223,7 +225,7 @@ ); } push @retval, "</table>\n"; - push @retval, "<p><b>[EMAIL PROTECTED]</b> = <br>", join "<br>\n", @INC, ""; + push @retval, "<p><b>[EMAIL PROTECTED]</b> = <br />", join "<br />\n", @INC, ""; [EMAIL PROTECTED]; } @@ -298,7 +300,7 @@ push @retval, "<h4>$handler:</h4>\n<p>\n"; for (sort @{ $handlers{$handler} }) { my $full = join '::', $root, $handler, $_; - push @retval, qq(<a href="$uri?$full">$_</a>\n), "<br>"; + push @retval, qq(<a href="$uri?$full">$_</a>\n), "<br />"; } push @retval, "</p>\n"; }