You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2005/08/23 05:06:25 UTC
svn commit: r239306 - /perl/modperl/trunk/lib/Apache2/Status.pm
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>\@INC</b> = <br>", join "<br>\n", @INC, "";
+ push @retval, "<p><b>\@INC</b> = <br />", join "<br />\n", @INC, "";
\@retval;
}
@@ -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";
}