--- suikawiki/script/wiki.cgi 2002/04/23 10:14:12 1.15
+++ suikawiki/script/wiki.cgi 2002/06/02 05:03:38 1.16
@@ -1,1513 +1,1408 @@
#!/usr/bin/perl
-use lib "../lib";
-use CGI::Carp 'fatalsToBrowser';
-use Algorithm::Diff qw(traverse_sequences);
-# use strict;
+#!perl
#
-# yukiwiki.cgi - Yet another WikiWikiWeb clone.
+# wiki.cgi - This is YukiWiki, yet another Wiki clone.
#
-# Copyright (C) 2000,2001 by Hiroshi Yuki.
+# Copyright (C) 2000-2002 by Hiroshi Yuki.
# 通常は入力した文字がそのまま出力されますが、
-以下のルールに従ってテキスト整形を行うことができます。 $form{myword}を含むページは、上に示す$count ページです。 $form{myword}を含むページは見つかりません。
-';
+my $maxrecent = 50;
my $cols = 80;
my $rows = 20;
##############################
-my %form = ();
-my %database = ();
-my %diffbase = ();
-my $diff_text = '';
-my @diff_added = ();
-my @diff_deleted = ();
-my $msgrefA;
-my $msgrefB;
-##############################
-# 編集不可ページ名一覧
-my @uneditable = ( $whatsnew );
-##############################
-# リンク用の正規表現
-# YukiWikiのリンクは2種類ある。
-#
-# (1) WikiName (RecentChangesとかFrontPageのようなもの)
-# (2) BracketName ([[結城浩]]とか[[トラブルシュート]]のようなもの)
-#
-# ※シフトJISの2バイト目には ']' が来うるので、
-# 文字']'を1つ多くとるようにしている。
#
-my $WikiName = '([A-Z][a-z]+([A-Z][a-z]+)+)';
-my $BracketName = '\[\[([^>\x09]+?\]?)\]\]';
-
-# アイコン部分のタグ
-my $IconTag = ''; #<<"EOD";
-#
-#EOD
-
-require "$jcodelib";
-
-&init_form($kanjicode);
-
-if ($testing) {
- %form = (
- # 'mycmd' => 'write',
- 'mycmd' => 'read',
- #'mycmd' => 'search',
- #'mycmd' => 'edit',
- 'mymsg' => <<"EOD",
-はじめまして。
-これからいろいろ書き込みますね。
-LinkPageも見てください。
-TestPageはどうでしょうか。
-どうぞよろしく。
-http://www.hyuki.com/
-[[結城浩]]
-EOD
- 'mypage' => '<結城浩>',
- 'myword' => '結',
- # '3C8C8B8FE98D5F3E' => '',
- # 'TestPage' => '',
- );
-}
+# You MAY, but do NOT NEED modify following variables.
+#
+my $dataname = "$modifier_dir_data/wiki";
+my $infoname = "$modifier_dir_data/info";
+my $diffname = "$modifier_dir_data/diff";
+my $editchar = '?';
+my $subject_delimiter = ' - ';
+my $use_autoimg = 1; # automatically convert image URL into
tag.
+my $use_exists = 0; # If you can use 'exists' method for your DB.
+##############################
+my $InterWikiName = 'InterWikiName';
+my $RecentChanges = 'RecentChanges';
+my $AdminChangePassword = 'AdminChangePassword';
+my $CompletedSuccessfully = 'CompletedSuccessfully';
+my $FrontPage = 'FrontPage';
+my $IndexPage = 'IndexPage';
+my $SearchPage = 'SearchPage';
+my $CreatePage = 'CreatePage';
+my $ErrorPage = 'ErrorPage';
+my $RssPage = 'RssPage';
+my $AdminSpecialPage = 'Admin Special Page'; # must include spaces.
+##############################
+# my $wiki_name = '\b([A-Z][a-z]+([A-Z][a-z]+)+)\b'; # Walrus del (2)
+my $wiki_name = '\b([A-Z][a-z]+([A-Z][a-z]*)+)\b'; # Walrus add (2)
+my $bracket_name = '\[\[(\S+?)\]\]';
+my $embedded_name = '\[\[(#\S+?)\]\]';
+my $interwiki_definition = '\[\[(\S+?)\ (\S+?)\]\]';
+my $interwiki_name = '([^:]+):([^:].*)';
+##############################
+my $embed_comment = '[[#comment]]';
+my $embed_rcomment = '[[#rcomment]]';
+my $embed_interwiki = '^\[\[#(box|text|password):(\S+)\]\]$'; # Walrus add (5)
+##############################
+my $info_LastModified = 'LastModified';
+my $info_IsFrozen = 'IsFrozen';
+my $info_AdminPassword = 'AdminPassword';
+##############################
+my $kanjicode = 'euc';
+my $charset = 'EUC-JP';
+my $lang = 'ja';
+my %fixedpage = (
+ $IndexPage => 1,
+ $CreatePage => 1,
+ $ErrorPage => 1,
+ $RssPage => 1,
+ $RecentChanges => 1,
+ $SearchPage => 1,
+ $AdminChangePassword => 1,
+ $CompletedSuccessfully => 1,
+ $FrontPage => 1,
+);
+my %form;
+my %database;
+my %infobase;
+my %diffbase;
+my %resource;
+my %interwiki;
+##############################
+my %page_command = (
+ $IndexPage => 'index',
+ $SearchPage => 'searchform',
+ $CreatePage => 'create',
+ $RssPage => 'rss',
+ $AdminChangePassword => 'adminchangepasswordform',
+ $FrontPage => 'FrontPage',
+);
+my %command_do = (
+ read => \&do_read,
+ edit => \&do_edit,
+ adminedit => \&do_adminedit,
+ adminchangepasswordform => \&do_adminchangepasswordform,
+ adminchangepassword => \&do_adminchangepassword,
+ write => \&do_write,
+ index => \&do_index,
+ searchform => \&do_searchform,
+ search => \&do_search,
+ create => \&do_create,
+ createresult => \&do_createresult,
+ FrontPage => \&do_FrontPage,
+ comment => \&do_comment,
+ rss => \&do_rss,
+ diff => \&do_diff,
+ interwikibox => \&do_interwiki_box, # Walrus add (5)
+);
+##############################
+my @ignore_html_page = ('FrontPage'); # Walrus add (6)
+my @ignore_html_tags = ('a', 'br', 'img'); # Walrus add (6)
+my $walversion = '2.0.beta1.wal.1'; # Walrus add (1)
+##############################
+# &test_convert;
&main;
exit(0);
+##############################
-# メイン
sub main {
- &normalize_form;
- if ($dbmopen) {
- if (!dbmopen(%database, $dbname, 0666)) {
- &print_error("(dbmopen) $dbname が作れません。");
- }
+ &init_resource;
+ &open_db;
+ &init_form;
+ &init_InterWikiName;
+ if ($command_do{$form{mycmd}}) {
+ &{$command_do{$form{mycmd}}};
} else {
- if (!tie(%database, "YukiWikiDB", $dbname)) {
- &print_error("(tie error)");
- }
- }
-
- # myspecial対応
- foreach (keys %form) {
- if (/^myspecial_(.*)/) {
- $form{mycmd} = $1;
- last;
- }
- }
-
- if ($form{mycmd} eq 'read') {
- &do_read;
- } elsif ($form{mycmd} eq 'preview') {
- &do_preview;
- } elsif ($form{mycmd} eq 'write') {
- &do_write;
- } elsif ($form{mycmd} eq 'edit') {
- &do_edit;
- } elsif ($form{mycmd} eq 'reedit') {
- &do_reedit;
- } elsif ($form{mycmd} eq 'search') {
- &do_search;
- } elsif ($form{mycmd} eq 'list') {
- &do_list;
- } elsif ($form{mycmd} eq 'diff') {
- &do_diff;
- } else {
- $form{mypage} = $toppage;
- &do_read;
- }
- if ($dbmopen) {
- dbmclose(%database);
- } else {
- untie(%database);
+ &do_FrontPage;
}
+ &close_db;
}
-# ページの表示
sub do_read {
- my $page_name = $form{mypage};
- my $percent_name = &encode_percent($page_name);
- &print_header($page_name);
- print qq|
$IconTag$page_name
\n|;
- &print_toolbar($page_name);
- print &convert_html(&get_page($page_name));
- &print_footer;
+ &print_header($form{mypage});
+ &print_content($database{$form{mypage}});
+ &print_footer($form{mypage});
}
-# ページの編集
sub do_edit {
- if (not &is_editable($form{mypage})) {
- # 編集不可ページは表示のみ
- &do_read;
- return;
+ my ($page) = &unarmor_name(&armor_name($form{mypage}));
+ &print_header($page);
+ if (not &is_editable($page)) {
+ &print_message($resource{cantchange});
+ } elsif (&is_frozen($page)) {
+ &print_message($resource{cantchange});
+ } else {
+ &print_editform($database{$page}, &get_info($page, $info_LastModified), admin=>0);
}
- &editpage(&get_page($form{mypage}));
+ &print_footer($page);
}
-# ページの再編集
-sub do_reedit {
- if (not &is_editable($form{mypage})) {
- # 編集不可ページは表示のみ
- &do_read;
+sub do_adminedit {
+ my ($page) = &unarmor_name(&armor_name($form{mypage}));
+ &print_header($page);
+ if (not &is_editable($page)) {
+ &print_message($resource{cantchange});
} else {
- &editpage($form{mymsg});
+ &print_message($resource{passwordneeded});
+ &print_editform($database{$page}, &get_info($page, $info_LastModified), admin=>1);
}
+ &print_footer($page);
}
-sub editpage {
- my $page_msg = shift;
- my $page_name = $form{mypage};
- my $digest = &calc_message_digest($page_msg);
- &print_header($page_name);
- print qq|$IconTag${page_name}の編集
\n|;
- &print_toolbar($page_name);
- $page_msg = &escape($page_msg);
- print <<"EOD";
-
-
-テキスト整形のルール
-
-
-
-EOD
- &print_footer;
+sub do_adminchangepasswordform {
+ &print_header($AdminChangePassword);
+ &print_passwordform;
+ &print_footer($AdminChangePassword);
}
-# ページの検索
-sub do_search {
- if ($form{myword}) {
- &print_header('検索結果');
- print qq|
- :用語1:いろいろ書いた解説文1
- :用語2:いろいろ書いた解説文2
- :用語3:いろいろ書いた解説文3
-
-
-$IconTag$form{myword}の検索結果
\n|;
- &print_toolbar();
- print qq|\n|;
- my $count = 0;
- foreach my $page_name (sort keys %database) { # sortするのは無謀かな
- if ($database{$page_name} =~ /\Q$form{'myword'}\E/) {
- my $encoded = &encode_percent($page_name);
- print qq|
\n|;
- if ($count > 0) {
- print qq|);
+ foreach my $page (sort keys %database) {
+ if (&is_editable($page)) {
+ print qq(
-$IconTag単語検索
\n|;
- &print_toolbar();
}
- print <<"EOD";
-
以下のプレビューを確認して、よければページ下部のボタンで更新してください。
\n|; - if ($form{mymsg}) { - print qq|\n|; - # print &convert_html($escapedmsg); - print &convert_html($form{mymsg}); - print qq| |
(ページの内容は空です。更新するとこのページは削除されます。)
\n|; +sub do_write { + if (&frozen_reject()) { + return; } - &print_preview_buttons($page_name, $escapedmsg, $form{mydigest}); - &print_footer; -} -sub print_preview_buttons { - my ($page_name, $escapedmsg, $digest) = @_; - print <<"EOD"; - -EOD -} - -# 書き込む -sub do_write { if (not &is_editable($form{mypage})) { - # 編集不可ページは表示のみ - &do_read; + &print_header($form{mypage}); + &print_message($resource{cantchange}); + &print_footer($form{mypage}); return; } - my $page_name = $form{mypage}; - - # digestを使って、更新の衝突チェック - my $original_digest = &calc_message_digest(&get_page($page_name)); - if ($form{mydigest} ne $original_digest) { - &print_header($page_name); - print qq|あなたがこのページを編集している間に、 -他の人が同じページを更新してしまったようです。 -
-以下に、あなたの編集したテキストがありますので、 -あなたの編集内容が失われないように、 -いますぐ、メモ帳などにコピー&ペーストしてください。 -
-コピー&ペーストが済んでから、 -最新の内容を見て再度編集し直してください。 -最新の内容は -$form{mypage} -で見ることができます。 -
-EOD - # &print_toolbar($page_name); - &print_preview_buttons($page_name, &escape($form{mymsg}), $form{mydigest}); - &print_footer; + if (&conflict($form{mypage}, $form{mymsg})) { return; } - # diff生成 + # Making diff { - &opendiff; - my @msg1 = split(/\n/, &get_page($page_name)); + &open_diff; + my @msg1 = split(/\n/, $database{$form{mypage}}); my @msg2 = split(/\n/, $form{mymsg}); - $msgrefA = \@msg1; - $msgrefB = \@msg2; - &diff_check; - $diffbase{$form{mypage}} = $diff_text; - $diff_text = ''; - &closediff; + $diffbase{$form{mypage}} = &difftext(\@msg1, \@msg2); + &close_diff; } - &print_header($page_name); - &set_page($page_name, $form{mymsg}); if ($form{mymsg}) { - print qq|${page_name}を削除しました。
\n|; - } - &print_footer; - # 更新されたのでタッチしておく。 - if ($touchfile) { - open(FILE, "> $touchfile"); - print FILE "\n"; - close(FILE); + $database{$form{mypage}} = $form{mymsg}; + &send_mail_to_admin($form{mypage}, "Modify"); + if ($form{mytouch}) { + &set_info($form{mypage}, $info_LastModified, '' . localtime); + &update_recent_changes; + } + &set_info($form{mypage}, $info_IsFrozen, 0 + $form{myfrozen}); + &print_header($CompletedSuccessfully); + &print_message($resource{saved}); + &print_content("$resource{continuereading} @{[&armor_name($form{mypage})]}"); + &print_footer($CompletedSuccessfully); + } else { + &send_mail_to_admin($form{mypage}, "Delete"); + delete $database{$form{mypage}}; + delete $infobase{$form{mypage}}; + if ($form{mytouch}) { + &update_recent_changes; + } + &print_header($form{mypage}); + &print_message($resource{deleted}); + &print_footer($form{mypage}); } } -# ページの変更点 -sub do_diff { - if (not &is_editable($form{mypage})) { - # 編集不可ページは表示のみ - &do_read; - return; - } - &opendiff; - &print_header($form{mypage} . 'の変更点'); - print qq|\n|; - foreach (split(/\n/, $_)) { - if (/^\+(.*)/) { - print qq|$1\n|; - } elsif (/^\-(.*)/) { - print qq|\n|; - &print_footer; - &closediff; +sub do_searchform { + &print_header($SearchPage); + &print_searchform(""); + &print_footer($SearchPage); } -sub opendiff { - if ($dbmopen) { - if (!dbmopen(%diffbase, $diffdbname, 0666)) { - &print_error("(dbmopen) $diffdbname が作れません。"); +sub do_search { + my $word = &escape($form{mymsg}); + &print_header($SearchPage); + &print_searchform($word); + my $counter = 0; + foreach my $page (sort keys %database) { + next if $page =~ /^$RecentChanges$/; + if ($database{$page} =~ /\Q$form{mymsg}\E/ or $page =~ /\Q$form{mymsg}\E/) { + if ($counter == 0) { + print qq|$1\n|; - } elsif (/^\=(.*)/) { - print qq|$1\n|; - } else { - print qq|??? $_\n|; - } - } - print qq|