/[pub]/test/html-webhacc/cc.cgi
Suika

Contents of /test/html-webhacc/cc.cgi

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.7 - (hide annotations) (download)
Sun Jul 1 06:21:46 2007 UTC (19 years ago) by wakaba
Branch: MAIN
Changes since 1.6: +65 -23 lines 
++ ChangeLog	1 Jul 2007 06:21:44 -0000
2007-07-01  Wakaba  <wakaba@suika.fam.cx>

	* cc-style.css: New rules for empty error lists,
	error levels, and |code|.

	* cc.cgi: Support for error message catalog.
	Support for empty (zero-length) document.
	(print_source_string): Support for empty document.
	(print_document_tree): Element |has_child_nodes| test
	was incorrect.  Output compat mode and is html flag
	for |Document| node.
	(load_text_catalog, get_text): New functions.

	* LICENSE, large-alert.png, large-info.png, large-stop.png:
	New files.
1 wakaba 1.1 #!/usr/bin/perl
2     use strict;
3    
4     use lib qw[/home/httpd/html/www/markup/html/whatpm
5     /home/wakaba/work/manakai/lib
6     /home/wakaba/public_html/-temp/wiki/lib];
7     use CGI::Carp qw[fatalsToBrowser];
8 wakaba 1.2 use Scalar::Util qw[refaddr];
9 wakaba 1.1
10     use SuikaWiki::Input::HTTP; ## TODO: Use some better CGI module
11    
12 wakaba 1.2 sub htescape ($) {
13     my $s = $_[0];
14     $s =~ s/&/&amp;/g;
15     $s =~ s/</&lt;/g;
16     $s =~ s/>/&gt;/g;
17     $s =~ s/"/&quot;/g;
18     $s =~ s!([\x00-\x09\x0B-\x1F\x7F-\x80])!sprintf '<var>U+%04X</var>', ord $1!ge;
19     return $s;
20     } # htescape
21    
22 wakaba 1.1 my $http = SuikaWiki::Input::HTTP->