suikawiki/script/wiki.cgi

#!/usr/bin/perl
use lib "../lib";
use CGI::Carp 'fatalsToBrowser';
use Algorithm::Diff qw(traverse_sequences);
# use strict;
#
# yukiwiki.cgi - Yet another WikiWikiWeb clone.
#
# Copyright (C) 2000,2001 by Hiroshi Yuki.
# <[email protected]>
# http://www.hyuki.com/yukiwiki/
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# $Id: wiki.cgi,v 1.7 2002/02/04 15:27:22 wakaba Exp $
##############################
my $version = "1.6.6";
##############################
# ñ�ȥƥ��ȤΤȤ��ˤ� 1 �ˤ��롣
my $testing = 0;
##############################
# �����饤�֥��
my $jcodelib = 'jcode.pl';
##############################
# ��¸��ɽ���δ���������
my $kanjicode = 'euc';     # 'sjis' 'euc'
my $charset = 'euc-jisx0213';  # 'Shift_JIS' 'EUC-JP'
##############################
# dbmopen���Ȥ���ʤ�1���Ȥ��ʤ��ʤ�0
my $dbmopen = 0;
##############################
# �ǡ����١���̾��.pag, .dir, .db�ʤɤ����ס�
# $dbmopen = 1�ΤȤ��ϥǡ����١���̾��
# $dbmopen = 0�ΤȤ��ϥǥ��쥯�ȥ�̾�ˤʤ롣
my $dbname = './wikidata';
my $diffdbname = './wikidiff';
##############################
# �����Ԥλ�̾�ʼ�ͳ���ѹ����Ƥ���������
my $modifier = 'suika';
##############################
# �����Ԥ�Web�ڡ����ʼ�ͳ���ѹ����Ƥ���������
my $modifierlink = 'http://suika.fam.cx/';
##############################
# ���Υڡ�����URL
my $thisurl = 'wiki';
##############################
# ���ϥڡ���̾
my $toppage = 'HomePage';
##############################
# �ǽ������ڡ���̾
my $whatsnew = 'RecentChanges';
##############################
# �ǽ������˷Ǻܤ���ڡ�����
my $maxnew = 50;
##############################
# ��������ե�����̾�ʥ��顼�ǡ�
my $iconfile = '';
##############################
# ��������ե�����̾�ʥ�Υ����ǡ�
# my $iconfile = '';
##############################
# �ڡ������ѹ������Ȥ���touch����ե������''�ʤ鲿�⤷�ʤ���
my $touchfile = 'touch.txt';
##############################
# �ץ�ӥ塼�Ѥ��طʿ�
my $preview_color = '#FFCCCC';
##############################
# ���ڡ����Υ�������
my $style = <<'EOD';
pre, dl, ul, ol, p, blockquote { line-height:120%; }
a { text-decoration: none; }
a:link { color: #0000FF; background-color: #FFFFFF; }
a:visited { color: #9900CC; background-color: #FFFFFF; }
a:hover { text-decoration: underline; }
EOD
##############################
# �ƥ�����������ʬ���礭��
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";
#<a href="http://www.hyuki.com/yukiwiki/"><img src="$iconfile"
# border="0" width="80" height="80" alt="[YukiWiki]" /></a>
#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' => '',
    );
}
&main;
exit(0);

# �ᥤ��
sub main {
    &normalize_form;
    if ($dbmopen) {
        if (!dbmopen(%database, $dbname, 0666)) {
            &print_error("(dbmopen) $dbname �����ޤ���");
        }
    } 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);
    }
}

# �ڡ�����ɽ��
sub do_read {
    my $page_name = $form{mypage};
    my $percent_name = &encode_percent($page_name);
    &print_header($page_name);
    print qq|<h1>$IconTag<a href="$thisurl?mycmd=search;myword=$percent_name">$page_name</a></h1>\n|;
    &print_toolbar($page_name);
    print &convert_html(&get_page($page_name));
    &print_footer;
}

# �ڡ������Խ�
sub do_edit {
    if (not &is_editable($form{mypage})) {
        # �Խ��Բĥڡ�����ɽ���Τ�
        &do_read;
        return;
    }
    &editpage(&get_page($form{mypage}));
}

