--- test/html-webhacc/cc.cgi 2008/07/21 08:39:12 1.56
+++ test/html-webhacc/cc.cgi 2008/07/21 09:40:59 1.58
@@ -1,53 +1,37 @@
#!/usr/bin/perl
use strict;
-use utf8;
use lib qw[/home/httpd/html/www/markup/html/whatpm
/home/wakaba/work/manakai2/lib];
use CGI::Carp qw[fatalsToBrowser];
-use Scalar::Util qw[refaddr];
require WebHACC::Input;
- require WebHACC::Result;
- require WebHACC::Output;
-my $out;
-
- require Message::DOM::DOMImplementation;
- my $dom = Message::DOM::DOMImplementation->new;
{
- use Message::CGI::HTTP;
+ require Message::CGI::HTTP;
my $http = Message::CGI::HTTP->new;
+ require WebHACC::Output;
+ my $out = WebHACC::Output->new;
+ $out->handle (*STDOUT);
+ $out->set_utf8;
+
if ($http->get_meta_variable ('PATH_INFO') ne '/') {
- print STDOUT "Status: 404 Not Found\nContent-Type: text/plain; charset=us-ascii\n\n400";
+ $out->http_error (404);
exit;
}
load_text_catalog ('en'); ## TODO: conneg
- $out = WebHACC::Output->new;
- $out->handle (*STDOUT);
- $out->set_utf8;
$out->set_flush;
- $out->html (qq[Content-Type: text/html; charset=utf-8
-
-
-
-
-Web Document Conformance Checker (BETA)
-
-
-
-
-]);
-
- my $input = get_input_document ($http, $dom);
+ $out->http_header;
+ $out->html_header;
+ $out->unset_flush;
+ my $input = get_input_document ($http);
$out->input ($input);
- $out->unset_flush;
+ require WebHACC::Result;
my $result = WebHACC::Result->new;
$result->output ($out);
$result->{conforming_min} = 1;
@@ -118,25 +102,6 @@
$checker->generate_structure_error_section;
$checker->generate_additional_sections;
-=pod
-
- if (defined $doc or defined $el) {
-
- print_listing_section ({
- id => 'identifiers', label => 'IDs', heading => 'Identifiers',
- }, $input, $elements->{id}) if keys %{$elements->{id}};
- print_listing_section ({
- id => 'terms', label => 'Terms', heading => 'Terms',
- }, $input, $elements->{term}) if keys %{$elements->{term}};
- print_listing_section ({
- id => 'classes', label => 'Classes', heading => 'Classes',
- }, $input, $elements->{class}) if keys %{$elements->{class}};
-
- print_rdf_section ($input, $elements->{rdf}) if @{$elements->{rdf}};
- }
-
-=cut
-
my $id_prefix = 0;
for my $_subinput (@subdoc) {
my $subinput = WebHACC::Input::Subdocument->new (++$id_prefix);
@@ -212,8 +177,11 @@
}
-sub get_input_document ($$) {
- my ($http, $dom) = @_;
+sub get_input_document ($) {
+ my $http = shift;
+
+ require Message::DOM::DOMImplementation;
+ my $dom = Message::DOM::DOMImplementation->new;
require Encode;
my $request_uri = Encode::decode ('utf-8', $http->get_parameter ('uri'));
@@ -407,4 +375,4 @@
=cut
-## $Date: 2008/07/21 08:39:12 $
+## $Date: 2008/07/21 09:40:59 $