--- 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]}
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 @@
];
+ push @nav, ['#parse-errors' => 'Parse Error'];
my $onerror = sub {
my (%opt) = @_;
@@ -120,9 +120,12 @@
- Character Encoding
- (none)
+
+
Document Source
];
+ push @nav, ['#source-string' => 'Source'];
print_source_string (\$t);
print STDOUT qq[
@@ -132,6 +135,7 @@
];
+ push @nav, ['#parse-errors' => 'Parse Error'];
my $onerror = sub {
my $err = shift;
@@ -154,8 +158,11 @@
print STDOUT qq[
+
Media type @{[htescape $input_format]} is not supported!
+
];
+ push @nav, ['#result-summary' => 'Result'];
}
@@ -164,6 +171,7 @@
Document Tree
];
+ push @nav, ['#document-tree' => 'Tree'];
print_document_tree ($el || $doc);
@@ -175,6 +183,7 @@
];
+ push @nav, ['#document-errors' => 'Document Error'];
require Whatpm::ContentChecker;
my $onerror = sub {
@@ -197,7 +206,15 @@
}
## TODO: Show result
+
print STDOUT qq[
+
+];
+ for (@nav) {
+ print STDOUT qq[- $_->[1]
];
+ }
+ print STDOUT qq[
+
];
@@ -319,4 +336,4 @@
=cut
-## $Date: 2007/06/27 12:35:24 $
+## $Date: 2007/06/27 13:30:15 $