Parent Directory
| 
Revision Log
2002-10-07 Wakaba <w@suika.fam.cx> * wiki.cgi: - Output Last-Modified:. - Record and output referer information.
| 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.17 | my $walversion; |
| 60 | wakaba | 1.9 | ############################## |
| 61 | wakaba | 1.16 | # |
| 62 | # You MUST modify following '$modifier_...' variables. | ||
| 63 | # | ||
| 64 | my $modifier_mail = '[email protected]'; # Your mail address, like '[email protected]'. | ||
| 65 | my $modifier_url = 'http://suika.fam.cx/~wakaba/'; # Your web page, like 'http://digit.que.ne.jp/work/'. | ||
| 66 | my $modifier_name = '��'; # Your name, like 'Makio Tsukamoto'. | ||
| 67 | # my $modifier_dbtype = 'AnyDBM_File'; # Fast, not available on some server, page size limited. | ||
| 68 | # my $modifier_dbtype = 'dbmopen'; # Fast, not available on some server, page size limited. | ||
| 69 | my $modifier_dbtype = 'YukiWikiDB'; # Slow, available on all environment. | ||
| 70 | # my $modifier_sendmail = '/usr/sbin/sendmail -t -n'; # Your sendmail. | ||
| 71 | my $modifier_sendmail = ''; # If you don't need mail notification. | ||
| 72 | wakaba | 1.17 | my $modifier_dir_data = './wikidata'; # Your data directory. |
| 73 | wakaba | 1.27 | my $modifier_rss_title = "SuikaWiki $walversion"; |
| 74 | wakaba | 1.16 | my $modifier_rss_link = 'http://suika.fam.cx/~wakaba/-temp/wiki2/wiki'; # Blank is not allowed. |
| 75 | wakaba | 1.27 | my $modifier_rss_description = 'This is SuikaWiki'; |
| 76 | wakaba | 1.9 | ############################## |
| 77 | wakaba | 1.16 | # |
| 78 | # You MAY modify following variables. | ||
| 79 | # | ||
| 80 | my $file_touch = "$modifier_dir_data/touched.txt"; | ||
| 81 | my $file_resource = "$modifier_dir_data/resource.txt"; | ||
| 82 | my $file_FrontPage = "$modifier_dir_data/frontpage.txt"; | ||
| 83 | my $file_conflict = "$modifier_dir_data/conflict.txt"; | ||
| 84 | my $file_format = "$modifier_dir_data/format.txt"; | ||
| 85 | my $url_cgi = 'wiki'; | ||
| 86 | wakaba | 1.25 | my $url_stylesheet = $url_cgi.'?mycmd=TEXT_CSS;mypage=WikiHTMLStyle'; |
| 87 | wakaba | 1.16 | my $icontag = '<img src="/icons/folder" alt="*" width="40" height="40" />'; |
| 88 | my $maxrecent = 50; | ||
| 89 | wakaba | 1.9 | my $cols = 80; |
| 90 | my $rows = 20; | ||
| 91 | ############################## | ||
| 92 | wakaba | 1.16 | # |
| 93 | # You MAY, but do NOT NEED modify following variables. | ||
| 94 | # | ||
| 95 | my $dataname = "$modifier_dir_data/wiki"; | ||
| 96 | my $infoname = "$modifier_dir_data/info"; | ||
| 97 | my $diffname = "$modifier_dir_data/diff"; | ||
| 98 | my $editchar = '?'; | ||
| 99 | my $subject_delimiter = ' - '; | ||
| 100 | my $use_autoimg = 1; # automatically convert image URL into <img> tag. | ||
| 101 | my $use_exists = 0; # If you can use 'exists' method for your DB. | ||
| 102 | ############################## | ||
| 103 | my $InterWikiName = 'InterWikiName'; | ||
| 104 | my $RecentChanges = 'RecentChanges'; | ||
| 105 | my $AdminChangePassword = 'AdminChangePassword'; | ||
| 106 | my $CompletedSuccessfully = 'CompletedSuccessfully'; | ||
| 107 | wakaba | 1.18 | my $FrontPage = 'HomePage'; |
| 108 | wakaba | 1.16 | my $IndexPage = 'IndexPage'; |
| 109 | my $SearchPage = 'SearchPage'; | ||
| 110 | my $CreatePage = 'CreatePage'; | ||
| 111 | my $ErrorPage = 'ErrorPage'; | ||
| 112 | my $RssPage = 'RssPage'; | ||
| 113 | wakaba | 1.26 | my $NAME_OF_WikiPageLicense = 'WikiPageLicense'; |
| 114 | wakaba |