+ $| = 0;
+ my $input = get_input_document ($http, $dom);
+ my $char_length = 0;
+ my %time;
+
+ print qq[
+
+- Request URI
+ <@{[htescape $input->{request_uri}]}>- Document URI
- <@{[htescape $input_uri]}>- Internet Media Type
- @{[htescape $input_format]}<@{[htescape $input->{uri}]}>
+
yet
push @nav, ['#document-info' => 'Information'];
- require Message::DOM::DOMImplementation;
- my $dom = Message::DOM::DOMImplementation->____new;
- my $doc;
- my $el;
-
- if ($input_format eq 'text/html') {
- require Encode;
- require Whatpm::HTML;
-
- $s = Encode::decode ('utf-8', $s);
+if (defined $input->{s}) {
+ $char_length = length $input->{s};
- print STDOUT qq[
+ print STDOUT qq[
+
Base URI
+
<@{[htescape $input->{base_uri}]}>
+
Internet Media Type
+
@{[htescape $input->{media_type}]}
+ @{[$input->{media_type_overridden} ? '(overridden)' : defined $input->{official_type} ? $input->{media_type} eq $input->{official_type} ? '' : '(sniffed; official type is: '.htescape ($input->{official_type}).')' : '(sniffed)']}
Character Encoding
-
(none)
+
@{[defined $input->{charset} ? ''.htescape ($input->{charset}).'' : '(none)']}
+ @{[$input->{charset_overridden} ? '(overridden)' : '']}
+
Length
+
$char_length byte@{[$char_length == 1 ? '' : 's']}
+];
-
-
Document Source
+ my $result = {conforming_min => 1, conforming_max => 1};
+ print_http_header_section ($input, $result);
+
+ my $doc;
+ my $el;
+ my $manifest;
+
+ if ($input->{media_type} eq 'text/html') {
+ ($doc, $el) = print_syntax_error_html_section ($input, $result);
+ print_source_string_section
+ (\($input->{s}), $input->{charset} || $doc->input_encoding);
+ } elsif ({
+ 'text/xml' => 1,
+ 'application/atom+xml' => 1,
+ 'application/rss+xml' => 1,
+ 'application/svg+xml' => 1,
+ 'application/xhtml+xml' => 1,
+ 'application/xml' => 1,
+ }->{$input->{media_type}}) {
+ ($doc, $el) = print_syntax_error_xml_section ($input, $result);
+ print_source_string_section (\($input->{s}), $doc->input_encoding);
+ } elsif ($input->{media_type} eq 'text/cache-manifest') {
+## TODO: MUST be text/cache-manifest
+ $manifest = print_syntax_error_manifest_section ($input, $result);
+ print_source_string_section (\($input->{s}), 'utf-8');
+ } else {
+ ## TODO: Change HTTP status code??
+ print_result_unknown_type_section ($input, $result);
+ }
+
+ if (defined $doc or defined $el) {
+ print_structure_dump_dom_section ($doc, $el);
+ my $elements = print_structure_error_dom_section ($doc, $el, $result);
+ print_table_section ($elements->{table}) if @{$elements->{table}};
+ print_id_section ($elements->{id}) if keys %{$elements->{id}};
+ print_term_section ($elements->{term}) if keys %{$elements->{term}};
+ print_class_section ($elements->{class}) if keys %{$elements->{class}};
+ } elsif (defined $manifest) {
+ print_structure_dump_manifest_section ($manifest);
+ print_structure_error_manifest_section ($manifest, $result);
+ }
+
+ print_result_section ($result);
+} else {
+ print STDOUT qq[];
+ print_result_input_error_section ($input);
+}
+
+ print STDOUT qq[
+
];
- push @nav, ['#source-string' => 'Source'];
- print_source_string (\$s);
- print STDOUT qq[
-