/[pub]/test/html-whatpm/table.cgi
Suika

Contents of /test/html-whatpm/table.cgi

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.2 - (hide annotations) (download)
Sun May 27 10:00:48 2007 UTC (19 years, 5 months ago) by wakaba
Branch: MAIN
Changes since 1.1: +5 -4 lines 
++ ChangeLog	27 May 2007 10:00:30 -0000
	* excanvas.js: New (from <http://sourceforge.net/project/showfiles.php?group_id=163391&package_id=184688&release_id=505959>).

	* table.cgi: Remove |$table->{caption}->{element}|
	for table with caption processed correctly.
	Support for WinIE via ExplorerCanvas; note that
	it does not draw path with fill and stroke correctly (stroke
	is hidden?).

2007-05-27  Wakaba  <wakaba@suika.fam.cx>
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/public_html/-temp/wiki/lib];
6     use CGI::Carp qw[fatalsToBrowser];
7    
8     use SuikaWiki::Input::HTTP; ## TODO: Use some better CGI module
9    
10     my $http = SuikaWiki::Input::HTTP->new;
11    
12     ## TODO: _charset_
13    
14     my $mode = $http->meta_variable ('PATH_INFO');
15     ## TODO: decode unreserved characters
16    
17     if ($mode eq '/table') {
18     require Encode;
19     require Whatpm::HTML;
20     require Whatpm::NanoDOM;
21    
22     my $s = $http->parameter ('s');
23