Parent Directory
| 
Revision Log
| 
Patch
| revision 1.5 by wakaba, Fri May 25 14:24:31 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/; | |
| 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 19 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; |