Parent Directory
| 
Revision Log
++ ChangeLog 26 Jul 2008 11:26:00 -0000 2008-07-26 Wakaba <wakaba@suika.fam.cx> * cc.cgi: get_input_document function is now handled by WebHACC::Input classes. |cc-script| reference is now generated by |html_header| in WebHACC::Output. * error-description-source.xml: Document URL and Request URL are now just "URLs". ++ html/WebHACC/ChangeLog 26 Jul 2008 11:27:20 -0000 2008-07-26 Wakaba <wakaba@suika.fam.cx> * Input.pod: New. * Input.pm (urls, url, add_url): New. Originally handled as |$input->{uri}| and |$input->{request_uri}|. (get_document and related methods/classes): New. Originally part of |cc.cgi|. * Output.pm (html_header): Link to |cc-script.js|.
| 1 | wakaba | 1.1 | #!/usr/bin/perl |
| 2 | use strict; | ||
| 3 | |||
| 4 | use lib qw[/home/httpd/html/www/markup/html/whatpm | ||
| 5 | wakaba | 1.16 | /home/wakaba/work/manakai2/lib]; |
| 6 | wakaba | 1.1 | use CGI::Carp qw[fatalsToBrowser]; |
| 7 | |||
| 8 | wakaba | 1.53 | require WebHACC::Input; |
| 9 | wakaba | 1.2 | |
| 10 | wakaba | 1.35 | { |
| 11 | wakaba | 1.58 | require Message::CGI::HTTP; |
| 12 | wakaba | 1.16 | my $http = Message::CGI::HTTP->new; |
| 13 | wakaba | 1.1 | |
| 14 | wakaba | 1.58 | require WebHACC::Output; |
| 15 | my $out = WebHACC::Output->new; | ||
| 16 | $out->handle (*STDOUT); | ||
| 17 | $out->set_utf8; | ||
| 18 | |||
| 19 |