/[suikacvs]/test/html-webhacc/cc.cgi
Suika

Diff of /test/html-webhacc/cc.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by wakaba, Tue Jul 17 13:52:54 2007 UTC revision 1.14 by wakaba, Tue Jul 17 14:28:20 2007 UTC
# Line 31  my $http = SuikaWiki::Input::HTTP->new; Line 31  my $http = SuikaWiki::Input::HTTP->new;
31    }    }
32    
33    binmode STDOUT, ':utf8';    binmode STDOUT, ':utf8';
34      $| = 1;
35    
36    require Message::DOM::DOMImplementation;    require Message::DOM::DOMImplementation;
37    my $dom = Message::DOM::DOMImplementation->new;    my $dom = Message::DOM::DOMImplementation->new;
38    
   my $input = get_input_document ($http, $dom);  
   my $inner_html_element = $http->parameter ('e');  
   
39    load_text_catalog ('en'); ## TODO: conneg    load_text_catalog ('en'); ## TODO: conneg
40    
41    my @nav;    my @nav;
# Line 52  my $http = SuikaWiki::Input::HTTP->new; Line 50  my $http = SuikaWiki::Input::HTTP->new;
50  <body>  <body>
51  <h1><a href="../cc-interface">Web Document Conformance Checker</a>  <h1><a href="../cc-interface">Web Document Conformance Checker</a>
52  (<em>beta</em>)</h1>  (<em>beta</em>)</h1>
53    ];
54    
55      $| = 0;
56      my $input = get_input_document ($http, $dom);
57      my $inner_html_element = $http->parameter ('e');
58    
59      print qq[
60  <div id="document-info" class="section">  <div id="document-info" class="section">
61  <dl>  <dl>
62  <dt>Request URI</dt>  <dt>Request URI</dt>
# Line 212  if (defined $input->{s}) { Line 216  if (defined $input->{s}) {
216      if (@{$elements->{table}}) {      if (@{$elements->{table}}) {
217        require JSON;        require JSON;
218    
219          push @nav, ['#tables' => 'Tables'];
220        print STDOUT qq[        print STDOUT qq[
221  <div id="tables" class="section">  <div id="tables" class="section">
222  <h2>Tables</h2>  <h2>Tables</h2>
# Line 266  if (defined $input->{s}) { Line 271  if (defined $input->{s}) {
271      }      }
272    
273      if (keys %{$elements->{id}}) {      if (keys %{$elements->{id}}) {
274          push @nav, ['#identifiers' => 'IDs'];
275        print STDOUT qq[        print STDOUT qq[
276  <div id="identifiers" class="section">  <div id="identifiers" class="section">
277  <h2>Identifiers</h2>  <h2>Identifiers</h2>
# Line 282  if (defined $input->{s}) { Line 288  if (defined $input->{s}) {
288      }      }
289    
290      if (keys %{$elements->{term}}) {      if (keys %{$elements->{term}}) {
291          push @nav, ['#terms' => 'Terms'];
292        print STDOUT qq[        print STDOUT qq[
293  <div id="terms" class="section">  <div id="terms" class="section">
294  <h2>Terms</h2>  <h2>Terms</h2>
# Line 294  if (defined $input->{s}) { Line 301  if (defined $input->{s}) {
301            print STDOUT qq[<dd>].get_node_link ($_).qq[</dd>];            print STDOUT qq[<dd>].get_node_link ($_).qq[</dd>];
302          }          }
303        }        }
304          print STDOUT qq[</dl></div>];
305        }
306    
307        if (keys %{$elements->{class}}) {
308          push @nav, ['#classes' => 'Classes'];
309          print STDOUT qq[
310    <div id="classes" class="section">
311    <h2>Classes</h2>
312    
313    <dl>
314    ];
315          for my $class (sort {$a cmp $b} keys %{$elements->{class}}) {
316            print STDOUT qq[<dt>@{[htescape $class]}</dt>];
317            for (@{$elements->{class}->{$class}}) {
318              print STDOUT qq[<dd>].get_node_link ($_).qq[</dd>];
319            }
320          }
321        print STDOUT qq[</dl></div>];        print STDOUT qq[</dl></div>];
322      }      }
323    }    }
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24