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

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.5 - (hide annotations) (download)
Sat Jun 30 08:26:08 2007 UTC (19 years, 4 months ago) by wakaba
Branch: MAIN
Changes since 1.4: +63 -7 lines 
++ ChangeLog	30 Jun 2007 08:26:04 -0000
2007-06-30  Wakaba  <wakaba@suika.fam.cx>

	* cc-style.css (img): New rule not to make border
	for img[usemap].

	* cc.cgi: |table.cgi|-feature merged.  Doctype
	token was serialized incorrectly.

	* table-script.js (tableToCanvas): Has second
	argument to specify the parent.  Use image map
	to identify cells.

	* table.cgi: Minor fix to sync with the aforementioned
	change.
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