# �ڡ����κ��Խ�
sub do_reedit {
    if (not &is_editable($form{mypage})) {
        # �Խ��Բĥڡ�����ɽ���Τ�
        &do_read;
    } else {
        &editpage($form{mymsg});
    }
}

sub editpage {
    my $page_msg = shift;
    my $page_name = $form{mypage};
    my $digest = &calc_message_digest($page_msg);
    &print_header($page_name);
    print qq|<h1>$IconTag${page_name}���Խ�</h1>\n|;
    &print_toolbar($page_name);
    $page_msg = &escape($page_msg);
    print <<"EOD";
<form action="$thisurl" method="post">
<!--<input type="hidden" name="mycmd" value="preview">-->
<input type="hidden" name="mypage" value="$page_name">
<input type="hidden" name="mydigest" value="$digest">
<textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$page_msg</textarea><br>
<input type="submit" name="myspecial_preview" value="��ǧ">
<input type="submit" name="myspecial_write" value="��ǧ�����ѹ�">
</form>
<hr>
<h3>�ƥ����������Υ롼��</h3>

<p>�̾�����Ϥ���ʸ�������Τޤ޽��Ϥ���ޤ�����
�ʲ��Υ롼��˽��äƥƥ�����������Ԥ����Ȥ��Ǥ��ޤ���</p>

<ul>
<li>
���Ԥ�����ζ��ڤ�Ȥʤ�ޤ���

<li>
HTML�Υ����Ͻ񤱤ޤ���

<li>
''��Ĵ''�Τ褦�˥��󥰥륯��������ĤǤϤ���ȡ���Ĵ�ˤʤ�ޤ���

<li>
'''���˶�Ĵ'''�Τ褦�˥��󥰥륯�����Ȼ��ĤǤϤ���ȡ����˶�Ĵ�ˤʤ�ޤ���

<li>
----�Τ褦�˥ޥ��ʥ�4�Ĥ�����ȡ���ʿ���ˤʤ�ޤ���

<li>
*���Ƭ�˽񤯤��縫�Ф��ˤʤ�ޤ���

<li>
**���Ƭ�˽񤯤Ⱦ����Ф��ˤʤ�ޤ���

<li>
-���Ƭ�˽񤯤Ȳվ�񤭤ˤʤ�ޤ���- -- --- ��3��٥뤬����ޤ���

<li>
:���Ƭ�˽񤯤��Ѹ�Ȳ���ʸ�����ޤ���

<pre>
    :�Ѹ�1:���������񤤤�����ʸ1
    :�Ѹ�2:���������񤤤�����ʸ2
    :�Ѹ�3:���������񤤤�����ʸ3
</pre>

<li>
http://www.hyuki.com/ �Τ褦��URL�ϼ�ưŪ�˥�󥯤ˤʤ�ޤ���

<li>
YukiWiki�Τ褦����ʸ����ʸ���򺮤�����ʸ�����񤯤ȡ�
YukiWiki�Υڡ���̾�ˤʤ�ޤ���

<li>
[[����]]�Τ褦����Ť��礫�ä�[[ ]]�Ǥ����ä�ʸ�����񤯤ȡ�
YukiWiki�Υڡ���̾�ˤʤ�ޤ���
�礫�ä�����ˤϥ��ڡ�����ޤ�ƤϤ����ޤ���
���ܸ��Ȥ��ޤ���

<li>
��Ƭ�����ڡ����ǻϤޤäƤ���ȡ�
��������������Ѥ߰����ޤ���
�ץ�������񤭹���Ȥ��˻Ȥ��������Ǥ���

<li>
&gt; ���Ƭ�˽񤯤ȡ�
����ʸ���񤱤ޤ���
&gt; �ο���¿���ȥ���ǥ�Ȥ������ʤ�ޤ���3��٥�ޤǡˡ�

</ul>
EOD
    &print_footer;
}

