Parent Directory
| 
Revision Log
2002-06-18 Wakaba <w@suika.fam.cx> * wiki.cgi: Fix cross site scripting problems.
| 1 | wakaba | 1.9 | #!/usr/bin/perl |
| 2 | wakaba | 1.16 | #!perl |
| 3 | wakaba | 1.9 | # |
| 4 | wakaba | 1.16 | # wiki.cgi - This is YukiWiki, yet another Wiki clone. |
| 5 | wakaba | 1.9 | # |
| 6 | wakaba | 1.16 | # Copyright (C) 2000-2002 by Hiroshi Yuki. |
| 7 | wakaba | 1.9 | # <[email protected]> |
| 8 | # http://www.hyuki.com/yukiwiki/ | ||
| 9 | # | ||
| 10 | wakaba | 1.16 | # This program is free software; you can redistribute it and/or |
| 11 | # modify it under the same terms as Perl itself. | ||
| 12 | wakaba | 1.9 | # |
| 13 | wakaba | 1.16 | ############################## |
| 14 | # | ||
| 15 | # walwiki.cgi based on yukiwiki.cgi - Yet another WikiWikiWeb clone. | ||
| 16 | # | ||
| 17 | # WalWiki�θ��С������ϡ�YukiWiki 2.0.beta1��١����ˤ��Ƥ��ޤ��� | ||
| 18 | # | ||
| 19 | # * �������� | ||
| 20 | # | ||
| 21 | # 2.0.beta1.wal.1 on 2002/05/19,22:32:19 | ||
| 22 | # (1) Footer���ѹ� | ||
| 23 | # (2) WikiName�γ�ĥ : PerlCE����ޡ�PPMInstall�ϴޤޤʤ� | ||
| 24 | # (3) ��̾���[��̾ URL]�ˤ��б��� | ||
| 25 | # (4) ISBN�ޥ���.jp��Asociate�ץ���������Ѵ��� | ||
| 26 | # (5) [[#box:InterWikiName]]��InterWiki�ʥƥ����ȥܥå������� | ||
| 27 | # (6) HTML�⡼���б��� | ||
| 28 | # | ||
| 29 | # ��2.0.alpha0.wal.3�ǤޤǤν������⡢�ʲ����ѹ�������ޤ��� | ||
| 30 | # ���ʲ���YukiWiki2�˼������줿���ᡢ�ȼ������ɤϤʤ��ʤ�ޤ����� | ||
| 31 | # - ����饤��β����Ѵ� | ||
| 32 | # - YukiWikiDB�б� | ||
| 33 | # - �ơ��֥� | ||
| 34 | # - DB��Ϣ�⥸�塼��use��eval�� | ||
| 35 | # - BracketName�ˤ�륭������֥饱�åȤ��ӽ� | ||
| 36 | # ��ISBN�ֹ�ؤ��б���WalWiki2.0��ꡢInterWiki�ؤ�Add-On�ˤʤ�ޤ����� | ||
| 37 | # [[ISBN http://www.amazon.co.jp/exec/obidos/ASIN/isbn($1)/walrdigi-22]]�Τ褦����Ͽ�� | ||
| 38 | wakaba | 1.9 | # |
| 39 | wakaba | 1.16 | #======================================= |
| 40 | |||
| 41 | # Walrus add (debug) start | ||
| 42 | my $walrus_log; | ||
| 43 | my $walrus_debugging = 0; | ||
| 44 | # Walrus add (debug) end | ||
| 45 | |||
| 46 | # Libraries. | ||
| 47 | use strict; | ||
| 48 | use lib qw(./WalWiki/lib); | ||
| 49 | use CGI qw(:standard); | ||
| 50 | use CGI::Carp qw(fatalsToBrowser); | ||
| 51 | use Yuki::RSS; | ||
| 52 | use Yuki::DiffText qw(difftext); | ||
| 53 | use Yuki::YukiWikiDB; | ||
| 54 | use AnyDBM_File; | ||
| 55 |