test/html-whatpm/table.cgi

#!/usr/bin/perl
use strict;

use lib qw[/home/httpd/html/www/markup/html/whatpm
           /home/wakaba/public_html/-temp/wiki/lib];
use CGI::Carp qw[fatalsToBrowser];

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 '/table') {
  require Encode;
  require Whatpm::HTML;
  require Whatpm::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);
  my $doc = Whatpm::HTML->parse_string
      ($s => Whatpm::NanoDOM::Document->new);

  my @table_el;
  my @node = @{$doc->child_nodes};
  while (@node) {
    my $node = shift @node;
    if ($node->node_type == 1) {
      if ($node->namespace_uri eq q<
1	#!/usr/bin/perl
2	use strict;
3
4	use lib qw[/home/httpd/html/www/markup/html/whatpm
5	/home/wakaba/public_html/-temp/wiki/lib];
6	use CGI::Carp qw[fatalsToBrowser];
7
8	use SuikaWiki::Input::HTTP; ## TODO: Use some better CGI module
9
10	my $http = SuikaWiki::Input::HTTP->new;
11
12	## TODO: _charset_
13
14	my $mode = $http->meta_variable ('PATH_INFO');
15	## TODO: decode unreserved characters
16
17	if ($mode eq '/table') {
18	require Encode;
19	require Whatpm::HTML;
20	require Whatpm::NanoDOM;
21
22	my $s = $http->parameter ('s');
23	if (length $s > 1000_000) {
24	print STDOUT "Status: 400 Document Too Long\nContent-Type: text/plain; charset=us-ascii\n\nToo long";
25	exit;
26	}
27
28	$s = Encode::decode ('utf-8', $s);
29	my $doc = Whatpm::HTML->parse_string
30	($s => Whatpm::NanoDOM::Document->new);
31
32	my @table_el;
33	my @node = @{$doc->child_nodes};
34	while (@node) {
35	my $node = shift @node;
36	if ($node->node_type == 1) {
37	if ($node->namespace_uri eq q<