--- test/html-webhacc/cc.cgi	2008/07/26 11:27:25	1.60
+++ test/html-webhacc/cc.cgi	2008/09/17 03:56:43	1.68
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+# -d:DProf
 use strict;
 
 use lib qw[/home/httpd/html/www/markup/html/whatpm
@@ -33,10 +34,17 @@
   $out->html_header;
   $out->unset_flush;
 
+  $out->generate_input_section ($http);
+
+  my $u = $http->get_parameter ('uri');
+  my $s = $http->get_parameter ('s');
+  if ((not defined $u or not length $u) and
+      (not defined $s or not length $s)) {
+    exit;
+  }
+
   require WebHACC::Result;
   my $result = WebHACC::Result->new;
-  $result->{conforming_min} = 1;
-  $result->{conforming_max} = 1;
   $result->output ($out);
 
   require WebHACC::Input;
@@ -44,8 +52,6 @@
 
   check_and_print ($input => $result => $out);
   
-  $result->generate_result_section;
-
   $out->nav_list;
 
   exit;
@@ -61,14 +67,20 @@
   $input->generate_transfer_sections ($result);
 
   unless (defined $input->{s}) {
-    $result->{conforming_min} = 0;
+    ## NOTE: This is an error of the implementation.
+    $result->layer_uncertain ('transfer');
+    $result->generate_result_section;
+ 
+    $out->input ($original_input);
     return;
   }
 
   my $checker_class = {
     'text/cache-manifest' => 'WebHACC::Language::CacheManifest',
     'text/css' => 'WebHACC::Language::CSS',
+    'text/x-css-inline' => 'WebHACC::Language::CSSInline',
     'text/html' => 'WebHACC::Language::HTML',
+    'text/x-h2h' => 'WebHACC::Language::H2H',
     'text/x-webidl' => 'WebHACC::Language::WebIDL',
 
     'text/xml' => 'WebHACC::Language::XML',
@@ -113,11 +125,17 @@
         unless defined $subinput->{base_uri};
     $subinput->{parent_input} = $input;
 
-    $subinput->start_section ($result);
-    check_and_print ($subinput => $result => $out);
-    $subinput->end_section ($result);
+    my $subresult = WebHACC::Result->new;
+    $subresult->output ($out);
+    $subresult->parent_result ($result);
+
+    $subinput->start_section ($subresult);
+    check_and_print ($subinput => $subresult => $out);
+    $subinput->end_section ($subresult);
   }
 
+  $result->generate_result_section;
+
   $out->input ($original_input);
 } # check_and_print
 
@@ -134,4 +152,4 @@
 
 =cut
 
-## $Date: 2008/07/26 11:27:25 $
+## $Date: 2008/09/17 03:56:43 $