/[pub]/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.60 by wakaba, Sat Jul 26 11:27:25 2008 UTC revision 1.63 by wakaba, Fri Aug 15 16:44:03 2008 UTC
# Line 33  use CGI::Carp qw[fatalsToBrowser]; Line 33  use CGI::Carp qw[fatalsToBrowser];
33    $out->html_header;    $out->html_header;
34    $out->unset_flush;    $out->unset_flush;
35    
36      $out->generate_input_section ($http);
37    
38      my $u = $http->get_parameter ('uri');
39      my $s = $http->get_parameter ('s');
40      if ((not defined $u or not length $u) and
41          (not defined $s or not length $s)) {
42        exit;
43      }
44    
45    require WebHACC::Result;    require WebHACC::Result;
46    my $result = WebHACC::Result->new;    my $result = WebHACC::Result->new;
   $result->{conforming_min} = 1;  
   $result->{conforming_max} = 1;  
47    $result->output ($out);    $result->output ($out);
48    
49    require WebHACC::Input;    require WebHACC::Input;
# Line 44  use CGI::Carp qw[fatalsToBrowser]; Line 51  use CGI::Carp qw[fatalsToBrowser];
51    
52    check_and_print ($input => $result => $out);    check_and_print ($input => $result => $out);
53        
   $result->generate_result_section;  
   
54    $out->nav_list;    $out->nav_list;
55    
56    exit;    exit;
# Line 61  sub check_and_print ($$$) { Line 66  sub check_and_print ($$$) {
66    $input->generate_transfer_sections ($result);    $input->generate_transfer_sections ($result);
67    
68    unless (defined $input->{s}) {    unless (defined $input->{s}) {
69      $result->{conforming_min} = 0;      ## NOTE: This is an error of the implementation.
70        $result->layer_uncertain ('transfer');
71        $result->generate_result_section;
72    
73        $out->input ($original_input);
74      return;      return;
75    }    }
76    
# Line 113  sub check_and_print ($$$) { Line 122  sub check_and_print ($$$) {
122          unless defined $subinput->{base_uri};          unless defined $subinput->{base_uri};
123      $subinput->{parent_input} = $input;      $subinput->{parent_input} = $input;
124    
125      $subinput->start_section ($result);      my $subresult = WebHACC::Result->new;
126      check_and_print ($subinput => $result => $out);      $subresult->output ($out);
127      $subinput->end_section ($result);      $subresult->parent_result ($result);
128    
129        $subinput->start_section ($subresult);
130        check_and_print ($subinput => $subresult => $out);
131        $subinput->end_section ($subresult);
132    }    }
133    
134      $result->generate_result_section;
135    
136    $out->input ($original_input);    $out->input ($original_input);
137  } # check_and_print  } # check_and_print
138    
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.63
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24