test/html-whatpm/parser.cgi

#!/usr/bin/perl
use strict;

use lib qw[.. /home/wakaba/public_html/-temp/wiki/lib];

use SuikaWiki::Input::HTTP; ## TODO: Use some better CGI module

my $http = SuikaWiki::Input::HTTP->new;

## TODO: _charset_

my $mode = $http->meta_variable ('PATH_INFO');
## TODO: decode unreserved characters

if ($mode eq '/html' or $mode eq '/error-and-html') {
  require Encode;
  require What::HTML;
  require What::NanoDOM;

  my $s = $http->parameter ('s');
  if (length $s > 1000_000) {
    print STDOUT "Status: 400 Document Too Long\nContent-Type: text/plain; charset=us-ascii\n\nToo long";
    exit;
  }

  $s = Encode::decode ('utf-8', $s);

  print STDOUT "Content-Type: text/plain; charset=utf-8\n\n";

  my $onerror = $mode eq '/error-and-html' ? sub {
    print STDOUT "0,0,", $_[0], "\n";
  } : sub { };

  my $doc = What::HTML->parse_string
      ($s => What::NanoDOM::Document->new, $onerror);

  if ($mode eq '/error-and-html') {
    print "--\n";
  }

  my $html = What::HTML->get_inner_html ($doc);
  print STDOUT Encode::encode ('utf-8', $$html);
} else {
  print STDOUT "Status: 404 Not Found\nContent-Type: text/plain; charset=us-ascii\n\n404";
}
1	#!/usr/bin/perl
2	use strict;
3
4	use lib qw[.. /home/wakaba/public_html/-temp/wiki/lib];
5
6	use SuikaWiki::Input::HTTP; ## TODO: Use some better CGI module
7
8	my $http = SuikaWiki::Input::HTTP->new;
9
10	## TODO: _charset_
11
12	my $mode = $http->meta_variable ('PATH_INFO');
13	## TODO: decode unreserved characters
14
15	if ($mode eq '/html' or $mode eq '/error-and-html') {
16	require Encode;
17	require What::HTML;
18	require What::NanoDOM;
19
20	my $s = $http->parameter ('s');
21	if (length $s > 1000_000) {
22	print STDOUT "Status: 400 Document Too Long\nContent-Type: text/plain; charset=us-ascii\n\nToo long";
23	exit;
24	}
25
26	$s = Encode::decode ('utf-8', $s);
27
28	print STDOUT "Content-Type: text/plain; charset=utf-8\n\n";
29
30	my $onerror = $mode eq '/error-and-html' ? sub {
31	print STDOUT "0,0,", $_[0], "\n";
32	} : sub { };
33
34	my $doc = What::HTML->parse_string
35	($s => What::NanoDOM::Document->new, $onerror);
36
37	if ($mode eq '/error-and-html') {
38	print "--\n";
39	}
40
41	my $html = What::HTML->get_inner_html ($doc);
42	print STDOUT Encode::encode ('utf-8', $$html);
43	} else {
44	print STDOUT "Status: 404 Not Found\nContent-Type: text/plain; charset=us-ascii\n\n404";
45	}