# �ڡ����θ���
sub do_search {
    if ($form{myword}) {
        &print_header('�������');
        print qq|<h1>$IconTag$form{myword}�θ������</h1>\n|;
        &print_toolbar();
        print qq|<ul>\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|<li><a href="$thisurl?mycmd=read;mypage=$encoded">$page_name</a>\n|;
                $count++;
            }
        }
        print qq|</ul>\n|;
        if ($count > 0) {
            print qq|<p><strong>$form{myword}</strong>��ޤ�ڡ����ϡ���˼���<strong>$count</strong> �ڡ����Ǥ���</p>\n|;
        } else {
            print qq|<p><strong>$form{myword}</strong>��ޤ�ڡ����ϸ��Ĥ���ޤ���</p>\n|;
        }
    } else {
        &print_header('ñ�측��');
        print qq|<h1>$IconTagñ�측��</h1>\n|;
        &print_toolbar();
    }
    print <<"EOD";
<p>
<form action="$thisurl" method="post">
<input type="hidden" name="mycmd" value="search">
<input type="text" name="myword" size="20" value="$form{myword}">
<input type="submit" value="ñ�측��">
</form>
</p>
EOD
    &print_footer;
}

# �ڡ����ΰ���
sub do_list {
    &print_header('�ڡ�������');
    print qq|<h1>$IconTag �ڡ�������</h1>\n|;
    &print_toolbar();
    print qq|<ul>\n|;
    foreach my $page_name (sort keys %database) {    # sort����Τ�̵�Ť���
        my $encoded = &encode_percent($page_name);
        print qq|<li><a href="$thisurl?mycmd=read;mypage=$encoded">$page_name</a>\n|
    }
    print qq|</ul>\n|;
    &print_footer;
}

# �ץ�ӥ塼
sub do_preview {
    my $page_name = $form{mypage};
    my $escapedmsg = &escape($form{mymsg});
    &print_header($page_name);
    print qq|<h1>$IconTag${page_name}�Υץ�ӥ塼</h1>\n|;
    &print_toolbar($page_name);
    # local $percent_name = &encode_percent($page_name);
    print qq|<p>�ʲ��Υץ�ӥ塼���ǧ���ơ��褱��Хڡ��������Υܥ���ǹ������Ƥ���������</p>\n|;
    if ($form{mymsg}) {
        print qq|<table width="100%" bgcolor="$preview_color" ><tr><td>\n|;
        # print &convert_html($escapedmsg);
        print &convert_html($form{mymsg});
        print qq|</td></tr></table>\n|;
    } else {
        print qq|<p>�ʥڡ��������Ƥ϶��Ǥ�����������Ȥ��Υڡ�����<strong>���</strong>����ޤ�����</p>\n|;
    }
    &print_preview_buttons($page_name, $escapedmsg, $form{mydigest});
    &print_footer;
}

sub print_preview_buttons {
    my ($page_name, $escapedmsg, $digest) = @_;
    print <<"EOD";
    <form action="$thisurl" method="post">
    <textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$escapedmsg</textarea>
    <br />
    <input type="hidden" name="mypage" value="$page_name">
    <input type="hidden" name="mydigest" value="$digest">
    <input type="submit" name="myspecial_preview" value="���٥ץ�ӥ塼">
    <input type="submit" name="myspecial_write" value="�ڡ����ι���">
    </form>
EOD
}

