Parent Directory
| 
Revision Log
2002-03-24 wakaba <w@suika.fam.cx> * wiki.cgi (inline): - Ignore LinkLikeThis style anchor. - Allow [[space including anchor]]. (make_link): Likewise. Gets rid of angle branckets before make anchor.
| 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 | require 'jcode.pl'; | ||
| 56 | # use Jcode; | ||
| 57 | use Fcntl; | ||
| 58 | my $version = '2.0.beta1.2002-05-29'; | ||
| 59 | wakaba | 1.9 | ############################## |
| 60 | wakaba | 1.16 | # |
| 61 | # You MUST modify following '$modifier_...' variables. | ||
| 62 | # | ||
| 63 | my $modifier_mail = '[email protected]'; # Your mail address, like '[email protected]'. | ||
| 64 | my $modifier_url = 'http://suika.fam.cx/~wakaba/'; # Your web page, like 'http://digit.que.ne.jp/work/'. | ||
| 65 | my $modifier_name = '��'; # Your name, like 'Makio Tsukamoto'. | ||
| 66 | # my $modifier_dbtype = 'AnyDBM_File'; # Fast, not available on some server, page size limited. | ||
| 67 | # my $modifier_dbtype = 'dbmopen'; # Fast, not available on some server, page size limited. | ||
| 68 | my $modifier_dbtype = 'YukiWikiDB'; # Slow, available on all environment. | ||
| 69 | # my $modifier_sendmail = '/usr/sbin/sendmail -t -n'; # Your sendmail. | ||
| 70 | my $modifier_sendmail = ''; # If you don't need mail notification. | ||
| 71 | my $modifier_dir_data = '../wiki'; # Your data directory. | ||
| 72 | my $modifier_rss_title = "WalWiki $walversion"; | ||
| 73 | my $modifier_rss_link = 'http://suika.fam.cx/~wakaba/-temp/wiki2/wiki'; # Blank is not allowed. | ||
| 74 | my $modifier_rss_description = 'This is WalWiki, yet another Wiki clone based on YukiWiki'; | ||
| 75 | wakaba | 1.9 | ############################## |
| 76 | wakaba | 1.16 | # |
| 77 | # You MAY modify following variables. | ||
| 78 | # | ||
| 79 | my $file_touch = "$modifier_dir_data/touched.txt"; | ||
| 80 | my $file_resource = "$modifier_dir_data/resource.txt"; | ||
| 81 | my $file_FrontPage = "$modifier_dir_data/frontpage.txt"; | ||
| 82 | my $file_conflict = "$modifier_dir_data/conflict.txt"; | ||
| 83 | my $file_format = "$modifier_dir_data/forma |