/[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.61 by wakaba, Sun Jul 27 10:33:45 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;
47    $result->{conforming_min} = 1;    $result->{conforming_min} = 1;
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24