/[suikacvs]/test/html-whatpm/parser.cgi
Suika

Diff of /test/html-whatpm/parser.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wakaba, Tue May 1 10:27:06 2007 UTC revision 1.3 by wakaba, Tue May 1 11:05:04 2007 UTC
# Line 15  my $mode = $http->meta_variable ('PATH_I Line 15  my $mode = $http->meta_variable ('PATH_I
15    
16  if ($mode eq '/html' or $mode eq '/test') {  if ($mode eq '/html' or $mode eq '/test') {
17    require Encode;    require Encode;
18    require What::HTML;    require Whatpm::HTML;
19    require What::NanoDOM;    require Whatpm::NanoDOM;
20    
21    my $s = $http->parameter ('s');    my $s = $http->parameter ('s');
22    if (length $s > 1000_000) {    if (length $s > 1000_000) {
# Line 34  if ($mode eq '/html' or $mode eq '/test' Line 34  if ($mode eq '/html' or $mode eq '/test'
34      print STDOUT "0,0,", $_[0], "\n";      print STDOUT "0,0,", $_[0], "\n";
35    };    };
36    
37    my $doc = What::HTML->parse_string    my $doc = Whatpm::HTML->parse_string
38        ($s => What::NanoDOM::Document->new, $onerror);        ($s => Whatpm::NanoDOM::Document->new, $onerror);
39    
40    print "#document\n";    print "#document\n";
41    
42    my $out;    my $out;
43    if ($mode eq '/html') {    if ($mode eq '/html') {
44      $out = What::HTML->get_inner_html ($doc);      $out = Whatpm::HTML->get_inner_html ($doc);
45    } else { # test    } else { # test
46      $out = test_serialize ($doc);      $out = test_serialize ($doc);
47    }    }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24