/[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.60 by wakaba, Sat Jul 26 11:27:25 2008 UTC revision 1.69 by wakaba, Thu Dec 11 03:22:56 2008 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2    # -d:DProf
3  use strict;  use strict;
4    
5  use lib qw[/home/httpd/html/www/markup/html/whatpm  use lib qw[/home/httpd/html/www/markup/html/whatpm
6             /home/wakaba/work/manakai2/lib];             /home/wakaba/work/manakai2/lib
7               /home/httpd/html/regexp/lib
8              ];
9  use CGI::Carp qw[fatalsToBrowser];  use CGI::Carp qw[fatalsToBrowser];
10    
11    require WebHACC::Input;    require WebHACC::Input;
# Line 33  use CGI::Carp qw[fatalsToBrowser]; Line 36  use CGI::Carp qw[fatalsToBrowser];
36    $out->html_header;    $out->html_header;
37    $out->unset_flush;    $out->unset_flush;
38    
39      $out->generate_input_section ($http);
40    
41      my $u = $http->get_parameter ('uri');
42      my $s = $http->get_parameter ('s');
43      if ((not defined $u or not length $u) and
44          (not defined $s or not length $s)) {
45        exit;
46      }
47    
48    require WebHACC::Result;    require WebHACC::Result;
49    my $result = WebHACC::Result->new;    my $result = WebHACC::Result->new;
   $result->{conforming_min} = 1;  
   $result->{conforming_max} = 1;  
50    $result->output ($out);    $result->output ($out);
51    
52    require WebHACC::Input;    require WebHACC::Input;
# Line 44  use CGI::Carp qw[fatalsToBrowser]; Line 54  use CGI::Carp qw[fatalsToBrowser];
54    
55    check_and_print ($input => $result => $out);    check_and_print ($input => $result => $out);
56        
   $result->generate_result_section;  
   
57    $out->nav_list;    $out->nav_list;
58    
59    exit;    exit;
# Line 61  sub check_and_print ($$$) { Line 69  sub check_and_print ($$$) {
69    $input->generate_transfer_sections ($result);    $input->generate_transfer_sections ($result);
70    
71    unless (defined $input->{s}) {    unless (defined $input->{s}) {
72      $result->{conforming_min} = 0;      ## NOTE: This is an error of the implementation.
73        $result->layer_uncertain ('transfer');
74        $result->generate_result_section;
75    
76        $out->input ($original_input);
77      return;      return;
78    }    }
79    
80    my $checker_class = {    my $checker_class = {
81      'text/cache-manifest' => 'WebHACC::Language::CacheManifest',      'text/cache-manifest' => 'WebHACC::Language::CacheManifest',
82      'text/css' => 'WebHACC::Language::CSS',      'text/css' => 'WebHACC::Language::CSS',
83        'text/x-css-inline' => 'WebHACC::Language::CSSInline',
84      'text/html' => 'WebHACC::Language::HTML',      'text/html' => 'WebHACC::Language::HTML',
85        'text/x-h2h' => 'WebHACC::Language::H2H',
86        'text/x-regexp-js' => 'WebHACC::Language::RegExpJS',
87      'text/x-webidl' => 'WebHACC::Language::WebIDL',      'text/x-webidl' => 'WebHACC::Language::WebIDL',
88    
89      'text/xml' => 'WebHACC::Language::XML',      'text/xml' => 'WebHACC::Language::XML',
# Line 113  sub check_and_print ($$$) { Line 128  sub check_and_print ($$$) {
128          unless defined $subinput->{base_uri};          unless defined $subinput->{base_uri};
129      $subinput->{parent_input} = $input;      $subinput->{parent_input} = $input;
130    
131      $subinput->start_section ($result);      my $subresult = WebHACC::Result->new;
132      check_and_print ($subinput => $result => $out);      $subresult->output ($out);
133      $subinput->end_section ($result);      $subresult->parent_result ($result);
134    
135        $subinput->start_section ($subresult);
136        check_and_print ($subinput => $subresult => $out);
137        $subinput->end_section ($subresult);
138    }    }
139    
140      $result->generate_result_section;
141    
142    $out->input ($original_input);    $out->input ($original_input);
143  } # check_and_print  } # check_and_print
144    
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.69
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24