/[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.7 by wakaba, Mon May 28 14:04:57 2007 UTC revision 1.9 by wakaba, Sun Nov 11 04:18:27 2007 UTC
# Line 2  Line 2 
2  use strict;  use strict;
3    
4  use lib qw[/home/httpd/html/www/markup/html/whatpm  use lib qw[/home/httpd/html/www/markup/html/whatpm
5             /home/wakaba/public_html/-temp/wiki/lib];             /home/wakaba/work/manakai2/lib];
6  use CGI::Carp qw[fatalsToBrowser];  use CGI::Carp qw[fatalsToBrowser];
7  use Time::HiRes qw/time/;  use Time::HiRes qw/time/;
8    
9  use SuikaWiki::Input::HTTP; ## TODO: Use some better CGI module  use Message::CGI::HTTP;
10    my $http = Message::CGI::HTTP->new;
 my $http = SuikaWiki::Input::HTTP->new;  
11    
12  ## TODO: _charset_  ## TODO: _charset_
13    
14  my $mode = $http->meta_variable ('PATH_INFO');  my $mode = $http->get_meta_variable ('PATH_INFO');
15  ## TODO: decode unreserved characters  ## TODO: decode unreserved characters
16    
17  if ($mode eq '/html' or $mode eq '/test') {  if ($mode eq '/html' or $mode eq '/test') {
# Line 20  if ($mode eq '/html' or $mode eq '/test' Line 19  if ($mode eq '/html' or $mode eq '/test'
19    require Whatpm::HTML;    require Whatpm::HTML;
20    require Whatpm::NanoDOM;    require Whatpm::NanoDOM;
21    
22    my $s = $http->parameter ('s');    my $s = $http->get_parameter ('s');
23    if (length $s > 1000_000) {    if (length $s > 1000_000) {
24      print STDOUT "Status: 400 Document Too Long\nContent-Type: text/plain; charset=us-ascii\n\nToo long";      print STDOUT "Status: 400 Document Too Long\nContent-Type: text/plain; charset=us-ascii\n\nToo long";
25      exit;      exit;
# Line 52  if ($mode eq '/html' or $mode eq '/test' Line 51  if ($mode eq '/html' or $mode eq '/test'
51    my $out;    my $out;
52    $time1 = time;    $time1 = time;
53    if ($mode eq '/html') {    if ($mode eq '/html') {
54      $out = Whatpm::HTML->get_inner_html ($doc);      require Whatpm::HTML::Serializer;
55        $out = Whatpm::HTML::Serializer->get_inner_html ($doc);
56    } else { # test    } else { # test
57      $out = test_serialize ($doc);      $out = test_serialize ($doc);
58    }    }
# Line 61  if ($mode eq '/html' or $mode eq '/test' Line 61  if ($mode eq '/html' or $mode eq '/test'
61    print STDOUT Encode::encode ('utf-8', $$out);    print STDOUT Encode::encode ('utf-8', $$out);
62    print STDOUT "\n";    print STDOUT "\n";
63    
64    if ($http->parameter ('dom5')) {    if ($http->get_parameter ('dom5')) {
65      require Whatpm::ContentChecker;      require Whatpm::ContentChecker;
66      print STDOUT "#domerrors\n";      print STDOUT "#domerrors\n";
67      $time1 = time;      $time1 = time;
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24