--- test/html-webhacc/cc.cgi 2007/06/27 12:35:24 1.2 +++ test/html-webhacc/cc.cgi 2007/06/27 13:30:15 1.3 @@ -33,30 +33,26 @@ exit; } + my @nav; print STDOUT qq[Content-Type: text/html; charset=utf-8 Web Document Conformance Checker (BETA) - - +

Web Document Conformance Checker (beta)

+
Document URI
<@{[htescape $input_uri]}>
Internet Media Type
@{[htescape $input_format]}
]; # no
yet + push @nav, ['#document-info' => 'Information']; require Message::DOM::DOMImplementation; my $dom = Message::DOM::DOMImplementation->____new; @@ -73,9 +69,12 @@
Character Encoding
(none)
+
+

Document Source

]; + push @nav, ['#source-string' => 'Source']; print_source_string (\$s); print STDOUT qq[
@@ -85,6 +84,7 @@