# �񤭹���
sub do_write {
    if (not &is_editable($form{mypage})) {
        # �Խ��Բĥڡ�����ɽ���Τ�
        &do_read;
        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|<h1>$IconTag${page_name}�ǡڹ����ξ��ۤ͡������ޤ���</h1>\n|;
        print <<"EOD";
<p>���ʤ������Υڡ������Խ����Ƥ���֤ˡ�
¾�οͤ�Ʊ���ڡ����򹹿����Ƥ��ޤä��褦�Ǥ���
</p><p>
�ʲ��ˡ����ʤ����Խ������ƥ����Ȥ�����ޤ��Τǡ�
���ʤ����Խ����Ƥ������ʤ��褦�ˡ�
���ޤ��������Ģ�ʤɤ˥��ԡ����ڡ����Ȥ��Ƥ���������
</p><p>
���ԡ����ڡ����Ȥ��Ѥ�Ǥ��顢
�ǿ������Ƥ򸫤ƺ����Խ���ľ���Ƥ���������
�ǿ������Ƥ�
<a target="_blank" href="$thisurl?mycmd=read;mypage=$form{mypage}">$form{mypage}</a>
�Ǹ��뤳�Ȥ��Ǥ��ޤ���
</p>
EOD
        # &print_toolbar($page_name);
        &print_preview_buttons($page_name, &escape($form{mymsg}), $form{mydigest});
        &print_footer;
        return;
    }

    # diff����
    {
        &opendiff;
        my @msg1 = split(/\n/, &get_page($page_name));
        my @msg2 = split(/\n/, $form{mymsg});
        $msgrefA = \@msg1;
        $msgrefB = \@msg2;
        &diff_check;
        $diffbase{$form{mypage}} = $diff_text;
        $diff_text = '';
        &closediff;
    }

    &print_header($page_name);
    &set_page($page_name, $form{mymsg});
    if ($form{mymsg}) {
        print qq|<h1>$IconTag${page_name}�򹹿����ޤ���</h1>\n|;
        &print_toolbar($page_name);
        print &convert_html(&get_page($page_name));
    } else {
        print qq|<h1>$IconTag${page_name}�������ޤ���</h1>\n|;
        &print_toolbar($page_name);
        print qq|<p>${page_name}�������ޤ�����</p>\n|;
    }
    &print_footer;
    # �������줿�Τǥ��å����Ƥ�����
    if ($touchfile) {
        open(FILE, "> $touchfile");
        print FILE "\n";
1	wakaba	1.9	#!/usr/bin/perl
2			use lib "../lib";
3			use CGI::Carp 'fatalsToBrowser';
4			use Algorithm::Diff qw(traverse_sequences);
5			# use strict;
6			#
7			# yukiwiki.cgi - Yet another WikiWikiWeb clone.
8			#
9			# Copyright (C) 2000,2001 by Hiroshi Yuki.
10			# <[email protected]>
11			# http://www.hyuki.com/yukiwiki/
12			#
13			# This program is free software; you can redistribute it and/or modify
14			# it under the terms of the GNU General Public License as published by
15			# the Free Software Foundation; either version 2 of the License, or
16			# (at your option) any later version.
17			#
18			# This program is distributed in the hope that it will be useful,
19			# but WITHOUT ANY WARRANTY; without even the implied warranty of
20			# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21			# GNU General Public License for more details.
22			#
23			# $Id: wiki.cgi,v 1.7 2002/02/04 15:27:22 wakaba Exp $
24			##############################
25			my $version = "1.6.6";
26			##############################
27			# ñ�ȥƥ��ȤΤȤ��ˤ� 1 �ˤ��롣
28			my $testing = 0;
29			##############################
30			# ��饤�֥��
31			my $jcodelib = 'jcode.pl';
32			##############################
33			# ��¸��ɽ��δ��
34			my $kanjicode = 'euc'; # 'sjis' 'euc'
35			my $charset = 'euc-jisx0213'; # 'Shift_JIS' 'EUC-JP'
36			##############################
37			# dbmopen��Ȥ��ʤ�1��Ȥ��ʤ��ʤ�0
38			my $dbmopen = 0;
39			##############################
40			# �ǡ��١��̾��.pag, .dir, .db�ʤɤ��ס�
41			# $dbmopen = 1�ΤȤ��ϥǡ��١��̾��
42			# $dbmopen = 0�ΤȤ��ϥǥ��쥯�ȥ�̾�ˤʤ롣
43			my $dbname = './wikidata';
44			my $diffdbname = './wikidiff';
45			##############################
46			# ��Ԥλ�̾�ʼ�ͳ��ѹ��Ƥ��
47			my $modifier = 'suika';
48			##############################
49			# ��Ԥ�Web�ڡ��ʼ�ͳ��ѹ��Ƥ��
50			my $modifierlink = 'http://suika.fam.cx/';
51			##############################
52			# ��Υڡ��URL
53			my $thisurl = 'wiki';
54			##############################
55			# ��ϥڡ��̾
56			my $toppage = 'HomePage';
57			##############################
58			# �ǽ��ڡ��̾
59			my $whatsnew = 'RecentChanges';
60			##############################
61			# �ǽ��˷Ǻܤ��ڡ��
62			my $maxnew = 50;
63			##############################
64			# ��ե��̾�ʥ��顼�ǡ�
65			my $iconfile = '';
66			##############################
67			# ��ե��̾�ʥ�Υ��ǡ�
68			# my $iconfile = '';
69			##############################
70			# �ڡ��ѹ��Ȥ��touch��ե��''�ʤ鲿�⤷�ʤ��
71			my $touchfile = 'touch.txt';
72			##############################
73			# �ץ�ӥ塼�Ѥ��طʿ�
74			my $preview_color = '#FFCCCC';
75			##############################
76			# ��ڡ��Υ��
77			my $style = <<'EOD';
78			pre, dl, ul, ol, p, blockquote { line-height:120%; }
79			a { text-decoration: none; }
80			a:link { color: #0000FF; background-color: #FFFFFF; }
81			a:visited { color: #9900CC; background-color: #FFFFFF; }
82			a:hover { text-decoration: underline; }
83			EOD
84			##############################
85			# �ƥ��ʬ��礭��
86			my $cols = 80;
87			my $rows = 20;
88			##############################
89			my %form = ();
90			my %database = ();
91			my %diffbase = ();
92			my $diff_text = '';
93			my @diff_added = ();
94			my @diff_deleted = ();
95			my $msgrefA;
96			my $msgrefB;
97			##############################
98			# �Խ��Բĥڡ��̾��
99			my @uneditable = ( $whatsnew );
100			##############################
101			# ��Ѥ��ɽ��
102			# YukiWiki�Υ�󥯤�2��ढ�롣
103			#
104			# (1) WikiName (RecentChanges�Ȥ�FrontPage�Τ褦�ʤ��)
105			# (2) BracketName ([[��]]�Ȥ�[[�ȥ�֥륷�塼��]]�Τ褦�ʤ��)
106			#
107			# ��ե�JIS��2�Х��ܤˤ� ']' ��褦��Τǡ�
108			# ʸ��']'��1��¿��Ȥ�褦�ˤ��Ƥ��롣
109			#
110			my $WikiName = '([A-Z][a-z]+([A-Z][a-z]+)+)';
111			my $BracketName = '\[\[([^>\x09]+?\]?)\]\]';
112
113			# ��ʬ�Υ��
114			my $IconTag = ''; #<<"EOD";
115			#<a href="http://www.hyuki.com/yukiwiki/"><img src="$iconfile"
116			# border="0" width="80" height="80" alt="[YukiWiki]" /></a>
117			#EOD
118
119			require "$jcodelib";
120
121			&init_form($kanjicode);
122
123			if ($testing) {
124			%form = (
125			# 'mycmd' => 'write',
126			'mycmd' => 'read',
127			#'mycmd' => 'search',
128			#'mycmd' => 'edit',
129			'mymsg' => <<"EOD",
130			�Ϥ��ޤ��ơ�
131			��줫�餤��񤭹��ߤޤ��͡�
132			LinkPage�⸫�Ƥ��
133			TestPage�Ϥɤ��Ǥ��礦��
134			�ɤ��
135			http://www.hyuki.com/
136			[[��]]
137			EOD
138			'mypage' => '<��>',
139			'myword' => '��',
140			# '3C8C8B8FE98D5F3E' => '',
141			# 'TestPage' => '',
142			);
143			}
144			&main;
145			exit(0);
146
147			# �ᥤ��
148			sub main {
149			&normalize_form;
150			if ($dbmopen) {
151			if (!dbmopen(%database, $dbname, 0666)) {
152			&print_error("(dbmopen) $dbname ��ޤ��");
153			}
154			} else {
155			if (!tie(%database, "YukiWikiDB", $dbname)) {
156			&print_error("(tie error)");
157			}
158			}
159
160			# myspecial�б�
161			foreach (keys %form) {
162			if (/^myspecial_(.*)/) {
163			$form{mycmd} = $1;
164			last;
165			}
166			}
167
168			if ($form{mycmd} eq 'read') {
169			&do_read;
170			} elsif ($form{mycmd} eq 'preview') {
171			&do_preview;
172			} elsif ($form{mycmd} eq 'write') {
173			&do_write;
174			} elsif ($form{mycmd} eq 'edit') {
175			&do_edit;
176			} elsif ($form{mycmd} eq 'reedit') {
177			&do_reedit;
178			} elsif ($form{mycmd} eq 'search') {
179			&do_search;
180			} elsif ($form{mycmd} eq 'list') {
181			&do_list;
182			} elsif ($form{mycmd} eq 'diff') {
183			&do_diff;
184			} else {
185			$form{mypage} = $toppage;
186			&do_read;
187			}
188			if ($dbmopen) {
189			dbmclose(%database);
190			} else {
191			untie(%database);
192			}
193			}
194
195			# �ڡ��ɽ��
196			sub do_read {
197			my $page_name = $form{mypage};
198			my $percent_name = &encode_percent($page_name);
199			&print_header($page_name);
200			print qq\|<h1>$IconTag<a href="$thisurl?mycmd=search;myword=$percent_name">$page_name</a></h1>\n\|;
201			&print_toolbar($page_name);
202			print &convert_html(&get_page($page_name));
203			&print_footer;
204			}
205
206			# �ڡ��Խ�
207			sub do_edit {
208			if (not &is_editable($form{mypage})) {
209			# �Խ��Բĥڡ��ɽ��Τ�
210			&do_read;
211			return;
212			}
213			&editpage(&get_page($form{mypage}));
214			}
215
216			# �ڡ��κ��Խ�
217			sub do_reedit {
218			if (not &is_editable($form{mypage})) {
219			# �Խ��Բĥڡ��ɽ��Τ�
220			&do_read;
221			} else {
222			&editpage($form{mymsg});
223			}
224			}
225
226			sub editpage {
227			my $page_msg = shift;
228			my $page_name = $form{mypage};
229			my $digest = &calc_message_digest($page_msg);
230			&print_header($page_name);
231			print qq\|<h1>$IconTag${page_name}��Խ�</h1>\n\|;
232			&print_toolbar($page_name);
233			$page_msg = &escape($page_msg);
234			print <<"EOD";
235			<form action="$thisurl" method="post">
236			<!--<input type="hidden" name="mycmd" value="preview">-->
237			<input type="hidden" name="mypage" value="$page_name">
238			<input type="hidden" name="mydigest" value="$digest">
239			<textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$page_msg</textarea><br>
240			<input type="submit" name="myspecial_preview" value="��ǧ">
241			<input type="submit" name="myspecial_write" value="��ǧ��ѹ�">
242			</form>
243			<hr>
244			<h3>�ƥ��Υ롼��</h3>
245
246			<p>�̾��Ϥ��ʸ��Τޤ޽��Ϥ��ޤ��
247			�ʲ��Υ롼��˽��äƥƥ��Ԥ��Ȥ��Ǥ��ޤ��</p>
248
249			<ul>
250			<li>
251			��Ԥ��ζ��ڤ�Ȥʤ�ޤ��
252
253			<li>
254			HTML�Υ��Ͻ񤱤ޤ��
255
256			<li>
257			''��Ĵ''�Τ褦�˥��󥰥륯��ĤǤϤ��ȡ��Ĵ�ˤʤ�ޤ��
258
259			<li>
260			'''��˶�Ĵ'''�Τ褦�˥��󥰥륯��Ȼ��ĤǤϤ��ȡ��˶�Ĵ�ˤʤ�ޤ��
261
262			<li>
263			----�Τ褦�˥ޥ��ʥ�4�Ĥ��ȡ��ʿ��ˤʤ�ޤ��
264
265			<li>
266			*��Ƭ�˽񤯤��縫�Ф��ˤʤ�ޤ��
267
268			<li>
269			**��Ƭ�˽񤯤Ⱦ��Ф��ˤʤ�ޤ��
270
271			<li>
272			-��Ƭ�˽񤯤Ȳվ�񤭤ˤʤ�ޤ��- -- --- ��3��٥뤬��ޤ��
273
274			<li>
275			:��Ƭ�˽񤯤��Ѹ�Ȳ��ʸ��ޤ��
276
277			<pre>
278			:�Ѹ�1:��񤤤��ʸ1
279			:�Ѹ�2:��񤤤��ʸ2
280			:�Ѹ�3:��񤤤��ʸ3
281			</pre>
282
283			<li>
284			http://www.hyuki.com/ �Τ褦��URL�ϼ�ưŪ�˥�󥯤ˤʤ�ޤ��
285
286			<li>
287			YukiWiki�Τ褦��ʸ��ʸ��򺮤��ʸ��񤯤ȡ�
288			YukiWiki�Υڡ��̾�ˤʤ�ޤ��
289
290			<li>
291			[[��]]�Τ褦��Ť��礫�ä�[[ ]]�Ǥ��ä�ʸ��񤯤ȡ�
292			YukiWiki�Υڡ��̾�ˤʤ�ޤ��
293			�礫�ä��ˤϥ��ڡ��ޤ�ƤϤ��ޤ��
294			��ܸ��Ȥ��ޤ��
295
296			<li>
297			��Ƭ��ڡ��ǻϤޤäƤ��ȡ�
298			��Ѥ߰��ޤ��
299			�ץ��񤭹��Ȥ��˻Ȥ��Ǥ��
300
301			<li>
302			> ��Ƭ�˽񤯤ȡ�
303			��ʸ��񤱤ޤ��
304			> �ο��¿��ȥ��ǥ�Ȥ��ʤ�ޤ��3��٥�ޤǡˡ�
305
306			</ul>
307			EOD
308			&print_footer;
309			}
310
311			# �ڡ��θ��
312			sub do_search {
313			if ($form{myword}) {
314			&print_header('��');
315			print qq\|<h1>$IconTag$form{myword}�θ��</h1>\n\|;
316			&print_toolbar();
317			print qq\|<ul>\n\|;
318			my $count = 0;
319			foreach my $page_name (sort keys %database) { # sort��Τ�̵�Ť��
320			if ($database{$page_name} =~ /\Q$form{'myword'}\E/) {
321			my $encoded = &encode_percent($page_name);
322			print qq\|<li><a href="$thisurl?mycmd=read;mypage=$encoded">$page_name</a>\n\|;
323			$count++;
324			}
325			}
326			print qq\|</ul>\n\|;
327			if ($count > 0) {
328			print qq\|<p><strong>$form{myword}</strong>��ޤ�ڡ��ϡ��˼��<strong>$count</strong> �ڡ��Ǥ��</p>\n\|;
329			} else {
330			print qq\|<p><strong>$form{myword}</strong>��ޤ�ڡ��ϸ��Ĥ��ޤ��</p>\n\|;
331			}
332			} else {
333			&print_header('ñ�측��');
334			print qq\|<h1>$IconTagñ�측��</h1>\n\|;
335			&print_toolbar();
336			}
337			print <<"EOD";
338			<p>
339			<form action="$thisurl" method="post">
340			<input type="hidden" name="mycmd" value="search">
341			<input type="text" name="myword" size="20" value="$form{myword}">
342			<input type="submit" value="ñ�측��">
343			</form>
344			</p>
345			EOD
346			&print_footer;
347			}
348
349			# �ڡ��ΰ��
350			sub do_list {
351			&print_header('�ڡ��');
352			print qq\|<h1>$IconTag �ڡ��</h1>\n\|;
353			&print_toolbar();
354			print qq\|<ul>\n\|;
355			foreach my $page_name (sort keys %database) { # sort��Τ�̵�Ť��
356			my $encoded = &encode_percent($page_name);
357			print qq\|<li><a href="$thisurl?mycmd=read;mypage=$encoded">$page_name</a>\n\|
358			}
359			print qq\|</ul>\n\|;
360			&print_footer;
361			}
362
363			# �ץ�ӥ塼
364			sub do_preview {
365			my $page_name = $form{mypage};
366			my $escapedmsg = &escape($form{mymsg});
367			&print_header($page_name);
368			print qq\|<h1>$IconTag${page_name}�Υץ�ӥ塼</h1>\n\|;
369			&print_toolbar($page_name);
370			# local $percent_name = &encode_percent($page_name);
371			print qq\|<p>�ʲ��Υץ�ӥ塼��ǧ��ơ��褱��Хڡ��Υܥ��ǹ��Ƥ��</p>\n\|;
372			if ($form{mymsg}) {
373			print qq\|<table width="100%" bgcolor="$preview_color" ><tr><td>\n\|;
374			# print &convert_html($escapedmsg);
375			print &convert_html($form{mymsg});
376			print qq\|</td></tr></table>\n\|;
377			} else {
378			print qq\|<p>�ʥڡ��Ƥ϶��Ǥ��Ȥ��Υڡ��<strong>��</strong>��ޤ��</p>\n\|;
379			}
380			&print_preview_buttons($page_name, $escapedmsg, $form{mydigest});
381			&print_footer;
382			}
383
384			sub print_preview_buttons {
385			my ($page_name, $escapedmsg, $digest) = @_;
386			print <<"EOD";
387			<form action="$thisurl" method="post">
388			<textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$escapedmsg</textarea>
389			<br />
390			<input type="hidden" name="mypage" value="$page_name">
391			<input type="hidden" name="mydigest" value="$digest">
392			<input type="submit" name="myspecial_preview" value="��٥ץ�ӥ塼">
393			<input type="submit" name="myspecial_write" value="�ڡ��ι��">
394			</form>
395			EOD
396			}
397
398			# �񤭹��
399			sub do_write {
400			if (not &is_editable($form{mypage})) {
401			# �Խ��Բĥڡ��ɽ��Τ�
402			&do_read;
403			return;
404			}
405
406			my $page_name = $form{mypage};
407
408			# digest��Ȥäơ��ξ��ͥ��å�
409			my $original_digest = &calc_message_digest(&get_page($page_name));
410			if ($form{mydigest} ne $original_digest) {
411			&print_header($page_name);
412			print qq\|<h1>$IconTag${page_name}�ǡڹ��ξ��ۤ͡��ޤ��</h1>\n\|;
413			print <<"EOD";
414			<p>��ʤ��Υڡ��Խ��Ƥ��֤ˡ�
415			¾�οͤ�Ʊ��ڡ��򹹿��Ƥ��ޤä��褦�Ǥ��
416			</p><p>
417			�ʲ��ˡ��ʤ��Խ��ƥ��Ȥ��ޤ��Τǡ�
418			��ʤ��Խ��Ƥ��ʤ��褦�ˡ�
419			��ޤ��Ģ�ʤɤ˥��ԡ��ڡ��Ȥ��Ƥ��
420			</p><p>
421			��ԡ��ڡ��Ȥ��Ѥ�Ǥ��顢
422			�ǿ��Ƥ򸫤ƺ��Խ��ľ��Ƥ��
423			�ǿ��Ƥ�
424			<a target="_blank" href="$thisurl?mycmd=read;mypage=$form{mypage}">$form{mypage}</a>
425			�Ǹ��뤳�Ȥ��Ǥ��ޤ��
426			</p>
427			EOD
428			# &print_toolbar($page_name);
429			&print_preview_buttons($page_name, &escape($form{mymsg}), $form{mydigest});
430			&print_footer;
431			return;
432			}
433
434			# diff��
435			{
436			&opendiff;
437			my @msg1 = split(/\n/, &get_page($page_name));
438			my @msg2 = split(/\n/, $form{mymsg});
439			$msgrefA = \@msg1;
440			$msgrefB = \@msg2;
441			&diff_check;
442			$diffbase{$form{mypage}} = $diff_text;
443			$diff_text = '';
444			&closediff;
445			}
446
447			&print_header($page_name);
448			&set_page($page_name, $form{mymsg});
449			if ($form{mymsg}) {
450			print qq\|<h1>$IconTag${page_name}�򹹿��ޤ��</h1>\n\|;
451			&print_toolbar($page_name);
452			print &convert_html(&get_page($page_name));
453			} else {
454			print qq\|<h1>$IconTag${page_name}��ޤ��</h1>\n\|;
455			&print_toolbar($page_name);
456			print qq\|<p>${page_name}��ޤ��</p>\n\|;
457			}
458			&print_footer;
459			# ��줿�Τǥ��å��Ƥ��
460			if ($touchfile) {
461			open(FILE, "> $touchfile");
462			print FILE "\n";