/[pub]/suikawiki/script/wiki.cgi

Diff of /suikawiki/script/wiki.cgi

Parent Directory | Revision Log | View Patch Patch

-revision 1.8 by wakaba,
Sun Mar 24 00:51:52 2002 UTC
+revision 1.14 by wakaba,
Tue Apr  2 01:32:31 2002 UTC
 Line 1
  #!/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.
  # <hyuki@hyuki.com>
  # 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$
  ##############################
  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%; }
+ @import '/s/simpledoc';
- a { text-decoration: none; }
+ pre, dl, ul, ol, p, blockquote { line-height:120%;
- a:link { color: #0000FF; background-color: #FFFFFF; }
+ margin-bottom: 1em}
- a:visited { color: #9900CC; background-color: #FFFFFF; }
+ a.wiki .mark    {vertical-align: sub, color: GrayText}
- a:hover { text-decoration: underline; }
+ a { text-decoration: none; }
- EOD
+ a:link { color: #0000FF; background-color: #FFFFFF; }
- ##############################
+ a:visited { color: #9900CC; background-color: #FFFFFF; }
- # テキスト入力部分の大きさ
+ a:hover { text-decoration: underline; }
- my $cols = 80;
+ EOD
- my $rows = 20;
+ ##############################
- ##############################
+ # テキスト入力部分の大きさ
- my %form = ();
+ my $cols = 80;
- my %database = ();
+ my $rows = 20;
- my %diffbase = ();
+ ##############################
- my $diff_text = '';
+ my %form = ();
- my @diff_added = ();
+ my %database = ();
- my @diff_deleted = ();
+ my %diffbase = ();
- my $msgrefA;
+ my $diff_text = '';
- my $msgrefB;
+ my @diff_added = ();
- ##############################
+ my @diff_deleted = ();
- # 編集不可ページ名一覧
+ my $msgrefA;
- my @uneditable = ( $whatsnew );
+ my $msgrefB;
  ##############################
- # リンク用の正規表現
+ # 編集不可ページ名一覧
- # YukiWikiのリンクは2種類ある。
+ my @uneditable = ( $whatsnew );
- #
+ ##############################
- # (1) WikiName (RecentChangesとかFrontPageのようなもの)
+ # リンク用の正規表現
- # (2) BracketName ([[結城浩]]とか[[トラブルシュート]]のようなもの)
+ # YukiWikiのリンクは2種類ある。
  #
- # ※シフトJISの2バイト目には ']' が来うるので、
+ # (1) WikiName (RecentChangesとかFrontPageのようなもの)
- # 文字']'を1つ多くとるようにしている。
+ # (2) BracketName ([[結城浩]]とか[[トラブルシュート]]のようなもの)
  #
- my $WikiName = '([A-Z][a-z]+([A-Z][a-z]+)+)';
+ # ※シフトJISの2バイト目には ']' が来うるので、
- my $BracketName = '\[\[([^>\x09]+?\]?)\]\]';
+ # 文字']'を1つ多くとるようにしている。
+ #
- # アイコン部分のタグ
+ my $WikiName = '([A-Z][a-z]+([A-Z][a-z]+)+)';
- my $IconTag = ''; #<<"EOD";
+ my $BracketName = '\[\[([^>\x09]+?\]?)\]\]';
- #<a href="http://www.hyuki.com/yukiwiki/"><img src="$iconfile"
- # border="0" width="80" height="80" alt="[YukiWiki]" /></a>
+ # アイコン部分のタグ
- #EOD
+ my $IconTag = ''; #<<"EOD";
+ #<a href="http://www.hyuki.com/yukiwiki/"><img src="$iconfile"
- require "$jcodelib";
+ # border="0" width="80" height="80" alt="[YukiWiki]" /></a>
+ #EOD
- &init_form($kanjicode);
+ require "$jcodelib";
- if ($testing) {
-     %form = (
+ &init_form($kanjicode);
-         # 'mycmd' => 'write',
-         'mycmd' => 'read',
+ if ($testing) {
-         #'mycmd' => 'search',
+     %form = (
-         #'mycmd' => 'edit',
+         # 'mycmd' => 'write',
-         'mymsg' => <<"EOD",
+         'mycmd' => 'read',
- はじめまして。
+         #'mycmd' => 'search',
- これからいろいろ書き込みますね。
+         #'mycmd' => 'edit',
- LinkPageも見てください。
+         'mymsg' => <<"EOD",
- TestPageはどうでしょうか。
+ はじめまして。
- どうぞよろしく。
+ これからいろいろ書き込みますね。
- http://www.hyuki.com/
+ LinkPageも見てください。
- [[結城浩]]
+ TestPageはどうでしょうか。
- EOD
+ どうぞよろしく。
-         'mypage' => '<結城浩>',
+ http://www.hyuki.com/
-         'myword' => '結',
+ [[結城浩]]
-         # '3C8C8B8FE98D5F3E' => '',
+ EOD
-         # 'TestPage' => '',
+         'mypage' => '<結城浩>',
-     );
+         'myword' => '結',
- }
+         # '3C8C8B8FE98D5F3E' => '',
- &main;
+         # 'TestPage' => '',
- exit(0);
+     );
+ }
- # メイン
+ &main;
- sub main {
+ exit(0);
-     &normalize_form;
-     if ($dbmopen) {
+ # メイン
-         if (!dbmopen(%database, $dbname, 0666)) {
+ sub main {
-             &print_error("(dbmopen) $dbname が作れません。");
+     &normalize_form;
-         }
+     if ($dbmopen) {
-     } else {
+         if (!dbmopen(%database, $dbname, 0666)) {
-         if (!tie(%database, "YukiWikiDB", $dbname)) {
+             &print_error("(dbmopen) $dbname が作れません。");
-             &print_error("(tie error)");
+         }
-         }
+     } else {
-     }
+         if (!tie(%database, "YukiWikiDB", $dbname)) {
+             &print_error("(tie error)");
-     # myspecial対応
+         }
-     foreach (keys %form) {
+     }
-         if (/^myspecial_(.*)/) {
-             $form{mycmd} = $1;
+     # myspecial対応
-             last;
+     foreach (keys %form) {
-         }
+         if (/^myspecial_(.*)/) {
-     }
+             $form{mycmd} = $1;
+             last;
-     if ($form{mycmd} eq 'read') {
+         }
-         &do_read;
+     }
-     } elsif ($form{mycmd} eq 'preview') {
-         &do_preview;
+     if ($form{mycmd} eq 'read') {
-     } elsif ($form{mycmd} eq 'write') {
+         &do_read;
-         &do_write;
+     } elsif ($form{mycmd} eq 'preview') {
-     } elsif ($form{mycmd} eq 'edit') {
+         &do_preview;
-         &do_edit;
+     } elsif ($form{mycmd} eq 'write') {
-     } elsif ($form{mycmd} eq 'reedit') {
+         &do_write;
-         &do_reedit;
+     } elsif ($form{mycmd} eq 'edit') {
-     } elsif ($form{mycmd} eq 'search') {
+         &do_edit;
-         &do_search;
+     } elsif ($form{mycmd} eq 'reedit') {
-     } elsif ($form{mycmd} eq 'list') {
+         &do_reedit;
-         &do_list;
+     } elsif ($form{mycmd} eq 'search') {
-     } elsif ($form{mycmd} eq 'diff') {
+         &do_search;
-         &do_diff;
+     } elsif ($form{mycmd} eq 'list') {
-     } else {
+         &do_list;
-         $form{mypage} = $toppage;
+     } elsif ($form{mycmd} eq 'diff') {
-         &do_read;
+         &do_diff;
-     }
+     } else {
-     if ($dbmopen) {
+         $form{mypage} = $toppage;
-         dbmclose(%database);
+         &do_read;
-     } else {
+     }
-         untie(%database);
+     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);
+ sub do_read {
-     print qq|<h1>$IconTag<a href="$thisurl?mycmd=search;myword=$percent_name">$page_name</a></h1>\n|;
+     my $page_name = $form{mypage};
-     &print_toolbar($page_name);
+     my $percent_name = &encode_percent($page_name);
-     print &convert_html(&get_page($page_name));
+     &print_header($page_name);
-     &print_footer;
+     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;
+ sub do_edit {
-         return;
+     if (not &is_editable($form{mypage})) {
-     }
+         # 編集不可ページは表示のみ
-     &editpage(&get_page($form{mypage}));
+         &do_read;
- }
+         return;
+     }
- # ページの再編集
+     &editpage(&get_page($form{mypage}));
- sub do_reedit {
+ }
-     if (not &is_editable($form{mypage})) {
-         # 編集不可ページは表示のみ
+ # ページの再編集
-         &do_read;
+ sub do_reedit {
-     } else {
+     if (not &is_editable($form{mypage})) {
-         &editpage($form{mymsg});
+         # 編集不可ページは表示のみ
-     }
+         &do_read;
- }
+     } else {
+         &editpage($form{mymsg});
- sub editpage {
+     }
-     my $page_msg = shift;
+ }
-     my $page_name = $form{mypage};
-     my $digest = &calc_message_digest($page_msg);
+ sub editpage {
-     &print_header($page_name);
+     my $page_msg = shift;
-     print qq|<h1>$IconTag${page_name}の編集</h1>\n|;
+     my $page_name = $form{mypage};
-     &print_toolbar($page_name);
+     my $digest = &calc_message_digest($page_msg);
-     $page_msg = &escape($page_msg);
+     &print_header($page_name);
-     print <<"EOD";
+     print qq|<h1>$IconTag${page_name}の編集</h1>\n|;
- <form action="$thisurl" method="post">
+     &print_toolbar($page_name);
- <!--<input type="hidden" name="mycmd" value="preview">-->
+     $page_msg = &escape($page_msg);
- <input type="hidden" name="mypage" value="$page_name">
+     print <<"EOD";
- <input type="hidden" name="mydigest" value="$digest">
+ <form action="$thisurl" method="post">
- <textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$page_msg</textarea><br>
+ <!--<input type="hidden" name="mycmd" value="preview">-->
- <input type="submit" name="myspecial_preview" value="確認">
+ <input type="hidden" name="mypage" value="$page_name">
- <input type="submit" name="myspecial_write" value="確認せず変更">
+ <input type="hidden" name="mydigest" value="$digest">
- </form>
+ <textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$page_msg</textarea><br>
- <hr>
+ <input type="submit" name="myspecial_preview" value="確認">
- <h3>テキスト整形のルール</h3>
+ <input type="submit" name="myspecial_write" value="確認せず変更">
+ </form>
- <p>通常は入力した文字がそのまま出力されますが、
+ <hr>
- 以下のルールに従ってテキスト整形を行うことができます。</p>
+ <h3>テキスト整形のルール</h3>
- <ul>
+ <p>通常は入力した文字がそのまま出力されますが、
- <li>
+ 以下のルールに従ってテキスト整形を行うことができます。</p>
- 空行は段落の区切りとなります。
+ <ul>
  <li>
- HTMLのタグは書けません。
+ 空行は段落の区切りとなります。
  <li>
- ''強調''のようにシングルクォート二つではさむと、強調になります。
+ HTMLのタグは書けません。
  <li>
- '''更に強調'''のようにシングルクォート三つではさむと、更に強調になります。
+ ''強調''のようにシングルクォート二つではさむと、強調になります。
  <li>
- ----のようにマイナス4つがあると、水平線になります。
+ '''更に強調'''のようにシングルクォート三つではさむと、更に強調になります。
  <li>
- *を行頭に書くと大見出しになります。
+ ----のようにマイナス4つがあると、水平線になります。
  <li>
- **を行頭に書くと小見出しになります。
+ *を行頭に書くと大見出しになります。
  <li>
- -を行頭に書くと箇条書きになります。- -- --- の3レベルがあります。
+ **を行頭に書くと小見出しになります。
  <li>
- :を行頭に書くと用語と解説文が作れます。
+ -を行頭に書くと箇条書きになります。- -- --- の3レベルがあります。
- <pre>
+ <li>
-     :用語1:いろいろ書いた解説文1
+ :を行頭に書くと用語と解説文が作れます。
-     :用語2:いろいろ書いた解説文2
-     :用語3:いろいろ書いた解説文3
+ <pre>
- </pre>
+     :用語1:いろいろ書いた解説文1
+     :用語2:いろいろ書いた解説文2
- <li>
+     :用語3:いろいろ書いた解説文3
- http://www.hyuki.com/ のようなURLは自動的にリンクになります。
+ </pre>
  <li>
- YukiWikiのように大文字小文字を混ぜた英文字列を書くと、
+ http://www.hyuki.com/ のようなURLは自動的にリンクになります。
- YukiWikiのページ名になります。
+ <li>
- <li>
+ YukiWikiのように大文字小文字を混ぜた英文字列を書くと、
- [[結城浩]]のように二重の大かっこ[[ ]]でくくった文字列を書くと、
+ YukiWikiのページ名になります。
- YukiWikiのページ名になります。
- 大かっこの中にはスペースを含めてはいけません。
+ <li>
- 日本語も使えます。
+ [[結城浩]]のように二重の大かっこ[[ ]]でくくった文字列を書くと、
+ YukiWikiのページ名になります。
- <li>
+ 大かっこの中にはスペースを含めてはいけません。
- 行頭がスペースで始まっていると、
+ 日本語も使えます。
- その段落は整形済み扱われます。
- プログラムを書き込むときに使うと便利です。
+ <li>
+ 行頭がスペースで始まっていると、
- <li>
+ その段落は整形済み扱われます。
- &gt; を行頭に書くと、
+ プログラムを書き込むときに使うと便利です。
- 引用文が書けます。
- &gt; の数が多いとインデントが深くなります（3レベルまで）。
+ <li>
+ &gt; を行頭に書くと、
- </ul>
+ 引用文が書けます。
- EOD
+ &gt; の数が多いとインデントが深くなります（3レベルまで）。
-     &print_footer;
- }
+ </ul>
+ EOD
- # ページの検索
+     &print_footer;
- sub do_search {
+ }
-     if ($form{myword}) {
-         &print_header('検索結果');
+ # ページの検索
-         print qq|<h1>$IconTag$form{myword}の検索結果</h1>\n|;
+ sub do_search {
-         &print_toolbar();
+     if ($form{myword}) {
-         print qq|<ul>\n|;
+         &print_header('検索結果');
-         my $count = 0;
+         print qq|<h1>$IconTag$form{myword}の検索結果</h1>\n|;
-         foreach my $page_name (sort keys %database) {    # sortするのは無謀かな
+         &print_toolbar();
-             if ($database{$page_name} =~ /\Q$form{'myword'}\E/) {
+         print qq|<ul>\n|;
-                 my $encoded = &encode_percent($page_name);
+         my $count = 0;
-                 print qq|<li><a href="$thisurl?mycmd=read;mypage=$encoded">$page_name</a>\n|;
+         foreach my $page_name (sort keys %database) {    # sortするのは無謀かな
-                 $count++;
+             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|;
-         print qq|</ul>\n|;
+                 $count++;
-         if ($count > 0) {
+             }
-             print qq|<p><strong>$form{myword}</strong>を含むページは、上に示す<strong>$count</strong> ページです。</p>\n|;
+         }
-         } else {
+         print qq|</ul>\n|;
-             print qq|<p><strong>$form{myword}</strong>を含むページは見つかりません。</p>\n|;
+         if ($count > 0) {
-         }
+             print qq|<p><strong>$form{myword}</strong>を含むページは、上に示す<strong>$count</strong> ページです。</p>\n|;
-     } else {
+         } else {
-         &print_header('単語検索');
+             print qq|<p><strong>$form{myword}</strong>を含むページは見つかりません。</p>\n|;
-         print qq|<h1>$IconTag単語検索</h1>\n|;
+         }
-         &print_toolbar();
+     } else {
-     }
+         &print_header('単語検索');
-     print <<"EOD";
+         print qq|<h1>$IconTag単語検索</h1>\n|;
- <p>
+         &print_toolbar();
- <form action="$thisurl" method="post">
+     }
- <input type="hidden" name="mycmd" value="search">
+     print <<"EOD";
- <input type="text" name="myword" size="20" value="$form{myword}">
+ <p>
- <input type="submit" value="単語検索">
+ <form action="$thisurl" method="post">
- </form>
+ <input type="hidden" name="mycmd" value="search">
- </p>
+ <input type="text" name="myword" size="20" value="$form{myword}">
- EOD
+ <input type="submit" value="単語検索">
-     &print_footer;
+ </form>
- }
+ </p>
+ EOD
- # ページの一覧
+     &print_footer;
- sub do_list {
+ }
-     &print_header('ページ一覧');
-     print qq|<h1>$IconTag ページ一覧</h1>\n|;
+ # ページの一覧
-     &print_toolbar();
+ sub do_list {
-     print qq|<ul>\n|;
+     &print_header('ページ一覧');
-     foreach my $page_name (sort keys %database) {    # sortするのは無謀かな
+     print qq|<h1>$IconTag ページ一覧</h1>\n|;
-         my $encoded = &encode_percent($page_name);
+     &print_toolbar();
-         print qq|<li><a href="$thisurl?mycmd=read;mypage=$encoded">$page_name</a>\n|
+     print qq|<ul>\n|;
-     }
+     foreach my $page_name (sort keys %database) {    # sortするのは無謀かな
-     print qq|</ul>\n|;
+         my $encoded = &encode_percent($page_name);
-     &print_footer;
+         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);
+ sub do_preview {
-     print qq|<h1>$IconTag${page_name}のプレビュー</h1>\n|;
+     my $page_name = $form{mypage};
-     &print_toolbar($page_name);
+     my $escapedmsg = &escape($form{mymsg});
-     # local $percent_name = &encode_percent($page_name);
+     &print_header($page_name);
-     print qq|<p>以下のプレビューを確認して、よければページ下部のボタンで更新してください。</p>\n|;
+     print qq|<h1>$IconTag${page_name}のプレビュー</h1>\n|;
-     if ($form{mymsg}) {
+     &print_toolbar($page_name);
-         print qq|<table width="100%" bgcolor="$preview_color" ><tr><td>\n|;
+     # local $percent_name = &encode_percent($page_name);
-         # print &convert_html($escapedmsg);
+     print qq|<p>以下のプレビューを確認して、よければページ下部のボタンで更新してください。</p>\n|;
-         print &convert_html($form{mymsg});
+     if ($form{mymsg}) {
-         print qq|</td></tr></table>\n|;
+         print qq|<table width="100%" bgcolor="$preview_color" ><tr><td>\n|;
-     } else {
+         # print &convert_html($escapedmsg);
-         print qq|<p>（ページの内容は空です。更新するとこのページは<strong>削除</strong>されます。）</p>\n|;
+         print &convert_html($form{mymsg});
-     }
+         print qq|</td></tr></table>\n|;
-     &print_preview_buttons($page_name, $escapedmsg, $form{mydigest});
+     } else {
-     &print_footer;
+         print qq|<p>（ページの内容は空です。更新するとこのページは<strong>削除</strong>されます。）</p>\n|;
- }
+     }
+     &print_preview_buttons($page_name, $escapedmsg, $form{mydigest});
- sub print_preview_buttons {
+     &print_footer;
-     my ($page_name, $escapedmsg, $digest) = @_;
+ }
-     print <<"EOD";
-     <form action="$thisurl" method="post">
+ sub print_preview_buttons {
-     <textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$escapedmsg</textarea>
+     my ($page_name, $escapedmsg, $digest) = @_;
-     <br />
+     print <<"EOD";
-     <input type="hidden" name="mypage" value="$page_name">
+     <form action="$thisurl" method="post">
-     <input type="hidden" name="mydigest" value="$digest">
+     <textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$escapedmsg</textarea>
-     <input type="submit" name="myspecial_preview" value="再度プレビュー">
+     <br />
-     <input type="submit" name="myspecial_write" value="ページの更新">
+     <input type="hidden" name="mypage" value="$page_name">
-     </form>
+     <input type="hidden" name="mydigest" value="$digest">
- EOD
+     <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;
+ sub do_write {
-         return;
+     if (not &is_editable($form{mypage})) {
-     }
+         # 編集不可ページは表示のみ
+         &do_read;
-     my $page_name = $form{mypage};
+         return;
+     }
-     # digestを使って、更新の衝突チェック
-     my $original_digest = &calc_message_digest(&get_page($page_name));
+     my $page_name = $form{mypage};
-     if ($form{mydigest} ne $original_digest) {
-         &print_header($page_name);
+     # digestを使って、更新の衝突チェック
-         print qq|<h1>$IconTag${page_name}で【更新の衝突】が起きました</h1>\n|;
+     my $original_digest = &calc_message_digest(&get_page($page_name));
-         print <<"EOD";
+     if ($form{mydigest} ne $original_digest) {
- <p>あなたがこのページを編集している間に、
+         &print_header($page_name);
- 他の人が同じページを更新してしまったようです。
+         print qq|<h1>$IconTag${page_name}で【更新の衝突】が起きました</h1>\n|;
- </p><p>
+         print <<"EOD";
- 以下に、あなたの編集したテキストがありますので、
+ <p>あなたがこのページを編集している間に、
- あなたの編集内容が失われないように、
+ 他の人が同じページを更新してしまったようです。
- いますぐ、メモ帳などにコピー＆ペーストしてください。
+ </p><p>
- </p><p>
+ 以下に、あなたの編集したテキストがありますので、
- コピー＆ペーストが済んでから、
+ あなたの編集内容が失われないように、
- 最新の内容を見て再度編集し直してください。
+ いますぐ、メモ帳などにコピー＆ペーストしてください。
- 最新の内容は
+ </p><p>
- <a target="_blank" href="$thisurl?mycmd=read;mypage=$form{mypage}">$form{mypage}</a>
+ コピー＆ペーストが済んでから、
- で見ることができます。
+ 最新の内容を見て再度編集し直してください。
- </p>
+ 最新の内容は
- EOD
+ <a target="_blank" href="$thisurl?mycmd=read;mypage=$form{mypage}">$form{mypage}</a>
-         # &print_toolbar($page_name);
+ で見ることができます。
-         &print_preview_buttons($page_name, &escape($form{mymsg}), $form{mydigest});
+ </p>
-         &print_footer;
+ EOD
-         return;
+         # &print_toolbar($page_name);
-     }
+         &print_preview_buttons($page_name, &escape($form{mymsg}), $form{mydigest});
+         &print_footer;
-     # diff生成
+         return;
-     {
+     }
-         &opendiff;
-         my @msg1 = split(/\n/, &get_page($page_name));
+     # diff生成
-         my @msg2 = split(/\n/, $form{mymsg});
+     {
-         $msgrefA = \@msg1;
+         &opendiff;
-         $msgrefB = \@msg2;
+         my @msg1 = split(/\n/, &get_page($page_name));
-         &diff_check;
+         my @msg2 = split(/\n/, $form{mymsg});
-         $diffbase{$form{mypage}} = $diff_text;
+         $msgrefA = \@msg1;
-         $diff_text = '';
+         $msgrefB = \@msg2;
-         &closediff;
+         &diff_check;
-     }
+         $diffbase{$form{mypage}} = $diff_text;
+         $diff_text = '';
-     &print_header($page_name);
+         &closediff;
-     &set_page($page_name, $form{mymsg});
+     }
-     if ($form{mymsg}) {
-         print qq|<h1>$IconTag${page_name}を更新しました</h1>\n|;
+     &print_header($page_name);
-         &print_toolbar($page_name);
+     &set_page($page_name, $form{mymsg});
-         print &convert_html(&get_page($page_name));
+     if ($form{mymsg}) {
-     } else {
+         print qq|<h1>$IconTag${page_name}を更新しました</h1>\n|;
-         print qq|<h1>$IconTag${page_name}を削除しました</h1>\n|;
+         &print_toolbar($page_name);
-         &print_toolbar($page_name);
+         print &convert_html(&get_page($page_name));
-         print qq|<p>${page_name}を削除しました。</p>\n|;
+     } else {
-     }
+         print qq|<h1>$IconTag${page_name}を削除しました</h1>\n|;
-     &print_footer;
+         &print_toolbar($page_name);
-     # 更新されたのでタッチしておく。
+         print qq|<p>${page_name}を削除しました。</p>\n|;
-     if ($touchfile) {
+     }
-         open(FILE, "> $touchfile");
+     &print_footer;
-         print FILE "\n";
+     # 更新されたのでタッチしておく。
-         close(FILE);
+     if ($touchfile) {
-     }
+         open(FILE, "> $touchfile");
- }
+         print FILE "\n";
+         close(FILE);
- # ページの変更点
+     }
- sub do_diff {
+ }
-     if (not &is_editable($form{mypage})) {
-         # 編集不可ページは表示のみ
+ # ページの変更点
-         &do_read;
+ sub do_diff {
-         return;
+     if (not &is_editable($form{mypage})) {
-     }
+         # 編集不可ページは表示のみ
-     &opendiff;
+         &do_read;
-     &print_header($form{mypage} . 'の変更点');
+         return;
-     print qq|<h1>$IconTag <a href="$thisurl?mycmd=read&mypage=$form{mypage}">$form{mypage}</a>の変更点</h1>\n|;
+     }
-     &print_toolbar();
+     &opendiff;
-     $_ = &escape($diffbase{$form{mypage}});
+     &print_header($form{mypage} . 'の変更点');
-     print <<"EOD";
+     print qq|<h1>$IconTag <a href="$thisurl?mycmd=read&mypage=$form{mypage}">$form{mypage}</a>の変更点</h1>\n|;
- <ul>
+     &print_toolbar();
- <li>追加された行は<ins>青色</ins>です。
+     $_ = &escape($diffbase{$form{mypage}});
- <li>削除された行は<del>赤色</del>です。
+     print <<"EOD";
- <li><a href="$thisurl?mycmd=read;mypage=$form{mypage}">$form{mypage}</a>へ行く。
+ <ul>
- </ul>
+ <li>追加された行は<ins>青色</ins>です。
- <hr />
+ <li>削除された行は<del>赤色</del>です。
- EOD
+ <li><a href="$thisurl?mycmd=read;mypage=$form{mypage}">$form{mypage}</a>へ行く。
-     print qq|<pre>\n|;
+ </ul>
-     foreach (split(/\n/, $_)) {
+ <hr />
-         if (/^\+(.*)/) {
+ EOD
-             print qq|<ins>$1</ins>\n|;
+     print qq|<pre>\n|;
-         } elsif (/^\-(.*)/) {
+     foreach (split(/\n/, $_)) {
-             print qq|<del>$1</del>\n|;
+         if (/^\+(.*)/) {
-         } elsif (/^\=(.*)/) {
+             print qq|<ins>$1</ins>\n|;
-             print qq|$1\n|;
+         } elsif (/^\-(.*)/) {
-         } else {
+             print qq|<del>$1</del>\n|;
-             print qq|??? $_\n|;
+         } elsif (/^\=(.*)/) {
-         }
+             print qq|$1\n|;
-     }
+         } else {
-     print qq|</pre>\n|;
+             print qq|??? $_\n|;
-     &print_footer;
+         }
-     &closediff;
+     }
- }
+     print qq|</pre>\n|;
+     &print_footer;
- sub opendiff {
+     &closediff;
-     if ($dbmopen) {
+ }
-         if (!dbmopen(%diffbase, $diffdbname, 0666)) {
-             &print_error("(dbmopen) $diffdbname が作れません。");
+ sub opendiff {
-         }
+     if ($dbmopen) {
-     } else {
+         if (!dbmopen(%diffbase, $diffdbname, 0666)) {
-         if (!tie(%diffbase, "YukiWikiDB", $diffdbname)) {
+             &print_error("(dbmopen) $diffdbname が作れません。");
-             &print_error("(tie error)");
+         }
-         }
+     } else {
-     }
+         if (!tie(%diffbase, "YukiWikiDB", $diffdbname)) {
- }
+             &print_error("(tie error)");
+         }
- sub closediff {
+     }
-     if ($dbmopen) {
+ }
-         dbmclose(%diffbase);
-     } else {
+ sub closediff {
-         untie(%diffbase);
+     if ($dbmopen) {
-     }
+         dbmclose(%diffbase);
- }
+     } else {
+         untie(%diffbase);
- # フォームからの情報を連想配列 %form に入れる
+     }
- # &init_form('euc');
+ }
- sub init_form {
-     my ($charcode) = @_;
+ # フォームからの情報を連想配列 %form に入れる
-     my $query;
+ # &init_form('euc');
-     if ($ENV{REQUEST_METHOD} =~ /^post$/i) {
+ sub init_form {
-         read(STDIN, $query, $ENV{CONTENT_LENGTH});
+     my ($charcode) = @_;
-     } else {
+     my $query;
-         $query = $ENV{QUERY_STRING};
+     if ($ENV{REQUEST_METHOD} =~ /^post$/i) {
-     }
+         read(STDIN, $query, $ENV{CONTENT_LENGTH});
-     my @assocarray = split(/[&;]/, $query);
+     } else {
-     foreach my $assoc (@assocarray) {
+         $query = $ENV{QUERY_STRING};
-         my ($property, $value) = split(/=/, $assoc);
+     }
-         $value =~ tr/+/ /;
+     my @assocarray = split(/[&;]/, $query);
-         $value =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg;
+     foreach my $assoc (@assocarray) {
-         &jcode::convert(\$value, $charcode);
+         my ($property, $value) = split(/=/, $assoc);
-         $form{$property} = $value;
+         $value =~ tr/+/ /;
-     }
+         $value =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg;
- }
+         &jcode::convert(\$value, $charcode);
+         $form{$property} = $value;
- # エラーページを出力する
+     }
- sub print_error {
+ }
-     my ($msg) = @_;
-     &print_header('Error');
+ # エラーページを出力する
-     print "<h1>$IconTag$msg</h1></body></html>";
+ sub print_error {
-     exit(0);
+     my ($msg) = @_;
- }
+     &print_header('Error');
+     print "<h1>$IconTag$msg</h1></body></html>";
- sub escape {
+     exit(0);
-     my ($line) = shift;
+ }
-     $line =~ s|<|&lt;|g;
-     $line =~ s|>|&gt;|g;
+ sub escape {
-     $line =~ s|"|&quot;|g;
+     my ($line) = shift;
-     # $line =~ s|\&|&amp;|g;
+     $line =~ s|<|&lt;|g;
-     return $line;
+     $line =~ s|>|&gt;|g;
- }
+     $line =~ s|"|&quot;|g;
+     # $line =~ s|\&|&amp;|g;
- sub inline {
+     return $line;
-     my ($line) = shift;
+ }
-     $line = &escape($line);
-     $line =~ s|'''([^']+?)'''|<strong>$1</strong>|g;
+ sub inline {
-     $line =~ s|''([^']+?)''|<em>$1</em>|g;
+     my ($line) = shift;
-     $line =~ s!
+     $line = &escape($line);
-        (
+     $line =~ s|'''([^']+?)'''|<strong>$1</strong>|g;
-          (?:&lt;(?:mailto|http|https|ftp|urn):[\x21-\x7E]*)&gt;
+     $line =~ s|''([^']+?)''|<em>$1</em>|g;
-        #| (?:$WikiName)                         # LocalLinkLikeThis
+     $line =~ s!
-        | (?:$BracketName)                      # [[日本語リンク]]
+        (
-        )
+          (?:&lt;(?:mailto|http|https|ftp|urn):[\x21-\x7E]*)&gt;
-             !
+        #| (?:$WikiName)                         # LocalLinkLikeThis
-                 &make_link($1)
+        | (?:$BracketName)                      # [[日本語リンク]]
-             !gex;
+        )
-     return $line;
+             !
- }
+                 &make_link($1)
+             !gex;
- # ページのタイトルからページの内容を得る
+     return $line;
- sub get_page {
+ }
-     my $page_name = shift;
-     return $database{$page_name};
+ # ページのタイトルからページの内容を得る
- }
+ sub get_page {
+     my $page_name = shift;
- # ページの内容を与える
+     return $database{$page_name} || $database{'[['.$page_name.']]'};
- # &set_page($title, $txt)
+ }
- sub set_page {
-     # ページを更新する
+ # ページの内容を与える
-     my $title = $_[0];
+ # &set_page($title, $txt)
-     $database{$title} = $_[1];
+ sub set_page {
-     # 空ページなら削除する
+     # ページを更新する
-     unless ($database{$title}) {
+     my $title = $_[0];
-         delete $database{$title};
+     $database{$title} = $_[1];
-     }
+     # 空ページなら削除する
-     # RecentChangesを更新する
+     unless ($database{$title}) {
-     my $delim = ' - ';
+         delete $database{$title};
-     my @pages = split(/\n/, $database{$whatsnew});
+     }
-     my $datestr = &get_current_datestr;
+     # RecentChangesを更新する
-     unshift(@pages, qq|-$datestr$delim$title|);
+     my $delim = ' - ';
-     # 同一ページの更新は最新のもののみにし、
+     my @pages = split(/\n/, $database{$whatsnew});
-     # 存在しないページはスキップする。
+     my $datestr = &get_current_datestr;
-     my %count;
+     unshift(@pages, qq|-$datestr$delim$title|);
-     my @newpages;
+     # 同一ページの更新は最新のもののみにし、
-     foreach my $line (@pages) {
+     # 存在しないページはスキップする。
-         my ($prefix, $title) = split(/$delim/, $line);
+     my %count;
-         $count{$title}++;
+     my @newpages;
-         if ($count{$title} == 1 and exists($database{$title})) {
+     foreach my $line (@pages) {
-             push(@newpages, qq|$prefix - $title|);
+         my ($prefix, $title) = split(/$delim/, $line);
-         }
+         $count{$title}++;
-     }
+         if ($count{$title} == 1 and exists($database{$title})) {
-     # ここで本当に更新
+             push(@newpages, qq|$prefix - $title|);
-     $database{$whatsnew} = join("\n", splice(@newpages, 0, $maxnew));
+         }
- }
+     }
+     # ここで本当に更新
- # ページのヘッダを出力
+     $database{$whatsnew} = join("\n", splice(@newpages, 0, $maxnew));
- sub print_header {
+ }
-     my $title = shift;
-     print <<"EOD";
+ # ページのヘッダを出力
- Content-type: text/html
+ sub print_header {
+     my $title = shift;
- <html><head>
+     print <<"EOD";
- <title>$title</title>
+ Content-type: text/html; charset=${charset}
- <style type="text/css">
- $style
+ <html><head>
- </style>
+ <title>$title</title>
- </head>
+ <style type="text/css">
- <body>
+ $style
- EOD
+ </style>
- }
+ </head>
+ <body>
- # ツールバーを出力
+ EOD
- sub print_toolbar {
+ }
-     my $page_name = shift;
-     my $percent_name = &encode_percent($page_name);
+ # ツールバーを出力
-     my $editlink = '';
+ sub print_toolbar {
-     if ($page_name ne '' and &is_editable($page_name)) {
+     my $page_name = shift;
-         $editlink = <<"EOD";
+     my $percent_name = &encode_percent($page_name);
- <a href="$thisurl?mycmd=edit;mypage=$percent_name">編集</a> |
+     my $editlink = '';
- <a href="$thisurl?mycmd=diff;mypage=$percent_name">差分</a> |
+     if ($page_name ne '' and &is_editable($page_name)) {
- EOD
+         $editlink = <<"EOD";
-     }
+ <a href="$thisurl?mycmd=edit;mypage=$percent_name">編集</a> |
-     print <<"EOD";
+ <a href="$thisurl?mycmd=diff;mypage=$percent_name">差分</a> |
- <p>
+ EOD
-  [
+     }
- <a href="$thisurl?mycmd=read;mypage=$toppage">トップ</a> |
+     print <<"EOD";
- <a href="$thisurl?mycmd=list">一覧</a> |
+ <p>
- $editlink
+  [
- <a href="$thisurl?mycmd=search">単語検索</a> |
+ <a href="$thisurl?mycmd=read;mypage=$toppage">トップ</a> |
- <a href="$thisurl?mycmd=read;mypage=$whatsnew">最終更新</a>
+ <a href="$thisurl?mycmd=list">一覧</a> |
-  ]
+ $editlink
- </p>
+ <a href="$thisurl?mycmd=search">単語検索</a> |
- EOD
+ <a href="$thisurl?mycmd=read;mypage=$whatsnew">最近の更新</a>
- }
+  ]
+ </p>
- # ページのフッタを出力
+ EOD
- sub print_footer {
+ }
-     print <<"EOD";
- <address>
+ # ページのフッタを出力
- <a href="http://www.hyuki.com/yukiwiki/">YukiWiki</a> 1.6.6 Copyright (C) 2000,2001 by <a href="http://www.hyuki.com/">Hiroshi Yuki.</a>
+ sub print_footer {
- + <a href="$modifierlink">$modifier</a> ${version}.
+     print <<"EOD";
- [<a href="/" title="このサーバーの首頁">/</a>
+ <div class="navigation">
- <a href="/map" title="このサーバーの案内">地図</a>
+ [<a href="/" title="このサーバーの首頁">/</a>
- <a href="/search/" title="このサーバーの検索">検索</a>]
+ <a href="/map" title="このサーバーの案内">地図</a>
- </address>
+ <a href="/search/" title="このサーバーの検索">検索</a>]
- </body></html>
+ </div>
  EOD
- }
+   print <<'EOH';
+ <div class="update">
- # URLやページの名前からリンクを作る
+ <a href="http://www.hyuki.com/yukiwiki/">YukiWiki</a> 1.6.6 Copyright (C) 2000,2001 by <a href="http://www.hyuki.com/">Hiroshi Yuki.</a> ${version}
- sub make_link {
+ + <a href="$modifierlink">$modifier</a>.
-     my $name = shift;
+ <a href="/gate/cvs/wakaba/wiki/" title="CVS Repository">
-     $name =~ s/^&lt;(.*)&gt;$/$1/;
+ $Revision$ $Date$
-     $name =~ s/^\[\[(.*)\]\]$/$1/;
+ </a>
-     if ($name =~ /^(http|https|ftp).*?(\.png|\.jpeg|\.jpg)?$/) {
+ </div>
-         if ($2) {
+ </body></html>
-             return qq|<a href="$name"><img border="0" src="$name" /></a>|;
+ EOH
-         } else {
+ }
-             return qq|&lt;<a href="$name">$name</a>&gt;|;
-         }
+ # URLやページの名前からリンクを作る
-     } elsif ($name =~ /^mailto:(.*)/) {
+ sub make_link {
-         my $address = $1;
+     my $name = shift;
-         return qq|&lt;<a href="$name">$address</a>&gt;|;
+     $name =~ s/^&lt;(.*)&gt;$/$1/;
-     } elsif ($name =~ /^urn:[0-9A-Za-z_:-]+/) {
+     $name =~ s/^\[\[(.*)\]\]$/$1/;
-         return qq|&lt;<a href="/uri-res/N2L?${name}">$name</a>&gt;|;
+     if ($name =~ /^(http|https|ftp).*?(\.png|\.jpeg|\.jpg)?$/) {
-     } else {
+         if ($2) {
-       my $name2 = $name; $name2 =~ tr/\x20/-/;
+             return qq|<a href="$name"><img border="0" src="$name" /></a>|;
-       if ($database{$name2}) {
+         } else {
-         my $percent_name = &encode_percent($name2);
+             return qq|&lt;<a href="$name">$name</a>&gt;|;
-         return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name" class="wiki">$name</a>|;
+         }
-       } elsif ($database{'[['.$name2.']]'}) {
+     } elsif ($name =~ /^mailto:(.*)/) {
-         my $percent_name = &encode_percent('[['.$name2.']]');
+         my $address = $1;
-         return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name" class="wiki">$name</a>|;
+         return qq|&lt;<a href="$name">$address</a>&gt;|;
-       } else {
+     } elsif ($name =~ m#^urn:[0-9A-Za-z_:;/.-]+#) {
-         my $percent_name = &encode_percent($name2);
+         return qq|&lt;<a href="/uri-res/N2L?${name}">$name</a>&gt;|;
-         return qq|<a href="$thisurl?mycmd=edit;mypage=$percent_name" class="wiki newpage">$name?</a>|;
+     } else {
-       }
+       my $name2 = $name; $name2 =~ tr/\x20/-/;
-     }
+       if ($database{$name2}) {
- }
+         my $percent_name = &encode_percent($name2);
+         return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name" class="wiki">$name</a>|;
- # %xx の形式にエンコードする
+       } elsif ($database{'[['.$name2.']]'}) {
- # これは、
+         my $percent_name = &encode_percent('[['.$name2.']]');
- # http://www.hyuki.com/yukiwiki/yukiwiki.cgi?mycmd=read&mypage=%3C%8C%8B%8F%E9%8D_%3E
+         return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name" class="wiki">$name</a>|;
- # という形式のために使われる。
+       } else {
- # '<結城浩>' → '%3C%8C%8B%8F%E9%8D_%3E'
+         my $percent_name = &encode_percent($name2);
- sub encode_percent {
+         return qq|<a href="$thisurl?mycmd=edit;mypage=$percent_name" class="wiki newpage">$name<span class="mark">?</span></a>|;
-     my $name = shift;
+       }
-     my $encoded = '';
+     }
-     foreach my $ch (split(//, $name)) {
+ }
-         if ($ch =~ /[A-Za-z0-9_]/) {
-             $encoded .= $ch;
+ # %xx の形式にエンコードする
-         } else {
+ # これは、
-             $encoded .= '%' . sprintf("%02X", ord($ch));
+ # http://www.hyuki.com/yukiwiki/yukiwiki.cgi?mycmd=read&mypage=%3C%8C%8B%8F%E9%8D_%3E
-         }
+ # という形式のために使われる。
-     }
+ # '<結城浩>' → '%3C%8C%8B%8F%E9%8D_%3E'
-     return $encoded;
+ sub encode_percent {
- }
+     my $name = shift;
+     my $encoded = '';
- # テキスト本体をHTMLに変換する
+     foreach my $ch (split(//, $name)) {
- sub convert_html {
+         if ($ch =~ /[A-Za-z0-9_]/) {
-     my ($txt) = shift;
+             $encoded .= $ch;
-     my (@txt) = split(/\n/, $txt);
+         } else {
-     foreach (@txt) {
+             $encoded .= '%' . sprintf("%02X", ord($ch));
-         chomp;
+         }
-         if (/^\*\*(.*)/) {
+     }
-             push(@result, splice(@saved), '<h3>' . &inline($1) . '</h3>');
+     return $encoded;
-         } elsif (/^\*(.*)/) {
+ }
-             push(@result, splice(@saved), '<h2>' . &inline($1) . '</h2>');
-         } elsif (/^----/) {
+ # テキスト本体をHTMLに変換する
-             push(@result, splice(@saved), '<hr>');
+ sub convert_html {
-         } elsif (/^(-{1,3})(.*)/) {
+     my ($txt) = shift;
-             &back_push('ul', length($1));
+     my (@txt) = split(/\n/, $txt);
-             push(@result, '<li>' . &inline($2) . '</li>');
+     foreach (@txt) {
-         } elsif (/^:([^:]+):(.*)/) {
+         chomp;
-             &back_push('dl', 1);
+         if (/^\*\*\*\*\*(.*)/) {
-             push(@result, '<dt>' . &inline($1) . '</dt>', '<dd>' . &inline($2) . '</dd>');
+             push(@result, splice(@saved), '<h6>' . &inline($1) . '</h6>');
-         } elsif (/^(>{1,3})(.*)/) {
+         } elsif (/^\*\*\*\*(.*)/) {
-             &back_push('blockquote', length($1));
+             push(@result, splice(@saved), '<h5>' . &inline($1) . '</h5>');
-             push(@result, &inline($2));
+         } elsif (/^\*\*\*(.*)/) {
-         } elsif (/^\s*$/) {
+             push(@result, splice(@saved), '<h4>' . &inline($1) . '</h4>');
-             push(@result, splice(@saved));
+         } elsif (/^\*\*(.*)/) {
-             unshift(@saved, "</p>");
+             push(@result, splice(@saved), '<h3>' . &inline($1) . '</h3>');
-             push(@result, "<p>");
+         } elsif (/^\*(.*)/) {
-         } elsif (/^(\s+.*)$/) {
+             push(@result, splice(@saved), '<h2>' . &inline($1) . '</h2>');
-             &back_push('pre', 1);
+         } elsif (/^----/) {
-             push(@result, &escape($1)); # Not &inline, but &escape
+             push(@result, splice(@saved), '<hr>');
-         } else {
+         } elsif (/^(-{1,3})(.*)/) {
-             push(@result, &inline($_));
+             &back_push('ul', length($1));
-         }
+             push(@result, '<li>' . &inline($2) . '</li>');
-     }
+         } elsif (/^(={1,3})(.*)/) {
-     push(@result, splice(@saved));
+             &back_push('ol', length($1));
-     return join("\n", @result);
+             push(@result, '<li>' . &inline($2) . '</li>');
- }
+         } elsif (/^:([^:]+):(.*)/) {
+             &back_push('dl', 1);
- # &back_push($tag, $count)
+             push(@result, '<dt>' . &inline($1) . '</dt>', '<dd>' . &inline($2) . '</dd>');
- # $tagのタグを$levelレベルまで詰める。
+         } elsif (/^(>{1,3})(.*)/) {
- sub back_push {
+             &back_push('blockquote', length($1));
-     my ($tag, $level) = @_;
+             push(@result, &inline($2));
-     while (@saved > $level) {
+         } elsif (/^\s*$/) {
-         push(@result, shift(@saved));
+             push(@result, splice(@saved));
-     }
+             unshift(@saved, "</p>");
-     if ($saved[0] ne "</$tag>") {
+             push(@result, "<p>");
-         push(@result, splice(@saved));
+         } elsif (/^(\s+.*)$/) {
-     }
+             &back_push('pre', 1);
-     while (@saved < $level) {
+             #push(@result, &escape($1)); # Not &inline, but &escape
-         unshift(@saved, "</$tag>");
+             push(@result, &inline($1)); # Not &inline, but &escape
-         push(@result, "<$tag>");
+         } else {
-     }
+             push(@result, &inline($_));
- }
+         }
+     }
- # 編集可能ページか？
+     push(@result, splice(@saved));
- sub is_editable {
+     return join("\n", @result);
-     my ($pagename) = @_;
+ }
-     foreach (@uneditable) {
-         if ($pagename eq $_) {
+ # &back_push($tag, $count)
-             return 0;
+ # $tagのタグを$levelレベルまで詰める。
-         }
+ sub back_push {
-     }
+     my ($tag, $level) = @_;
-     if (&is_valid_name($pagename)) {
+     while (@saved > $level) {
-         return 1;
+         push(@result, shift(@saved));
      }
-     return 0;
+     if ($saved[0] ne "</$tag>") {
- }
+         push(@result, splice(@saved));
+     }
- # Validな名前か？
+     while (@saved < $level) {
- sub is_valid_name {
+         unshift(@saved, "</$tag>");
-     my ($pagename) = @_;
+         push(@result, "<$tag>");
-     if ($pagename =~ /^$WikiName$/) {
+     }
-         return 1;
+ }
-     } elsif ($pagename =~ /^$BracketName$/) {
-         return 1;
+ # 編集可能ページか？
-     } else {
+ sub is_editable {return 1;
-         return 0;
+ ## TODO: ...
-     }
+     my ($pagename) = @_;
- }
+     foreach (@uneditable) {
+         if ($pagename eq $_) {
- # 現在時刻の文字列を得る
+             return 0;
- sub get_current_datestr {
+         }
-     my (@wdays) = ( "日", "月", "火", "水", "木", "金", "土" );
+     }
-     my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
+     if (&is_valid_name($pagename)) {
-     return sprintf("%4d-%02d-%02d (%s) %02d:%02d:%02d",
+         return 1;
-         $year + 1900, $mon + 1, $mday, $wdays[$wday], $hour, $min, $sec);
+     }
- }
+     return 0;
+ }
- # URL?SomePageや、
- # URL?[[結城浩]]の形式だった場合、(not yet)
+ # Validな名前か?
- # 強制的にmycmdをreadにして$formの内容を設定する。
+ sub is_valid_name {
- sub normalize_form {
+     my ($pagename) = @_;
-     foreach my $key (keys %form) {
+     if ($pagename =~ /^$WikiName$/) {
-         if ($key =~ /^$WikiName$/) {
+         return 1;
-             $form{mycmd} = 'read';
+     } elsif ($pagename =~ /^$BracketName$/) {
-             $form{mypage} = $1;
+         return 1;
-             last;
+     } else {
-         } elsif ($key =~ /^$BracketName$/) {
+         return 0;
-             $form{mycmd} = 'read';
+     }
-             $form{mypage} = $1;
+ }
-             last;
-         }
+ # 現在時刻の文字列を得る
-     }
+ sub get_current_datestr {
- }
+     my (@wdays) = ( "日", "月", "火", "水", "木", "金", "土" );
+     my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
- # 変換テストを行なうときのサンプル
+     return sprintf("%4d-%02d-%02d (%s) %02d:%02d:%02d",
- sub print_sample {
+         $year + 1900, $mon + 1, $mday, $wdays[$wday], $hour, $min, $sec);
-     my $txt = &convert_html(<<"EOD");
+ }
- *大見出し1
- **小見出し1-1
+ # URL?SomePageや、
- -項目1
+ # URL?[[結城浩]]の形式だった場合、(not yet)
- -項目2
+ # 強制的にmycmdをreadにして$formの内容を設定する。
- -項目3
+ sub normalize_form {
- 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
+     foreach my $key (keys %form) {
- 段落1段落1段落1段落1段落1段落''強調''1段落1段落1段落1段落1段落1
+         if ($key =~ /^$WikiName$/) {
- 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
+             $form{mycmd} = 'read';
+             $form{mypage} = $1;
- 段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
+             last;
- 段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
+         } elsif ($key =~ /^$BracketName$/) {
- 段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
+             $form{mycmd} = 'read';
- **小見出し1-2
+             $form{mypage} = $1;
- :用語1:いろいろ書いた解説文1と''強調単語''
+             last;
- 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
+         }
- 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
+     }
- 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
+ }
- :用語2:いろいろ書いた解説文2
- :用語3:いろいろ書いた解説文3
+ # 変換テストを行なうときのサンプル
- ----
+ sub print_sample {
- *大見出し2
+     my $txt = &convert_html(<<"EOD");
- **小見出し2-1
+ *大見出し1
- &lt;http://suika.fam.cx/&gt;
+ **小見出し1-1
- **小見出し2-2
+ -項目1
+ -項目2
- [[結城浩]]
+ -項目3
+ 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
- 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
+ 段落1段落1段落1段落1段落1段落''強調''1段落1段落1段落1段落1段落1
- 段落1段落1段落1段落'''強調'''1段落1段落1段落1段落1段落1段落1段落1
+ 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
- 段落1段落1段落1段落'''''強い強調'''''1段落1段落1段落1段落1段落1段落1段落1段落1
- >段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
+ 段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
- >段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
+ 段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
- >段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
+ 段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
+ **小見出し1-2
- レベル0レベル0レベル0レベル0レベル0レベル0
+ :用語1:いろいろ書いた解説文1と''強調単語''
+ 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
- >レベル1
+ 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
- >レベル1
+ 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
- >レベル1
+ :用語2:いろいろ書いた解説文2
- >>レベル2
+ :用語3:いろいろ書いた解説文3
- >>レベル2
+ ----
- >>レベル2
+ *大見出し2
- >>>レベル3
+ **小見出し2-1
- -はろ1
+ &lt;http://suika.fam.cx/&gt;
- --はろ2
+ **小見出し2-2
- ろろろろ2
- ---はろ3
+ [[結城浩]]
- --はろ2
- ---はろ3
+ 段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1
- --はろ2
+ 段落1段落1段落1段落'''強調'''1段落1段落1段落1段落1段落1段落1段落1
- ---はろ3
+ 段落1段落1段落1段落'''''強い強調'''''1段落1段落1段落1段落1段落1段落1段落1段落1
- >>>レベル3
+ >段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
- >>>レベル3
+ >段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
- >>>レベル3
+ >段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2
- EOD
-     print $txt;
+ レベル0レベル0レベル0レベル0レベル0レベル0
-     exit;
- }
+ >レベル1
+ >レベル1
- sub diff_check {
+ >レベル1
-     traverse_sequences(
+ >>レベル2
-             $msgrefA, $msgrefB,
+ >>レベル2
-             {
+ >>レベル2
-                 MATCH => \&df_match,
+ >>>レベル3
-                 DISCARD_A => \&df_delete,
+ -はろ1
-                 DISCARD_B => \&df_add,
+ --はろ2
-             }
+ ろろろろ2
-     );
+ ---はろ3
-     &diff_flush;
+ --はろ2
- }
+ ---はろ3
+ --はろ2
- sub diff_flush {
+ ---はろ3
-     $diff_text .= join('', map { "-$_\n" } splice(@diff_deleted));
+ >>>レベル3
-     $diff_text .= join('', map { "+$_\n" } splice(@diff_added));
+ >>>レベル3
- }
+ >>>レベル3
+ EOD
- sub df_match {
+     print $txt;
-     my ($a, $b) = @_;
+     exit;
-     &diff_flush;
+ }
-     $diff_text .= "=$msgrefA->[$a]\n";
- }
+ sub diff_check {
+     traverse_sequences(
- sub df_delete {
+             $msgrefA, $msgrefB,
-     my ($a, $b) = @_;
+             {
-     push(@diff_deleted, $msgrefA->[$a]);
+                 MATCH => \&df_match,
- }
+                 DISCARD_A => \&df_delete,
+                 DISCARD_B => \&df_add,
- sub df_add {
+             }
-     my ($a, $b) = @_;
+     );
-     push(@diff_added, $msgrefB->[$b]);
+     &diff_flush;
  }
- sub calc_message_digest {   # You have to use MD5...
+ sub diff_flush {
-     my $text = shift;
+     $diff_text .= join('', map { "-$_\n" } splice(@diff_deleted));
-     my @text = split(//, $text);
+     $diff_text .= join('', map { "+$_\n" } splice(@diff_added));
-     my $len = length($text);
+ }
-     my $checksum = 0;
-     foreach (@text) {
+ sub df_match {
-         $checksum += ord($_);
+     my ($a, $b) = @_;
-         $checksum = ($checksum * 2) % 65536 + (($checksum & 32768) ? 1 : 0); # 16bit rotate
+     &diff_flush;
-     }
+     $diff_text .= "=$msgrefA->[$a]\n";
-     return "$len:$checksum";
+ }
- }
+ sub df_delete {
- # Definition of YukiWikiDB
+     my ($a, $b) = @_;
- package YukiWikiDB;
+     push(@diff_deleted, $msgrefA->[$a]);
+ }
- my $debug = 1;
+ sub df_add {
- # Constructor
+     my ($a, $b) = @_;
- sub new {
+     push(@diff_added, $msgrefB->[$b]);
-     return shift->TIEHASH(@_);
+ }
- }
+ sub calc_message_digest {   # You have to use MD5...
- # tying
+     my $text = shift;
- sub TIEHASH {
+     my @text = split(//, $text);
-     my ($class, $dbname) = @_;
+     my $len = length($text);
-     my $self = {
+     my $checksum = 0;
-         dir => $dbname,
+     foreach (@text) {
-         keys => [],
+         $checksum += ord($_);
-     };
+         $checksum = ($checksum * 2) % 65536 + (($checksum & 32768) ? 1 : 0); # 16bit rotate
-     if (not -d $self->{dir}) {
+     }
-         if (!mkdir($self->{dir}, 0777)) {
+     return "$len:$checksum";
-             print "mkdir(" . $self->{dir} . ") fail\n" if ($debug);
+ }
-             return undef;
-         }
+ # Definition of YukiWikiDB
-     }
+ package YukiWikiDB;
-     return bless($self, $class);
- }
+ my $debug = 1;
- # Store
+ # Constructor
- sub STORE {
+ sub new {
-     my ($self, $key, $val) = @_;
+     return shift->TIEHASH(@_);
-     my $file = &make_filename($self, $key);
+ }
-     if (open(FILE,"> $file")) {
-         binmode(FILE);
+ # tying
-         print FILE $val;
+ sub TIEHASH {
-         close(FILE);
+     my ($class, $dbname) = @_;
-         return $self->{$key} = $val;
+     my $self = {
-     } else {
+         dir => $dbname,
-         print "$file create error.";
+         keys => [],
-     }
+     };
- }
+     if (not -d $self->{dir}) {
+         if (!mkdir($self->{dir}, 0777)) {
- # Fetch
+             print "mkdir(" . $self->{dir} . ") fail\n" if ($debug);
- sub FETCH {
+             return undef;
-     my ($self, $key) = @_;
+         }
-     my $file = &make_filename($self, $key);
+     }
-     if (open(FILE, $file)) {
+     return bless($self, $class);
-         local $/;
+ }
-         $self->{$key} = <FILE>;
-         close(FILE);
+ # Store
-     }
+ sub STORE {
-     return $self->{$key};
+     my ($self, $key, $val) = @_;
- }
+     my $file = &make_filename($self, $key);
+     if (open(FILE,"> $file")) {
- # Exists
+         binmode(FILE);
- sub EXISTS {
+         print FILE $val;
-     my ($self, $key) = @_;
+         close(FILE);
-     my $file = &make_filename($self, $key);
+         return $self->{$key} = $val;
-     return -e($file);
+     } else {
- }
+         print "$file create error.";
+     }
- # Delete
+ }
- sub DELETE {
-     my ($self, $key) = @_;
+ # Fetch
-     my $file = &make_filename($self, $key);
+ sub FETCH {
-     unlink $file;
+     my ($self, $key) = @_;
-     return delete $self->{$key};
+     my $file = &make_filename($self, $key);
- }
+     if (open(FILE, $file)) {
+         local $/;
- sub FIRSTKEY {
+         $self->{$key} = <FILE>;
-     my ($self) = @_;
+         close(FILE);
-     opendir(DIR, $self->{dir}) or die $self->{dir};
+     }
-     @{$self->{keys}} = grep /\.txt$/, readdir(DIR);
+     return $self->{$key};
-     foreach my $name (@{$self->{keys}}) {
+ }
-         $name =~ s/\.txt$//;
-         $name =~ s/[0-9A-F][0-9A-F]/pack("C", hex($&))/eg;
+ # Exists
-     }
+ sub EXISTS {
-     return shift @{$self->{keys}};
+     my ($self, $key) = @_;
- }
+     my $file = &make_filename($self, $key);
+     return -e($file);
- sub NEXTKEY {
+ }
-     my ($self) = @_;
-     return shift @{$self->{keys}};
+ # Delete
- }
+ sub DELETE {
+     my ($self, $key) = @_;
- sub make_filename {
+     my $file = &make_filename($self, $key);
-     my ($self, $key) = @_;
+     unlink $file;
-     my $enkey = '';
+     return delete $self->{$key};
-     foreach my $ch (split(//, $key)) {
+ }
-         $enkey .= sprintf("%02X", ord($ch));
-     }
+ sub FIRSTKEY {
-     return $self->{dir} . "/$enkey.txt";
+     my ($self) = @_;
- }
+     opendir(DIR, $self->{dir}) or die $self->{dir};
- __END__
+     @{$self->{keys}} = grep /\.txt$/, readdir(DIR);
+     foreach my $name (@{$self->{keys}}) {
- =head1 NAME
+         $name =~ s/\.txt$//;
+         $name =~ s/[0-9A-F][0-9A-F]/pack("C", hex($&))/eg;
- YukiWiki - 自由にページを追加・削除・編集できるWebページ構築CGI
+     }
+     return shift @{$self->{keys}};
-     Copyright (C) 2000,2001 by Hiroshi Yuki.
+ }
-     結城浩 <hyuki@hyuki.com>
-     http://www.hyuki.com/
+ sub NEXTKEY {
-     http://www.hyuki.com/yukiwiki/
+     my ($self) = @_;
+     return shift @{$self->{keys}};
- =head1 SYNOPSIS
+ }
-     http://www.hyuki.com/yukiwiki/yukiwiki.cgi
+ sub make_filename {
+     my ($self, $key) = @_;
- =head1 DESCRIPTION
+     my $enkey = '';
+     foreach my $ch (split(//, $key)) {
- YukiWiki（結城ウィキィ）は参加者が自由にページを追加・削除・編集できる
+         $enkey .= sprintf("%02X", ord($ch));
- 不思議なWebページ群を作るCGIです。
+     }
- Webで動作する掲示板とちょっと似ていますが、
+     return $self->{dir} . "/$enkey.txt";
- Web掲示板が単にメッセージを追加するだけなのに対して、
+ }
- YukiWikiは、Webページ全体を自由に変更することができます。
+ __END__
- YukiWikiは、Cunningham & CunninghamのWikiWikiWebの
+ =head1 NAME
- 仕様を参考にして独自に作られました。
+ YukiWiki - 自由にページを追加・削除・編集できるWebページ構築CGI
- YukiWikiはPerlで書かれたCGIスクリプトとして実現されていますので、
- Perlが動作するWebサーバならば比較的容易に設置できます。
+     Copyright (C) 2000,2001 by Hiroshi Yuki.
+     結城浩 <hyuki@hyuki.com>
- あとはdbmopenが使える環境ならば設置できます(Version 1.5.0以降ならdbmopenが使えなくても設置できます)。
+     http://www.hyuki.com/
+     http://www.hyuki.com/yukiwiki/
- YukiWikiはフリーソフトです。
+ =head1 SYNOPSIS
- ご自由にお使いください。
+     http://www.hyuki.com/yukiwiki/yukiwiki.cgi
- =head1 設置方法
+ =head1 DESCRIPTION
- =head2 入手
+ YukiWiki（結城ウィキィ）は参加者が自由にページを追加・削除・編集できる
- YukiWikiの最新版は、
+ 不思議なWebページ群を作るCGIです。
- http://www.hyuki.com/yukiwiki/
+ Webで動作する掲示板とちょっと似ていますが、
- から入手できます。
+ Web掲示板が単にメッセージを追加するだけなのに対して、
+ YukiWikiは、Webページ全体を自由に変更することができます。
- =head2 ファイル一覧
+ YukiWikiは、Cunningham & CunninghamのWikiWikiWebの
-     readme.txt      ドキュメント
+ 仕様を参考にして独自に作られました。
-     yukiwiki.cgi    YukiWiki本体
-     yukiwiki.gif    ロゴ（カラー版）
+ YukiWikiはPerlで書かれたCGIスクリプトとして実現されていますので、
-     yukimono.gif    ロゴ（モノクロ版）
+ Perlが動作するWebサーバならば比較的容易に設置できます。
-     jcode.pl        漢字コードライブラリ
+ あとはdbmopenが使える環境ならば設置できます(Version 1.5.0以降ならdbmopenが使えなくても設置できます)。
- =head2 インストール
- =over 4
+ YukiWikiはフリーソフトです。
+ ご自由にお使いください。
- =item 1.
+ =head1 設置方法
- アーカイブを解く。
+ =head2 入手
- =item 2.
+ YukiWikiの最新版は、
- yukiwiki.cgiのはじめの方にある設定を確認します。
+ http://www.hyuki.com/yukiwiki/
- 通常は何もしなくてよいが、
+ から入手できます。
- はじめは$touchfileを''にした方がよいでしょう。
+ =head2 ファイル一覧
- =item 3.
+     readme.txt      ドキュメント
- yukiwiki.cgiとjcode.plを同じところに設置します。
+     yukiwiki.cgi    YukiWiki本体
+     yukiwiki.gif    ロゴ（カラー版）
- =item 4.
+     yukimono.gif    ロゴ（モノクロ版）
+     jcode.pl        漢字コードライブラリ
- サイズ0のyukiwiki.dbというファイルを設置します。
- （Perlシステムによってはyukiwiki.pag, yukiwiki.dir）
+ =head2 インストール
- =item 5.
+ =over 4
- yukiwiki.cgiにブラウザからアクセスします。
+ =item 1.
- =back
+ アーカイブを解く。
- =head2 パーミッション
+ =item 2.
-         ファイル        パーミッション      転送モード
+ yukiwiki.cgiのはじめの方にある設定を確認します。
-         yukiwiki.cgi    755                 ASCII
+ 通常は何もしなくてよいが、
-         yukiwiki.gif    644                 BINARY
+ はじめは$touchfileを''にした方がよいでしょう。
-         yukimono.gif    644                 BINARY
-         jcode.pl        644                 ASCII
+ =item 3.
-     $dbmopen = 1; にした場合:
+ yukiwiki.cgiとjcode.plを同じところに設置します。
-         yukiwiki.db     666                 BINARY
-         (yukiwiki.pag, yukiwiki.dirの場合もあり）
+ =item 4.
-     $dbmopen = 0; にした場合: (カレントディレクトリを777にしておく)
+ サイズ0のyukiwiki.dbというファイルを設置します。
-         .               777                 (転送しない)
+ （Perlシステムによってはyukiwiki.pag, yukiwiki.dir）
- =head1 データのバックアップ方法
+ =item 5.
- $dbmopen = 1;の場合は、
+ yukiwiki.cgiにブラウザからアクセスします。
- データはすべてyukiwiki.db(.dir, .pag)に入る。
- これをバックアップすればよい。
+ =back
- $dbmopen = 0;の場合は、
+ =head2 パーミッション
- yukiwikiというディレクトリができるので、
- これ以下をバックアップすればよい。
+         ファイル        パーミッション      転送モード
+         yukiwiki.cgi    755                 ASCII
- =head1 新しいページの作り方
+         yukiwiki.gif    644                 BINARY
+         yukimono.gif    644                 BINARY
- =over 4
+         jcode.pl        644                 ASCII
- =item 1.
+     $dbmopen = 1; にした場合:
+         yukiwiki.db     666                 BINARY
- まず、適当なページ（例えばFrontPage）を選び、
+         (yukiwiki.pag, yukiwiki.dirの場合もあり）
- ページの下にある「編集」リンクをたどります。
+     $dbmopen = 0; にした場合: (カレントディレクトリを777にしておく)
- =item 2.
+         .               777                 (転送しない)
- するとテキスト入力ができる状態になるので、
+ =head1 データのバックアップ方法
- そこにNewPageのような単語
- （大文字小文字混在している英文字列）
+ $dbmopen = 1;の場合は、
- を書いて「保存」します。
+ データはすべてyukiwiki.db(.dir, .pag)に入る。
+ これをバックアップすればよい。
- =item 3.
+ $dbmopen = 0;の場合は、
- 保存すると、FrontPageのページが書き換わり、
+ yukiwikiというディレクトリができるので、
- あなたが書いたNewPageという文字列の後ろに ? というリンクが表示されます。
+ これ以下をバックアップすればよい。
- この ? はそのページがまだ存在しないことを示す印です。
+ =head1 新しいページの作り方
- =item 4.
+ =over 4
- その ? をクリックすると新しいページNewPageができますので、
- あなたの好きな文章をその新しいページに書いて保存します。
+ =item 1.
- =item 5.
+ まず、適当なページ（例えばFrontPage）を選び、
+ ページの下にある「編集」リンクをたどります。
- NewPageページができるとFrontPageの ? は消えて、リンクとなります。
+ =item 2.
- =back
+ するとテキスト入力ができる状態になるので、
- =head1 テキスト整形のルール
+ そこにNewPageのような単語
+ （大文字小文字混在している英文字列）
- =over 4
+ を書いて「保存」します。
- =item *
+ =item 3.
- 連続した複数行はフィルされて表示されます。
+ 保存すると、FrontPageのページが書き換わり、
+ あなたが書いたNewPageという文字列の後ろに ? というリンクが表示されます。
- =item *
+ この ? はそのページがまだ存在しないことを示す印です。
- 空行は段落C<< <p> >>の区切りとなります。
+ =item 4.
- =item *
+ その ? をクリックすると新しいページNewPageができますので、
+ あなたの好きな文章をその新しいページに書いて保存します。
- HTMLのタグは書けません。
+ =item 5.
- =item *
+ NewPageページができるとFrontPageの ? は消えて、リンクとなります。
- B<''ボールド''>のようにシングルクォート二つではさむと、
- ボールドC<< <b> >>になります。
+ =back
- =item *
+ =head1 テキスト整形のルール
- B<'''イタリック'''>のようにシングルクォート三つではさむと、
+ =over 4
- イタリックC<< <i> >>になります。
+ =item *
- =item *
+ 連続した複数行はフィルされて表示されます。
- B<---->のようにマイナス4つがあると、
- 水平線C<< <hr> >>になります。
+ =item *
- =item *
+ 空行は段落C<< <p> >>の区切りとなります。
- 行をB<*>ではじめると、
+ =item *
- 大見出しC<< <h2> >>になります。
+ HTMLのタグは書けません。
- =item *
+ =item *
- 行をB<**>ではじめると、
- 小見出しC<< <h3> >>になります。
+ B<''ボールド''>のようにシングルクォート二つではさむと、
+ ボールドC<< <b> >>になります。
- =item *
+ =item *
- 行をマイナス-ではじめると、
- 箇条書きC<< <ul> >>になります。
+ B<'''イタリック'''>のようにシングルクォート三つではさむと、
- マイナスの数が増えるとレベルが下がります（3レベルまで）
+ イタリックC<< <i> >>になります。
-     -項目1
+ =item *
-     --項目1-1
-     --項目1-2
+ B<---->のようにマイナス4つがあると、
-     -項目2
+ 水平線C<< <hr> >>になります。
-     -項目3
-     --項目3-1
+ =item *
-     ---項目3-1-1
-     ---項目3-1-2
+ 行をB<*>ではじめると、
-     --項目3-2
+ 大見出しC<< <h2> >>になります。
  =item *
- コロンを使うと、
+ 行をB<**>ではじめると、
- 用語と解説文のリストC<< <dl> >>が書けます。
+ 小見出しC<< <h3> >>になります。
-     :用語1:いろいろ書いた解説文1
+ =item *
-     :用語2:いろいろ書いた解説文2
-     :用語3:いろいろ書いた解説文3
+ 行をマイナス-ではじめると、
+ 箇条書きC<< <ul> >>になります。
- =item *
+ マイナスの数が増えるとレベルが下がります（3レベルまで）
- リンク
+     -項目1
+     --項目1-1
- =over 4
+     --項目1-2
+     -項目2
- =item *
+     -項目3
+     --項目3-1
- LinkToSomePageやFrontPageのように、
+     ---項目3-1-1
- 英単語の最初の一文字を大文字にしたものが
+     ---項目3-1-2
- 二つ以上連続したものはYukiWikiのページ名となり、
+     --項目3-2
- それが文章中に含まれるとリンクになります。
+ =item *
- =item *
+ コロンを使うと、
- http://www.hyuki.com/ のようなURLは自動的にリンクになります。
+ 用語と解説文のリストC<< <dl> >>が書けます。
- =item *
+     :用語1:いろいろ書いた解説文1
+     :用語2:いろいろ書いた解説文2
- 二重の大かっこ[[ ]]でくくった文字列も、
+     :用語3:いろいろ書いた解説文3
- YukiWikiのページ名になります。
- 大かっこの中にはスペースを含めてはいけません。
+ =item *
- 日本語も使えます。
+ リンク
- =back
+ =over 4
- =item *
+ =item *
- 行頭がスペースやタブで始まっていると、
- それは整形済みの段落C<< <pre> >>として扱われます。
+ LinkToSomePageやFrontPageのように、
- プログラムの表示などに使うと便利です。
+ 英単語の最初の一文字を大文字にしたものが
+ 二つ以上連続したものはYukiWikiのページ名となり、
+ それが文章中に含まれるとリンクになります。
- =item *
+ =item *
- 行を > ではじめると、
- 引用文C<< <blockquote> >>が書けます。
+ http://www.hyuki.com/ のようなURLは自動的にリンクになります。
- >の数が多いとインデントが深くなります（3レベルまで）。
+ =item *
-     >文章
-     >文章
+ 二重の大かっこ[[ ]]でくくった文字列も、
-     >>さらなる引用
+ YukiWikiのページ名になります。
-     >文章
+ 大かっこの中にはスペースを含めてはいけません。
+ 日本語も使えます。
- =back
+ =back
- =head1 更新履歴
+ =item *
- =over 4
+ 行頭がスペースやタブで始まっていると、
- =item *
+ それは整形済みの段落C<< <pre> >>として扱われます。
+ プログラムの表示などに使うと便利です。
-年10月20日、Version 1.6.6。
- 更新の衝突対策。
+ =item *
- 元ページの簡単なチェックサムを取っておき、
- 更新前にチェックサムを比較する。
+ 行を > ではじめると、
- 修正個所はdigestという文字列を検索すれば分かる。
+ 引用文C<< <blockquote> >>が書けます。
- 本来はMD5などでちゃんとやった方がいいのだけれど。
+ >の数が多いとインデントが深くなります（3レベルまで）。
- 衝突時に表示されるメッセージなどは「極悪」さんのページを参考にした。
+     >文章
+     >文章
- =item *
+     >>さらなる引用
+     >文章
-年10月17日、Version 1.6.5。
+ =back
- プレビュー画面で、更新ボタンを押したときに送信される
- メッセージの内容をinput要素のtype="hidden"を使って埋め込むのをやめる。
+ =head1 更新履歴
- 代わりに、textarea要素を使う。
- 再プレビュー用にmyspecial_を導入。でもきれいな対策ではない。
+ =over 4
  =item *
-年8月30日、Version 1.6.4。
+年10月20日、Version 1.6.6。
- URLでダイレクトにページ名を指定しても、
+ 更新の衝突対策。
- $WikiNameと$BracketName以外のページを作れないようにした。
+ 元ページの簡単なチェックサムを取っておき、
- (is_valid_nameとis_editable参照)。
+ 更新前にチェックサムを比較する。
+ 修正個所はdigestという文字列を検索すれば分かる。
- =item *
+ 本来はMD5などでちゃんとやった方がいいのだけれど。
-年8月30日、Version 1.6.3。
+ 衝突時に表示されるメッセージなどは「極悪」さんのページを参考にした。
- RecentChangesを編集・再編集不可とした。
+ =item *
- 編集不可ページは@uneditableにページ名を入れる。
+年10月17日、Version 1.6.5。
- =item *
+ プレビュー画面で、更新ボタンを押したときに送信される
-年2月25日、Version 1.6.1, 1.6.2。
+ メッセージの内容をinput要素のtype="hidden"を使って埋め込むのをやめる。
+ 代わりに、textarea要素を使う。
- 差分機能のバグ修正。
+ 再プレビュー用にmyspecial_を導入。でもきれいな対策ではない。
- do_previewで'>'が扱えないバグを修正
- （ユーザからの指摘）。
+ =item *
- =item *
+年8月30日、Version 1.6.4。
-年2月22日、Version 1.6.0。
+ URLでダイレクトにページ名を指定しても、
- 差分機能を実装した。
+ $WikiNameと$BracketName以外のページを作れないようにした。
+ (is_valid_nameとis_editable参照)。
- =item *
+ =item *
-年2月19日、Version 1.5.4。
- 画像ファイルへのリンクは画像にしてみた。
+年8月30日、Version 1.6.3。
- =item *
+ RecentChangesを編集・再編集不可とした。
+ 編集不可ページは@uneditableにページ名を入れる。
-年2月19日、Version 1.5.3。
- RecentChangesの中に削除したページがあるのをやめた。
+ =item *
- use strict;で引っかかる部分を少し整理(完全ではない)。
+年2月25日、Version 1.6.1, 1.6.2。
- =item *
+ 差分機能のバグ修正。
-年2月16日、Version 1.5.2。
+ do_previewで'>'が扱えないバグを修正
- textareaに表示およびプレビューする前に < や > を &lt; や &gt; に変換した
+ （ユーザからの指摘）。
- (do_preview, editpage, print_preview_buttons)。
+ =item *
- =item *
+年2月22日、Version 1.6.0。
-年12月27日、Version 1.5.1。
+ 差分機能を実装した。
- プレビュー画面を整理した。
+ =item *
- =item *
+年2月19日、Version 1.5.4。
-年12月22日、Version 1.5.0。
+ 画像ファイルへのリンクは画像にしてみた。
- 全体的にずいぶん書き直した。
- 一覧を別途作成するようにした(do_list)。
+ =item *
- 書き込む前に確認画面を出すようにした(do_preview)。
- テキストの書き方を編集画面に入れた(do_edit, do_reedit)。
+年2月19日、Version 1.5.3。
- WhatsNew→RecentChanges、TopPage→FrontPageに変更した。
+ RecentChangesの中に削除したページがあるのをやめた。
+ use strict;で引っかかる部分を少し整理(完全ではない)。
- =item *
+ =item *
-年12月20日、Version 1.1.0。
- tieを利用して、dbmopenが使えない場合でも動作するように修正。
+年2月16日、Version 1.5.2。
- 利用者の1人である「極悪」さんから
+ textareaに表示およびプレビューする前に < や > を &lt; や &gt; に変換した
- 送っていただいたコードを元にしています。
+ (do_preview, editpage, print_preview_buttons)。
  =item *
-年9月5日、Version 1.0.2。
+年12月27日、Version 1.5.1。
-  <body color=...> → <body bgcolor=...>
+ プレビュー画面を整理した。
- 利用者からの指摘による。感謝。
+ =item *
- =item *
+年12月22日、Version 1.5.0。
-年8月6日、Version 1.0.1を公開。
+ 全体的にずいぶん書き直した。
- C MAGAZINE（ソフトバンクパブリッシング）
+ 一覧を別途作成するようにした(do_list)。
-年10月号連載記事向け公開版。
+ 書き込む前に確認画面を出すようにした(do_preview)。
- [[ ]] の最後が「望」のようにシフトJISで
+ テキストの書き方を編集画面に入れた(do_edit, do_reedit)。
-x5Dになる場合の回避を行なった。
+ WhatsNew→RecentChanges、TopPage→FrontPageに変更した。
  =item *
-年8月5日、Version 1.0.0を公開。
+年12月20日、Version 1.1.0。
+ tieを利用して、dbmopenが使えない場合でも動作するように修正。
- =item *
+ 利用者の1人である「極悪」さんから
+ 送っていただいたコードを元にしています。
-年7月23日、Version 0.82を公開。
- 編集時のリンクミス。
+ =item *
- <textarea>の属性変更。
+年9月5日、Version 1.0.2。
- =item *
+  <body color=...> → <body bgcolor=...>
+ 利用者からの指摘による。感謝。
-年7月22日、Version 0.81を公開。
- ロゴを組み込む。
+ =item *
- =item *
+年8月6日、Version 1.0.1を公開。
+ C MAGAZINE（ソフトバンクパブリッシング）
-年7月21日、Version 0.80を公開。
+年10月号連載記事向け公開版。
- PODをCGI中に書き込む。
+ [[ ]] の最後が「望」のようにシフトJISで
+x5Dになる場合の回避を行なった。
- =item *
+ =item *
-年7月19日、Version 0.70を公開。
- '''イタリック'''や、--、---、>>、>>>などを実装。
+年8月5日、Version 1.0.0を公開。
  =item *
-年7月18日、Version 0.60を公開。
+年7月23日、Version 0.82を公開。
- *太字*を''太字''に変更
+ 編集時のリンクミス。
+ <textarea>の属性変更。
- =item *
+ =item *
-年7月17日、Version 0.50を公開。
+年7月22日、Version 0.81を公開。
- =item *
+ ロゴを組み込む。
-年7月17日、さらにいろいろ追加する。
+ =item *
- =item *
+年7月21日、Version 0.80を公開。
+ PODをCGI中に書き込む。
-年7月16日、いろいろ追加。
+ =item *
- =item *
+年7月19日、Version 0.70を公開。
-年7月15日、公開。
+ '''イタリック'''や、--、---、>>、>>>などを実装。
- =back
+ =item *
- =head1 TODO
+年7月18日、Version 0.60を公開。
+ *太字*を''太字''に変更
-     - テキスト表示モード
-     - Charsetを明示。
+ =item *
-     - textarea中の閉じタグ対応
-     - メニューの英語表記付記
+年7月17日、Version 0.50を公開。
-     - プレビューのボタンで、mymsgをinputのvalueに入れているが、改行をそのままvalueにいれてはいけないのではないか。
-     - 「再編集」の機能はブラウザの back で充分ではないか。プレビューはもっとシンプルに。
+ =item *
-     - ページタイトル（Wikiname）が検索にかかるようにする。
-     - InterWiki風の機能「URLを隠しつつ、リンクを張る」
+年7月17日、さらにいろいろ追加する。
- =head1 作者
+ =item *
-     Copyright (C) 2000 by Hiroshi Yuki.
+年7月16日、いろいろ追加。
-     結城浩 <hyuki@hyuki.com>
-     http://www.hyuki.com/
+ =item *
-     http://www.hyuki.com/yukiwiki/
+年7月15日、公開。
- 質問、意見、バグ報告は hyuki@hyuki.com にメールしてください。
+ =back
- =head1 配布条件
+ =head1 TODO
- YukiWikiは、
- GNU General Public Licenseにて公開します。
+     - テキスト表示モード
+     - Charsetを明示。
- YukiWikiはフリーソフトです。
+     - textarea中の閉じタグ対応
- ご自由にお使いください。
+     - メニューの英語表記付記
- 自分好みのYukiWikiが作れるようにシンプルにしてあります。
+     - プレビューのボタンで、mymsgをinputのvalueに入れているが、改行をそのままvalueにいれてはいけないのではないか。
+     - 「再編集」の機能はブラウザの back で充分ではないか。プレビューはもっとシンプルに。
- =head1 謝辞
+     - ページタイトル（Wikiname）が検索にかかるようにする。
+     - InterWiki風の機能「URLを隠しつつ、リンクを張る」
- 本家のWikiWikiを作ったCunningham & Cunningham, Inc.に
- 感謝します。
+ =head1 作者
- YukiWikiを楽しんで使ってくださる
+     Copyright (C) 2000 by Hiroshi Yuki.
- ネット上の方々に感謝します。
+     結城浩 <hyuki@hyuki.com>
+     http://www.hyuki.com/
- YukiWikiのロゴをデザインしてくださった橋本礼奈さん
+     http://www.hyuki.com/yukiwiki/
- http://city.hokkai.or.jp/~reina/
- に感謝します。
+ 質問、意見、バグ報告は hyuki@hyuki.com にメールしてください。
- tieを使った版の元になるコードを送ってくださった
+ =head1 配布条件
- 「極悪」さんに感謝します。
+ YukiWikiは、
- =head1 参照リンク
+ GNU General Public Licenseにて公開します。
- =over 4
+ YukiWikiはフリーソフトです。
+ ご自由にお使いください。
- =item *
+ 自分好みのYukiWikiが作れるようにシンプルにしてあります。
- YukiWikiホームページ
+ =head1 謝辞
- http://www.hyuki.com/yukiwiki/
+ 本家のWikiWikiを作ったCunningham & Cunningham, Inc.に
- =item *
+ 感謝します。
- 本家のWikiWiki
+ YukiWikiを楽しんで使ってくださる
- http://c2.com/cgi/wiki?WikiWikiWeb
+ ネット上の方々に感謝します。
- =item *
+ YukiWikiのロゴをデザインしてくださった橋本礼奈さん
+ http://city.hokkai.or.jp/~reina/
- 本家のWikiWikiの作者(Cunningham & Cunningham, Inc.)
+ に感謝します。
- http://c2.com/
+ tieを使った版の元になるコードを送ってくださった
- =item *
+ 「極悪」さんに感謝します。
- YukiWikiのロゴデザインをしてくださった橋本礼奈さんのページ
+ =head1 参照リンク
- http://city.hokkai.or.jp/~reina/
+ =over 4
- =back
+ =item *
- =cut
+ YukiWikiホームページ
+ http://www.hyuki.com/yukiwiki/
+ =item *
+ 本家のWikiWiki
+ http://c2.com/cgi/wiki?WikiWikiWeb
+ =item *
+ 本家のWikiWikiの作者(Cunningham & Cunningham, Inc.)
+ http://c2.com/
+ =item *
+ YukiWikiのロゴデザインをしてくださった橋本礼奈さんのページ
+ http://city.hokkai.or.jp/~reina/
+ =back
+ =cut

 Legend:



Removed from v.1.8
 


changed lines


 
Added in v.1.14
 Legend:



Removed from v.1.8
 


changed lines


 
Added in v.1.14
-Removed from v.1.8
+Added in v.1.14

admin@suikawiki.org	ViewVC Help
Powered by ViewVC 1.1.24