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

Diff of /suikawiki/script/wiki.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Mon Feb 4 13:19:08 2002 UTC revision 1.4 by wakaba, Mon Feb 4 15:03:23 2002 UTC
# Line 1  Line 1 
1  #!/usr/local/bin/perl  #!/usr/bin/perl
2  use lib "../lib";  use lib "../lib";
3  use CGI::Carp 'fatalsToBrowser';  use CGI::Carp 'fatalsToBrowser';
4  use Algorithm::Diff qw(traverse_sequences);  use Algorithm::Diff qw(traverse_sequences);
5  # use strict;  # use strict;
6  #  #
7  # yukiwiki.cgi - Yet another WikiWikiWeb clone.  # yukiwiki.cgi - Yet another WikiWikiWeb clone.
8  #  #
9  # Copyright (C) 2000,2001 by Hiroshi Yuki.  # Copyright (C) 2000,2001 by Hiroshi Yuki.
10  # <hyuki@hyuki.com>  # <hyuki@hyuki.com>
11  # http://www.hyuki.com/yukiwiki/  # http://www.hyuki.com/yukiwiki/
12  #  #
13  # This program is free software; you can redistribute it and/or modify  # 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  # 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  # the Free Software Foundation; either version 2 of the License, or
16  # (at your option) any later version.  # (at your option) any later version.
17  #  #
18  # This program is distributed in the hope that it will be useful,  # This program is distributed in the hope that it will be useful,
19  # but WITHOUT ANY WARRANTY; without even the implied warranty of  # but WITHOUT ANY WARRANTY; without even the implied warranty of
20  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21  # GNU General Public License for more details.  # GNU General Public License for more details.
22  #  #
23  # $Id$  # $Id$
24  ##############################  ##############################
25  my $version = "1.6.6";  my $version = "1.6.6";
26  ##############################  ##############################
27  # 単独テストのときには 1 にする。  # ﾃｱﾆﾈ･ﾆ･ｹ･ﾈ､ﾎ､ﾈ､ｭ､ﾋ､ﾏ 1 ､ﾋ､ｹ､｡｣
28  my $testing = 0;  my $testing = 0;
29  ##############################  ##############################
30  # 漢字ライブラリ  # ｴﾁｻ･鬣､･ﾖ･鬣
31  my $jcodelib = 'jcode.pl';  my $jcodelib = 'jcode.pl';
32  ##############################  ##############################
33  # 保存・表示の漢字コード  # ﾊﾝﾂｸ｡ｦﾉｽｼｨ､ﾎｴﾁｻ･ｳ｡ｼ･ﾉ
34  my $kanjicode = 'sjis';     # 'sjis' 'euc'  my $kanjicode = 'euc';     # 'sjis' 'euc'
35  my $charset = 'Shift_JIS';  # 'Shift_JIS' 'EUC-JP'  my $charset = 'euc-jisx0213';  # 'Shift_JIS' 'EUC-JP'
36  ##############################  ##############################
37  # dbmopenが使えるなら1、使えないなら0  # dbmopen､ｬｻﾈ､ｨ､､ﾊ､1｡｢ｻﾈ､ｨ､ﾊ､､､ﾊ､0
38  my $dbmopen = 0;  my $dbmopen = 0;
39  ##############################  ##############################
40  # データベース名（.pag, .dir, .dbなどは不要）  # ･ﾇ｡ｼ･ｿ･ﾙ｡ｼ･ｹﾌｾ｡ﾊ.pag, .dir, .db､ﾊ､ﾉ､ﾏﾉﾔﾍﾗ｡ﾋ
41  # $dbmopen = 1のときはデータベース名、  # $dbmopen = 1､ﾎ､ﾈ､ｭ､ﾏ･ﾇ｡ｼ･ｿ･ﾙ｡ｼ･ｹﾌｾ｡｢
42  # $dbmopen = 0のときはディレクトリ名になる。  # $dbmopen = 0､ﾎ､ﾈ､ｭ､ﾏ･ﾇ･｣･･ｯ･ﾈ･ﾌｾ､ﾋ､ﾊ､｡｣
43  my $dbname = './yukiwiki';  my $dbname = './wikidata';
44  my $diffdbname = './yukidiff';  my $diffdbname = './wikidiff';
45  ##############################  ##############################
46  # 修正者の氏名（自由に変更してください）  # ｽ､ﾀｵｼﾔ､ﾎｻ睥ｾ｡ﾊｼｫﾍｳ､ﾋﾊﾑｹｹ､ｷ､ﾆ､ｯ､ﾀ､ｵ､､｡ﾋ
47  my $modifier = 'Hiroshi Yuki';  my $modifier = 'suika';
48  ##############################  ##############################
49  # 修正者のWebページ（自由に変更してください）  # ｽ､ﾀｵｼﾔ､ﾎWeb･ﾚ｡ｼ･ｸ｡ﾊｼｫﾍｳ､ﾋﾊﾑｹｹ､ｷ､ﾆ､ｯ､ﾀ､ｵ､､｡ﾋ
50  my $modifierlink = 'http://www.hyuki.com/';  my $modifierlink = 'http://suika.fam.cx/';
51  ##############################  ##############################
52  # このページのURL  # ､ｳ､ﾎ･ﾚ｡ｼ･ｸ､ﾎURL
53  my $thisurl = 'yukiwiki.cgi';  my $thisurl = 'wiki';
54  ##############################  ##############################
55  # 開始ページ名  # ｳｫｻﾏ･ﾚ｡ｼ･ｸﾌｾ
56  my $toppage = 'FrontPage';  my $toppage = 'HomePage';
57  ##############################  ##############################
58  # 最終更新ページ名  # ｺﾇｽｪｹｹｿｷ･ﾚ｡ｼ･ｸﾌｾ
59  my $whatsnew = 'RecentChanges';  my $whatsnew = 'RecentChanges';
60  ##############################  ##############################
61  # 最終更新に掲載するページ数  # ｺﾇｽｪｹｹｿｷ､ﾋｷﾇｺﾜ､ｹ､･ﾚ｡ｼ･ｸｿ
62  my $maxnew = 50;  my $maxnew = 50;
63  ##############################  ##############################
64  # アイコンファイル名（カラー版）  # ･｢･､･ｳ･･ﾕ･｡･､･ﾌｾ｡ﾊ･ｫ･鬘ｼﾈﾇ｡ﾋ
65  my $iconfile = 'yukiwiki.gif';  my $iconfile = '';
66  ##############################  ##############################
67  # アイコンファイル名（モノクロ版）  # ･｢･､･ｳ･･ﾕ･｡･､･ﾌｾ｡ﾊ･筵ﾎ･ｯ･ﾈﾇ｡ﾋ
68  # my $iconfile = 'yukimono.gif';  # my $iconfile = '';
69  ##############################  ##############################
70  # ページを変更したときにtouchするファイル（''なら何もしない）  # ･ﾚ｡ｼ･ｸ､ﾊﾑｹｹ､ｷ､ｿ､ﾈ､ｭ､ﾋtouch､ｹ､･ﾕ･｡･､･｡ﾊ''､ﾊ､魎ｿ､筅ｷ､ﾊ､､｡ﾋ
71  my $touchfile = 'touch.txt';  my $touchfile = 'touch.txt';
72  ##############################  ##############################
73  # プレビュー用の背景色  # ･ﾗ･･ﾓ･蝪ｼﾍﾑ､ﾎﾇﾘｷﾊｿｧ
74  my $preview_color = '#FFCCCC';  my $preview_color = '#FFCCCC';
75  ##############################  ##############################
76  # 全ページのスタイル  # ﾁｴ･ﾚ｡ｼ･ｸ､ﾎ･ｹ･ｿ･､･
77  my $style = <<'EOD';  my $style = <<'EOD';
78  pre, dl, ul, ol, p, blockquote { line-height:120%; }  pre, dl, ul, ol, p, blockquote { line-height:120%; }
79  a { text-decoration: none; }  a { text-decoration: none; }
80  a:link { color: #0000FF; background-color: #FFFFFF; }  a:link { color: #0000FF; background-color: #FFFFFF; }
81  a:visited { color: #9900CC; background-color: #FFFFFF; }  a:visited { color: #9900CC; background-color: #FFFFFF; }
82  a:hover { text-decoration: underline; }  a:hover { text-decoration: underline; }
83  EOD  EOD
84  ##############################  ##############################
85  # テキスト入力部分の大きさ  # ･ﾆ･ｭ･ｹ･ﾈﾆﾎﾏﾉﾊｬ､ﾎﾂ遉ｭ､ｵ
86  my $cols = 80;  my $cols = 80;
87  my $rows = 20;  my $rows = 20;
88  ##############################  ##############################
89  my %form = ();  my %form = ();
90  my %database = ();  my %database = ();
91  my %diffbase = ();  my %diffbase = ();
92  my $diff_text = '';  my $diff_text = '';
93  my @diff_added = ();  my @diff_added = ();
94  my @diff_deleted = ();  my @diff_deleted = ();
95  my $msgrefA;  my $msgrefA;
96  my $msgrefB;  my $msgrefB;
97  ##############################  ##############################
98  # 編集不可ページ名一覧  # ﾊﾔｽｸﾉﾔｲﾄ･ﾚ｡ｼ･ｸﾌｾｰﾍ
99  my @uneditable = ( $whatsnew );  my @uneditable = ( $whatsnew );
100  ##############################  ##############################
101  # リンク用の正規表現  # ･･･ｯﾍﾑ､ﾎﾀｵｵｬﾉｽｸｽ
102  # YukiWikiのリンクは2種類ある。  # YukiWiki､ﾎ･･･ｯ､ﾏ2ｼﾎ爨｢､｡｣
103  #  #
104  # (1) WikiName (RecentChangesとかFrontPageのようなもの)  # (1) WikiName (RecentChanges､ﾈ､ｫFrontPage､ﾎ､隍ｦ､ﾊ､筅ﾎ)
105  # (2) BracketName ([[結城浩]]とか[[トラブルシュート]]のようなもの)  # (2) BracketName ([[ｷｾｹﾀ]]､ﾈ､ｫ[[･ﾈ･鬣ﾖ･･ｷ･蝪ｼ･ﾈ]]､ﾎ､隍ｦ､ﾊ､筅ﾎ)
106  #  #
107  # ※シフトJISの2バイト目には ']' が来うるので、  # ｢ｨ･ｷ･ﾕ･ﾈJIS､ﾎ2･ﾐ･､･ﾈﾌﾜ､ﾋ､ﾏ ']' ､ｬﾍ隍ｦ､､ﾎ､ﾇ｡｢
108  # 文字']'を1つ多くとるようにしている。  # ﾊｸｻ']'､1､ﾄﾂｿ､ｯ､ﾈ､､隍ｦ､ﾋ､ｷ､ﾆ､､､｡｣
109  #  #
110  my $WikiName = '([A-Z][a-z]+([A-Z][a-z]+)+)';  my $WikiName = '([A-Z][a-z]+([A-Z][a-z]+)+)';
111  my $BracketName = '\[\[([^>\s]+?\]?)\]\]';  my $BracketName = '\[\[([^>\s]+?\]?)\]\]';
112    
113  # アイコン部分のタグ  # ･｢･､･ｳ･ﾉﾊｬ､ﾎ･ｿ･ｰ
114  my $IconTag = <<"EOD";  my $IconTag = ''; #<<"EOD";
115  <a href="http://www.hyuki.com/yukiwiki/"><img src="$iconfile"  #<a href="http://www.hyuki.com/yukiwiki/"><img src="$iconfile"
116   border="0" width="80" height="80" alt="[YukiWiki]" /></a>  # border="0" width="80" height="80" alt="[YukiWiki]" /></a>
117  EOD  #EOD
118    
119  require "$jcodelib";  require "$jcodelib";
120    
121  &init_form($kanjicode);  &init_form($kanjicode);
122    
123  if ($testing) {  if ($testing) {
124      %form = (      %form = (
125          # 'mycmd' => 'write',          # 'mycmd' => 'write',
126          'mycmd' => 'read',          'mycmd' => 'read',
127          #'mycmd' => 'search',          #'mycmd' => 'search',
128          #'mycmd' => 'edit',          #'mycmd' => 'edit',
129          'mymsg' => <<"EOD",          'mymsg' => <<"EOD",
130  はじめまして。  ､ﾏ､ｸ､皃ﾞ､ｷ､ﾆ｡｣
131  これからいろいろ書き込みますね。  ､ｳ､､ｫ､鬢､､､､､ｽ､ｭｹ､ﾟ､ﾞ､ｹ､ﾍ｡｣
132  LinkPageも見てください。  LinkPage､篋ｫ､ﾆ､ｯ､ﾀ､ｵ､､｡｣
133  TestPageはどうでしょうか。  TestPage､ﾏ､ﾉ､ｦ､ﾇ､ｷ､遉ｦ､ｫ｡｣
134  どうぞよろしく。  ､ﾉ､ｦ､ｾ､隍､ｷ､ｯ｡｣
135  http://www.hyuki.com/  http://www.hyuki.com/
136  [[結城浩]]  [[ｷｾｹﾀ]]
137  EOD  EOD
138          'mypage' => '<結城浩>',          'mypage' => '<ｷｾｹﾀ>',
139          'myword' => '結',          'myword' => 'ｷ',
140          # '3C8C8B8FE98D5F3E' => '',          # '3C8C8B8FE98D5F3E' => '',
141          # 'TestPage' => '',          # 'TestPage' => '',
142      );      );
143  }  }
144  &main;  &main;
145  exit(0);  exit(0);
146    
147  # メイン  # ･皈､･
148  sub main {  sub main {
149      &normalize_form;      &normalize_form;
150      if ($dbmopen) {      if ($dbmopen) {
151          if (!dbmopen(%database, $dbname, 0666)) {          if (!dbmopen(%database, $dbname, 0666)) {
152              &print_error("(dbmopen) $dbname が作れません。");              &print_error("(dbmopen) $dbname ､ｬｺ､､ﾞ､ｻ､｡｣");
153          }          }
154      } else {      } else {
155          if (!tie(%database, "YukiWikiDB", $dbname)) {          if (!tie(%database, "YukiWikiDB", $dbname)) {
156              &print_error("(tie error)");              &print_error("(tie error)");
157          }          }
158      }      }
159    
160      # myspecial対応      # myspecialﾂﾐｱ
161      foreach (keys %form) {      foreach (keys %form) {
162          if (/^myspecial_(.*)/) {          if (/^myspecial_(.*)/) {
163              $form{mycmd} = $1;              $form{mycmd} = $1;
164              last;              last;
165          }          }
166      }      }
167    
168      if ($form{mycmd} eq 'read') {      if ($form{mycmd} eq 'read') {
169          &do_read;          &do_read;
170      } elsif ($form{mycmd} eq 'preview') {      } elsif ($form{mycmd} eq 'preview') {
171          &do_preview;          &do_preview;
172      } elsif ($form{mycmd} eq 'write') {      } elsif ($form{mycmd} eq 'write') {
173          &do_write;          &do_write;
174      } elsif ($form{mycmd} eq 'edit') {      } elsif ($form{mycmd} eq 'edit') {
175          &do_edit;          &do_edit;
176      } elsif ($form{mycmd} eq 'reedit') {      } elsif ($form{mycmd} eq 'reedit') {
177          &do_reedit;          &do_reedit;
178      } elsif ($form{mycmd} eq 'search') {      } elsif ($form{mycmd} eq 'search') {
179          &do_search;          &do_search;
180      } elsif ($form{mycmd} eq 'list') {      } elsif ($form{mycmd} eq 'list') {
181          &do_list;          &do_list;
182      } elsif ($form{mycmd} eq 'diff') {      } elsif ($form{mycmd} eq 'diff') {
183          &do_diff;          &do_diff;
184      } else {      } else {
185          $form{mypage} = $toppage;          $form{mypage} = $toppage;
186          &do_read;          &do_read;
187      }      }
188      if ($dbmopen) {      if ($dbmopen) {
189          dbmclose(%database);          dbmclose(%database);
190      } else {      } else {
191          untie(%database);          untie(%database);
192      }      }
193  }  }
194    
195  # ページの表示  # ･ﾚ｡ｼ･ｸ､ﾎﾉｽｼｨ
196  sub do_read {  sub do_read {
197      my $page_name = $form{mypage};      my $page_name = $form{mypage};
198      my $percent_name = &encode_percent($page_name);      my $percent_name = &encode_percent($page_name);
199      &print_header($page_name);      &print_header($page_name);
200      print qq|<h1>$IconTag<a href="$thisurl?mycmd=search&myword=$percent_name">$page_name</a></h1>\n|;      print qq|<h1>$IconTag<a href="$thisurl?mycmd=search;myword=$percent_name">$page_name</a></h1>\n|;
201      &print_toolbar($page_name);      &print_toolbar($page_name);
202      print &convert_html(&get_page($page_name));      print &convert_html(&get_page($page_name));
203      &print_footer;      &print_footer;
204  }  }
205    
206  # ページの編集  # ･ﾚ｡ｼ･ｸ､ﾎﾊﾔｽｸ
207  sub do_edit {  sub do_edit {
208      if (not &is_editable($form{mypage})) {      if (not &is_editable($form{mypage})) {
209          # 編集不可ページは表示のみ          # ﾊﾔｽｸﾉﾔｲﾄ･ﾚ｡ｼ･ｸ､ﾏﾉｽｼｨ､ﾎ､ﾟ
210          &do_read;          &do_read;
211          return;          return;
212      }      }
213      &editpage(&get_page($form{mypage}));      &editpage(&get_page($form{mypage}));
214  }  }
215    
216  # ページの再編集  # ･ﾚ｡ｼ･ｸ､ﾎｺﾆﾊﾔｽｸ
217  sub do_reedit {  sub do_reedit {
218      if (not &is_editable($form{mypage})) {      if (not &is_editable($form{mypage})) {
219          # 編集不可ページは表示のみ          # ﾊﾔｽｸﾉﾔｲﾄ･ﾚ｡ｼ･ｸ､ﾏﾉｽｼｨ､ﾎ､ﾟ
220          &do_read;          &do_read;
221      } else {      } else {
222          &editpage($form{mymsg});          &editpage($form{mymsg});
223      }      }
224  }  }
225    
226  sub editpage {  sub editpage {
227      my $page_msg = shift;      my $page_msg = shift;
228      my $page_name = $form{mypage};      my $page_name = $form{mypage};
229      my $digest = &calc_message_digest($page_msg);      my $digest = &calc_message_digest($page_msg);
230      &print_header($page_name);      &print_header($page_name);
231      print qq|<h1>$IconTag${page_name}の編集</h1>\n|;      print qq|<h1>$IconTag${page_name}､ﾎﾊﾔｽｸ</h1>\n|;
232      &print_toolbar($page_name);      &print_toolbar($page_name);
233      $page_msg = &escape($page_msg);      $page_msg = &escape($page_msg);
234      print <<"EOD";      print <<"EOD";
235  <form action="$thisurl" method="post">  <form action="$thisurl" method="post">
236  <input type="hidden" name="mycmd" value="preview">  <!--<input type="hidden" name="mycmd" value="preview">-->
237  <input type="hidden" name="mypage" value="$page_name">  <input type="hidden" name="mypage" value="$page_name">
238  <input type="hidden" name="mydigest" value="$digest">  <input type="hidden" name="mydigest" value="$digest">
239  <textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$page_msg</textarea><br>  <textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$page_msg</textarea><br>
240  <input type="submit" value="プレビュー">  <input type="submit" name="myspecial_preview" value="ｳﾎﾇｧ">
241  </form>  <input type="submit" name="myspecial_write" value="ｳﾎﾇｧ､ｻ､ｺﾊﾑｹｹ">
242  <hr>  </form>
243  <h3>テキスト整形のルール</h3>  <hr>
244    <h3>･ﾆ･ｭ･ｹ･ﾈﾀｰｷﾁ､ﾎ･｡ｼ･</h3>
245  <p>通常は入力した文字がそのまま出力されますが、  
246  以下のルールに従ってテキスト整形を行うことができます。</p>  <p>ﾄﾌｾ､ﾏﾆﾎﾏ､ｷ､ｿﾊｸｻ､ｬ､ｽ､ﾎ､ﾞ､ﾞｽﾐﾎﾏ､ｵ､､ﾞ､ｹ､ｬ｡｢
247    ｰﾊｲｼ､ﾎ･｡ｼ･､ﾋｽｾ､ﾃ､ﾆ･ﾆ･ｭ･ｹ･ﾈﾀｰｷﾁ､ｹﾔ､ｦ､ｳ､ﾈ､ｬ､ﾇ､ｭ､ﾞ､ｹ｡｣</p>
248  <ul>  
249  <li>  <ul>
250  空行は段落の区切りとなります。  <li>
251    ｶｹﾔ､ﾏﾃﾊﾍ､ﾎｶ霏ﾚ､熙ﾈ､ﾊ､熙ﾞ､ｹ｡｣
252  <li>  
253  HTMLのタグは書けません。  <li>
254    HTML､ﾎ･ｿ･ｰ､ﾏｽ､ｱ､ﾞ､ｻ､｡｣
255  <li>  
256  ''ボールド''のようにシングルクォート二つではさむと、ボールドになります。  <li>
257    ''ｶｯﾄｴ''､ﾎ､隍ｦ､ﾋ･ｷ･･ｰ･･ｯ･ｩ｡ｼ･ﾈﾆ､ﾄ､ﾇ､ﾏ､ｵ､爨ﾈ｡｢ｶｯﾄｴ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
258  <li>  
259  '''イタリック'''のようにシングルクォート三つではさむと、イタリックになります。  <li>
260    '''ｹｹ､ﾋｶｯﾄｴ'''､ﾎ､隍ｦ､ﾋ･ｷ･･ｰ･･ｯ･ｩ｡ｼ･ﾈｻｰ､ﾄ､ﾇ､ﾏ､ｵ､爨ﾈ｡｢ｹｹ､ﾋｶｯﾄｴ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
261  <li>  
262  ----のようにマイナス4つがあると、水平線になります。  <li>
263    ----､ﾎ､隍ｦ､ﾋ･ﾞ･､･ﾊ･ｹ4､ﾄ､ｬ､｢､､ﾈ｡｢ｿ衞ｿﾀ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
264  <li>  
265  *を行頭に書くと大見出しになります。  <li>
266    *､ｹﾔﾆｬ､ﾋｽ､ｯ､ﾈﾂ邵ｫｽﾐ､ｷ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
267  <li>  
268  **を行頭に書くと小見出しになります。  <li>
269    **､ｹﾔﾆｬ､ﾋｽ､ｯ､ﾈｾｮｸｫｽﾐ､ｷ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
270  <li>  
271  -を行頭に書くと箇条書きになります。- -- --- の3レベルがあります。  <li>
272    -､ｹﾔﾆｬ､ﾋｽ､ｯ､ﾈｲﾕｾｽ､ｭ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣- -- --- ､ﾎ3･･ﾙ･､ｬ､｢､熙ﾞ､ｹ｡｣
273  <li>  
274  :を行頭に書くと用語と解説文が作れます。  <li>
275    :､ｹﾔﾆｬ､ﾋｽ､ｯ､ﾈﾍﾑｸ､ﾈｲﾀ簗ｸ､ｬｺ､､ﾞ､ｹ｡｣
276  <pre>  
277      :用語1:いろいろ書いた解説文1  <pre>
278      :用語2:いろいろ書いた解説文2      :ﾍﾑｸ1:､､､､､､ｽ､､､ｿｲﾀ簗ｸ1
279      :用語3:いろいろ書いた解説文3      :ﾍﾑｸ2:､､､､､､ｽ､､､ｿｲﾀ簗ｸ2
280  </pre>      :ﾍﾑｸ3:､､､､､､ｽ､､､ｿｲﾀ簗ｸ3
281    </pre>
282  <li>  
283  http://www.hyuki.com/ のようなURLは自動的にリンクになります。  <li>
284    http://www.hyuki.com/ ､ﾎ､隍ｦ､ﾊURL､ﾏｼｫﾆｰﾅｪ､ﾋ･･･ｯ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
285  <li>  
286  YukiWikiのように大文字小文字を混ぜた英文字列を書くと、  <li>
287  YukiWikiのページ名になります。  YukiWiki､ﾎ､隍ｦ､ﾋﾂ醋ｸｻｾｮﾊｸｻ､ｺｮ､ｼ､ｿｱﾑﾊｸｻﾎ､ｽ､ｯ､ﾈ｡｢
288    YukiWiki､ﾎ･ﾚ｡ｼ･ｸﾌｾ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
289  <li>  
290  [[結城浩]]のように二重の大かっこ[[ ]]でくくった文字列を書くと、  <li>
291  YukiWikiのページ名になります。  [[ｷｾｹﾀ]]､ﾎ､隍ｦ､ﾋﾆｽﾅ､ﾎﾂ遉ｫ､ﾃ､ｳ[[ ]]､ﾇ､ｯ､ｯ､ﾃ､ｿﾊｸｻﾎ､ｽ､ｯ､ﾈ｡｢
292  大かっこの中にはスペースを含めてはいけません。  YukiWiki､ﾎ･ﾚ｡ｼ･ｸﾌｾ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
293  日本語も使えます。  ﾂ遉ｫ､ﾃ､ｳ､ﾎﾃ讀ﾋ､ﾏ･ｹ･ﾚ｡ｼ･ｹ､ｴﾞ､皃ﾆ､ﾏ､､､ｱ､ﾞ､ｻ､｡｣
294    ﾆﾋﾜｸ､篏ﾈ､ｨ､ﾞ､ｹ｡｣
295  <li>  
296  行頭がスペースで始まっていると、  <li>
297  その段落は整形済み扱われます。  ｹﾔﾆｬ､ｬ･ｹ･ﾚ｡ｼ･ｹ､ﾇｻﾏ､ﾞ､ﾃ､ﾆ､､､､ﾈ｡｢
298  プログラムを書き込むときに使うと便利です。  ､ｽ､ﾎﾃﾊﾍ､ﾏﾀｰｷﾁｺﾑ､ﾟｰｷ､､､ﾞ､ｹ｡｣
299    ･ﾗ･･ｰ･鬣爨ｽ､ｭｹ､爨ﾈ､ｭ､ﾋｻﾈ､ｦ､ﾈﾊﾘﾍ､ﾇ､ｹ｡｣
300  <li>  
301  > を行頭に書くと、  <li>
302  引用文が書けます。  &gt; ､ｹﾔﾆｬ､ﾋｽ､ｯ､ﾈ｡｢
303  >の数が多いとインデントが深くなります（3レベルまで）。  ｰﾍﾑﾊｸ､ｬｽ､ｱ､ﾞ､ｹ｡｣
304    &gt; ､ﾎｿ､ｬﾂｿ､､､ﾈ･､･･ﾇ･･ﾈ､ｬｿｼ､ｯ､ﾊ､熙ﾞ､ｹ｡ﾊ3･･ﾙ･､ﾞ､ﾇ｡ﾋ｡｣
305  </ul>  
306  EOD  </ul>
307      &print_footer;  EOD
308  }      &print_footer;
309    }
310  # ページの検索  
311  sub do_search {  # ･ﾚ｡ｼ･ｸ､ﾎｸ｡ｺ
312      if ($form{myword}) {  sub do_search {
313          &print_header('検索結果');      if ($form{myword}) {
314          print qq|<h1>$IconTag$form{myword}の検索結果</h1>\n|;          &print_header('ｸ｡ｺｷｲﾌ');
315          &print_toolbar();          print qq|<h1>$IconTag$form{myword}､ﾎｸ｡ｺｷｲﾌ</h1>\n|;
316          print qq|<ul>\n|;          &print_toolbar();
317          my $count = 0;          print qq|<ul>\n|;
318          foreach my $page_name (sort keys %database) {    # sortするのは無謀かな          my $count = 0;
319              if ($database{$page_name} =~ /\Q$form{'myword'}\E/) {          foreach my $page_name (sort keys %database) {    # sort､ｹ､､ﾎ､ﾏﾌｵﾋﾅ､ｫ､ﾊ
320                  my $encoded = &encode_percent($page_name);              if ($database{$page_name} =~ /\Q$form{'myword'}\E/) {
321                  print qq|<li><a href="$thisurl?mycmd=read&mypage=$encoded">$page_name</a>\n|;                  my $encoded = &encode_percent($page_name);
322                  $count++;                  print qq|<li><a href="$thisurl?mycmd=read;mypage=$encoded">$page_name</a>\n|;
323              }                  $count++;
324          }              }
325          print qq|</ul>\n|;          }
326          if ($count > 0) {          print qq|</ul>\n|;
327              print qq|<p><b>$form{myword}</b>を含むページは、上に示す<b>$count</b>ページです。</p>\n|;          if ($count > 0) {
328          } else {              print qq|<p><strong>$form{myword}</strong>､ｴﾞ､爭ﾚ｡ｼ･ｸ､ﾏ｡｢ｾ螟ﾋｼｨ､ｹ<strong>$count</strong> ･ﾚ｡ｼ･ｸ､ﾇ､ｹ｡｣</p>\n|;
329              print qq|<p><b>$form{myword}</b>を含むページは見つかりません。</p>\n|;          } else {
330          }              print qq|<p><strong>$form{myword}</strong>､ｴﾞ､爭ﾚ｡ｼ･ｸ､ﾏｸｫ､ﾄ､ｫ､熙ﾞ､ｻ､｡｣</p>\n|;
331      } else {          }
332          &print_header('単語検索');      } else {
333          print qq|<h1>$IconTag単語検索</h1>\n|;          &print_header('ﾃｱｸｸ｡ｺ');
334          &print_toolbar();          print qq|<h1>$IconTagﾃｱｸｸ｡ｺ</h1>\n|;
335      }          &print_toolbar();
336      print <<"EOD";      }
337  <p>      print <<"EOD";
338  <form action="$thisurl" method="post">  <p>
339  <input type="hidden" name="mycmd" value="search">  <form action="$thisurl" method="post">
340  <input type="text" name="myword" size="20" value="$form{myword}">  <input type="hidden" name="mycmd" value="search">
341  <input type="submit" value="単語検索">  <input type="text" name="myword" size="20" value="$form{myword}">
342  </form>  <input type="submit" value="ﾃｱｸｸ｡ｺ">
343  </p>  </form>
344  EOD  </p>
345      &print_footer;  EOD
346  }      &print_footer;
347    }
348  # ページの一覧  
349  sub do_list {  # ･ﾚ｡ｼ･ｸ､ﾎｰﾍ
350      &print_header('ページ一覧');  sub do_list {
351      print qq|<h1>$IconTag ページ一覧</h1>\n|;      &print_header('･ﾚ｡ｼ･ｸｰﾍ');
352      &print_toolbar();      print qq|<h1>$IconTag ･ﾚ｡ｼ･ｸｰﾍ</h1>\n|;
353      print qq|<ul>\n|;      &print_toolbar();
354      foreach my $page_name (sort keys %database) {    # sortするのは無謀かな      print qq|<ul>\n|;
355          my $encoded = &encode_percent($page_name);      foreach my $page_name (sort keys %database) {    # sort､ｹ､､ﾎ､ﾏﾌｵﾋﾅ､ｫ､ﾊ
356          print qq|<li><a href="$thisurl?mycmd=read&mypage=$encoded">$page_name</a>\n|          my $encoded = &encode_percent($page_name);
357      }          print qq|<li><a href="$thisurl?mycmd=read;mypage=$encoded">$page_name</a>\n|
358      print qq|</ul>\n|;      }
359      &print_footer;      print qq|</ul>\n|;
360  }      &print_footer;
361    }
362  # プレビュー  
363  sub do_preview {  # ･ﾗ･･ﾓ･蝪ｼ
364      my $page_name = $form{mypage};  sub do_preview {
365      my $escapedmsg = &escape($form{mymsg});      my $page_name = $form{mypage};
366      &print_header($page_name);      my $escapedmsg = &escape($form{mymsg});
367      print qq|<h1>$IconTag${page_name}のプレビュー</h1>\n|;      &print_header($page_name);
368      &print_toolbar($page_name);      print qq|<h1>$IconTag${page_name}､ﾎ･ﾗ･･ﾓ･蝪ｼ</h1>\n|;
369      # local $percent_name = &encode_percent($page_name);      &print_toolbar($page_name);
370      print qq|<p>以下のプレビューを確認して、よければページ下部のボタンで更新してください。</p>\n|;      # local $percent_name = &encode_percent($page_name);
371      if ($form{mymsg}) {      print qq|<p>ｰﾊｲｼ､ﾎ･ﾗ･･ﾓ･蝪ｼ､ｳﾎﾇｧ､ｷ､ﾆ｡｢､隍ｱ､､ﾐ･ﾚ｡ｼ･ｸｲｼﾉ､ﾎ･ﾜ･ｿ･､ﾇｹｹｿｷ､ｷ､ﾆ､ｯ､ﾀ､ｵ､､｡｣</p>\n|;
372          print qq|<table width="100%" bgcolor="$preview_color" ><tr><td>\n|;      if ($form{mymsg}) {
373          # print &convert_html($escapedmsg);          print qq|<table width="100%" bgcolor="$preview_color" ><tr><td>\n|;
374          print &convert_html($form{mymsg});          # print &convert_html($escapedmsg);
375          print qq|</td></tr></table>\n|;          print &convert_html($form{mymsg});
376      } else {          print qq|</td></tr></table>\n|;
377          print qq|<p>（ページの内容は空です。更新するとこのページは<b>削除</b>されます。）</p>\n|;      } else {
378      }          print qq|<p>｡ﾊ･ﾚ｡ｼ･ｸ､ﾎﾆ簣ﾆ､ﾏｶ､ﾇ､ｹ｡｣ｹｹｿｷ､ｹ､､ﾈ､ｳ､ﾎ･ﾚ｡ｼ･ｸ､ﾏ<strong>ｺｽ</strong>､ｵ､､ﾞ､ｹ｡｣｡ﾋ</p>\n|;
379      &print_preview_buttons($page_name, $escapedmsg, $form{mydigest});      }
380      &print_footer;      &print_preview_buttons($page_name, $escapedmsg, $form{mydigest});
381  }      &print_footer;
382    }
383  sub print_preview_buttons {  
384      my ($page_name, $escapedmsg, $digest) = @_;  sub print_preview_buttons {
385      print <<"EOD";      my ($page_name, $escapedmsg, $digest) = @_;
386      <form action="$thisurl" method="post">      print <<"EOD";
387      <textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$escapedmsg</textarea>      <form action="$thisurl" method="post">
388      <br />      <textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$escapedmsg</textarea>
389      <input type="hidden" name="mypage" value="$page_name">      <br />
390      <input type="hidden" name="mydigest" value="$digest">      <input type="hidden" name="mypage" value="$page_name">
391      <input type="submit" name="myspecial_preview" value="再度プレビュー">      <input type="hidden" name="mydigest" value="$digest">
392      <input type="submit" name="myspecial_write" value="ページの更新">      <input type="submit" name="myspecial_preview" value="ｺﾆﾅﾙ･ﾗ･･ﾓ･蝪ｼ">
393      </form>      <input type="submit" name="myspecial_write" value="･ﾚ｡ｼ･ｸ､ﾎｹｹｿｷ">
394  EOD      </form>
395  }  EOD
396    }
397  # 書き込む  
398  sub do_write {  # ｽ､ｭｹ､
399      if (not &is_editable($form{mypage})) {  sub do_write {
400          # 編集不可ページは表示のみ      if (not &is_editable($form{mypage})) {
401          &do_read;          # ﾊﾔｽｸﾉﾔｲﾄ･ﾚ｡ｼ･ｸ､ﾏﾉｽｼｨ､ﾎ､ﾟ
402          return;          &do_read;
403      }          return;
404        }
405      my $page_name = $form{mypage};  
406        my $page_name = $form{mypage};
407      # digestを使って、更新の衝突チェック  
408      my $original_digest = &calc_message_digest(&get_page($page_name));      # digest､ｻﾈ､ﾃ､ﾆ｡｢ｹｹｿｷ､ﾎｾﾗﾆﾍ･ﾁ･ｧ･ﾃ･ｯ
409      if ($form{mydigest} ne $original_digest) {      my $original_digest = &calc_message_digest(&get_page($page_name));
410          &print_header($page_name);      if ($form{mydigest} ne $original_digest) {
411          print qq|<h1>$IconTag${page_name}で【更新の衝突】が起きました</h1>\n|;          &print_header($page_name);
412          print <<"EOD";          print qq|<h1>$IconTag${page_name}､ﾇ｡ﾚｹｹｿｷ､ﾎｾﾗﾆﾍ｡ﾛ､ｬｵｯ､ｭ､ﾞ､ｷ､ｿ</h1>\n|;
413  <p>あなたがこのページを編集している間に、          print <<"EOD";
414  他の人が同じページを更新してしまったようです。  <p>､｢､ﾊ､ｿ､ｬ､ｳ､ﾎ･ﾚ｡ｼ･ｸ､ﾊﾔｽｸ､ｷ､ﾆ､､､ｴﾖ､ﾋ｡｢
415  </p><p>  ﾂｾ､ﾎｿﾍ､ｬﾆｱ､ｸ･ﾚ｡ｼ･ｸ､ｹｹｿｷ､ｷ､ﾆ､ｷ､ﾞ､ﾃ､ｿ､隍ｦ､ﾇ､ｹ｡｣
416  以下に、あなたの編集したテキストがありますので、  </p><p>
417  あなたの編集内容が失われないように、  ｰﾊｲｼ､ﾋ｡｢､｢､ﾊ､ｿ､ﾎﾊﾔｽｸ､ｷ､ｿ･ﾆ･ｭ･ｹ･ﾈ､ｬ､｢､熙ﾞ､ｹ､ﾎ､ﾇ｡｢
418  いますぐ、メモ帳などにコピー＆ペーストしてください。  ､｢､ﾊ､ｿ､ﾎﾊﾔｽｸﾆ簣ﾆ､ｬｼｺ､､､ﾊ､､､隍ｦ､ﾋ｡｢
419  </p><p>  ､､､ﾞ､ｹ､ｰ｡｢･皈籠｢､ﾊ､ﾉ､ﾋ･ｳ･ﾔ｡ｼ｡･ﾚ｡ｼ･ｹ･ﾈ､ｷ､ﾆ､ｯ､ﾀ､ｵ､､｡｣
420  コピー＆ペーストが済んでから、  </p><p>
421  最新の内容を見て再度編集し直してください。  ･ｳ･ﾔ｡ｼ｡･ﾚ｡ｼ･ｹ･ﾈ､ｬｺﾑ､､ﾇ､ｫ､鬘｢
422  最新の内容は  ｺﾇｿｷ､ﾎﾆ簣ﾆ､ｸｫ､ﾆｺﾆﾅﾙﾊﾔｽｸ､ｷﾄｾ､ｷ､ﾆ､ｯ､ﾀ､ｵ､､｡｣
423  <a target="_blank" href="$thisurl?mycmd=read&mypage=$form{mypage}">$form{mypage}</a>  ｺﾇｿｷ､ﾎﾆ簣ﾆ､ﾏ
424  で見ることができます。  <a target="_blank" href="$thisurl?mycmd=read;mypage=$form{mypage}">$form{mypage}</a>
425  </p>  ､ﾇｸｫ､､ｳ､ﾈ､ｬ､ﾇ､ｭ､ﾞ､ｹ｡｣
426  EOD  </p>
427          # &print_toolbar($page_name);  EOD
428          &print_preview_buttons($page_name, &escape($form{mymsg}), $form{mydigest});          # &print_toolbar($page_name);
429          &print_footer;          &print_preview_buttons($page_name, &escape($form{mymsg}), $form{mydigest});
430          return;          &print_footer;
431      }          return;
432        }
433      # diff生成  
434      {      # diffﾀｸﾀｮ
435          &opendiff;      {
436          my @msg1 = split(/\n/, &get_page($page_name));          &opendiff;
437          my @msg2 = split(/\n/, $form{mymsg});          my @msg1 = split(/\n/, &get_page($page_name));
438          $msgrefA = \@msg1;          my @msg2 = split(/\n/, $form{mymsg});
439          $msgrefB = \@msg2;          $msgrefA = \@msg1;
440          &diff_check;          $msgrefB = \@msg2;
441          $diffbase{$form{mypage}} = $diff_text;          &diff_check;
442          $diff_text = '';          $diffbase{$form{mypage}} = $diff_text;
443          &closediff;          $diff_text = '';
444      }          &closediff;
445        }
446      &print_header($page_name);  
447      &set_page($page_name, $form{mymsg});      &print_header($page_name);
448      if ($form{mymsg}) {      &set_page($page_name, $form{mymsg});
449          print qq|<h1>$IconTag${page_name}を更新しました</h1>\n|;      if ($form{mymsg}) {
450          &print_toolbar($page_name);          print qq|<h1>$IconTag${page_name}､ｹｹｿｷ､ｷ､ﾞ､ｷ､ｿ</h1>\n|;
451          print &convert_html(&get_page($page_name));          &print_toolbar($page_name);
452      } else {          print &convert_html(&get_page($page_name));
453          print qq|<h1>$IconTag${page_name}を削除しました</h1>\n|;      } else {
454          &print_toolbar($page_name);          print qq|<h1>$IconTag${page_name}､ｺｽ､ｷ､ﾞ､ｷ､ｿ</h1>\n|;
455          print qq|<p>${page_name}を削除しました。</p>\n|;          &print_toolbar($page_name);
456      }          print qq|<p>${page_name}､ｺｽ､ｷ､ﾞ､ｷ､ｿ｡｣</p>\n|;
457      &print_footer;      }
458      # 更新されたのでタッチしておく。      &print_footer;
459      if ($touchfile) {      # ｹｹｿｷ､ｵ､､ｿ､ﾎ､ﾇ･ｿ･ﾃ･ﾁ､ｷ､ﾆ､ｪ､ｯ｡｣
460          open(FILE, "> $touchfile");      if ($touchfile) {
461          print FILE "\n";          open(FILE, "> $touchfile");
462          close(FILE);          print FILE "\n";
463      }          close(FILE);
464  }      }
465    }
466  # ページの変更点  
467  sub do_diff {  # ･ﾚ｡ｼ･ｸ､ﾎﾊﾑｹｹﾅﾀ
468      if (not &is_editable($form{mypage})) {  sub do_diff {
469          # 編集不可ページは表示のみ      if (not &is_editable($form{mypage})) {
470          &do_read;          # ﾊﾔｽｸﾉﾔｲﾄ･ﾚ｡ｼ･ｸ､ﾏﾉｽｼｨ､ﾎ､ﾟ
471          return;          &do_read;
472      }          return;
473      &opendiff;      }
474      &print_header($form{mypage} . 'の変更点');      &opendiff;
475      print qq|<h1>$IconTag <a href="$thisurl?mycmd=read&mypage=$form{mypage}">$form{mypage}</a>の変更点</h1>\n|;      &print_header($form{mypage} . '､ﾎﾊﾑｹｹﾅﾀ');
476      &print_toolbar();      print qq|<h1>$IconTag <a href="$thisurl?mycmd=read&mypage=$form{mypage}">$form{mypage}</a>､ﾎﾊﾑｹｹﾅﾀ</h1>\n|;
477      $_ = &escape($diffbase{$form{mypage}});      &print_toolbar();
478      print <<"EOD";      $_ = &escape($diffbase{$form{mypage}});
479  <ul>      print <<"EOD";
480  <li>追加された行は<font color="blue">青色</font>です。  <ul>
481  <li>削除された行は<font color="red">赤色</font>です。  <li>ﾄﾉｲﾃ､ｵ､､ｿｹﾔ､ﾏ<ins>ﾀﾄｿｧ</ins>､ﾇ､ｹ｡｣
482  <li><a href="$thisurl?mycmd=read&mypage=$form{mypage}">$form{mypage}</a>へ行く。  <li>ｺｽ､ｵ､､ｿｹﾔ､ﾏ<del>ﾀﾖｿｧ</del>､ﾇ､ｹ｡｣
483  </ul>  <li><a href="$thisurl?mycmd=read;mypage=$form{mypage}">$form{mypage}</a>､ﾘｹﾔ､ｯ｡｣
484  <hr />  </ul>
485  EOD  <hr />
486      print qq|<pre>\n|;  EOD
487      foreach (split(/\n/, $_)) {      print qq|<pre>\n|;
488          if (/^\+(.*)/) {      foreach (split(/\n/, $_)) {
489              print qq|<font color="blue">$1</font>\n|;          if (/^\+(.*)/) {
490          } elsif (/^\-(.*)/) {              print qq|<ins>$1</ins>\n|;
491              print qq|<font color="red">$1</font>\n|;          } elsif (/^\-(.*)/) {
492          } elsif (/^\=(.*)/) {              print qq|<del>$1</del>\n|;
493              print qq|$1\n|;          } elsif (/^\=(.*)/) {
494          } else {              print qq|$1\n|;
495              print qq|??? $_\n|;          } else {
496          }              print qq|??? $_\n|;
497      }          }
498      print qq|</pre>\n|;      }
499      &print_footer;      print qq|</pre>\n|;
500      &closediff;      &print_footer;
501  }      &closediff;
502    }
503  sub opendiff {  
504      if ($dbmopen) {  sub opendiff {
505          if (!dbmopen(%diffbase, $diffdbname, 0666)) {      if ($dbmopen) {
506              &print_error("(dbmopen) $diffdbname が作れません。");          if (!dbmopen(%diffbase, $diffdbname, 0666)) {
507          }              &print_error("(dbmopen) $diffdbname ､ｬｺ､､ﾞ､ｻ､｡｣");
508      } else {          }
509          if (!tie(%diffbase, "YukiWikiDB", $diffdbname)) {      } else {
510              &print_error("(tie error)");          if (!tie(%diffbase, "YukiWikiDB", $diffdbname)) {
511          }              &print_error("(tie error)");
512      }          }
513  }      }
514    }
515  sub closediff {  
516      if ($dbmopen) {  sub closediff {
517          dbmclose(%diffbase);      if ($dbmopen) {
518      } else {          dbmclose(%diffbase);
519          untie(%diffbase);      } else {
520      }          untie(%diffbase);
521  }      }
522    }
523  # フォームからの情報を連想配列 %form に入れる  
524  # &init_form('euc');  # ･ﾕ･ｩ｡ｼ･爨ｫ､鬢ﾎｾﾊ､ﾏ｢ﾁﾛﾇﾛﾎ %form ､ﾋﾆ､､
525  sub init_form {  # &init_form('euc');
526      my ($charcode) = @_;  sub init_form {
527      my $query;      my ($charcode) = @_;
528      if ($ENV{REQUEST_METHOD} =~ /^post$/i) {      my $query;
529          read(STDIN, $query, $ENV{CONTENT_LENGTH});      if ($ENV{REQUEST_METHOD} =~ /^post$/i) {
530      } else {          read(STDIN, $query, $ENV{CONTENT_LENGTH});
531          $query = $ENV{QUERY_STRING};      } else {
532      }          $query = $ENV{QUERY_STRING};
533      my @assocarray = split(/&/, $query);      }
534      foreach my $assoc (@assocarray) {      my @assocarray = split(/[&;]/, $query);
535          my ($property, $value) = split(/=/, $assoc);      foreach my $assoc (@assocarray) {
536          $value =~ tr/+/ /;          my ($property, $value) = split(/=/, $assoc);
537          $value =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg;          $value =~ tr/+/ /;
538          &jcode::convert(\$value, $charcode);          $value =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg;
539          $form{$property} = $value;          &jcode::convert(\$value, $charcode);
540      }          $form{$property} = $value;
541  }      }
542    }
543  # エラーページを出力する  
544  sub print_error {  # ･ｨ･鬘ｼ･ﾚ｡ｼ･ｸ､ｽﾐﾎﾏ､ｹ､
545      my ($msg) = @_;  sub print_error {
546      &print_header('Error');      my ($msg) = @_;
547      print "<h1>$IconTag$msg</h1></body></html>";      &print_header('Error');
548      exit(0);      print "<h1>$IconTag$msg</h1></body></html>";
549  }      exit(0);
550    }
551  sub escape {  
552      my ($line) = shift;  sub escape {
553      $line =~ s|<|&lt;|g;      my ($line) = shift;
554      $line =~ s|>|&gt;|g;      $line =~ s|<|&lt;|g;
555      $line =~ s|"|&quot;|g;      $line =~ s|>|&gt;|g;
556      # $line =~ s|\&|&amp;|g;      $line =~ s|"|&quot;|g;
557      return $line;      # $line =~ s|\&|&amp;|g;
558  }      return $line;
559    }
560  sub inline {  
561      my ($line) = shift;  sub inline {
562      $line = &escape($line);      my ($line) = shift;
563      $line =~ s|'''([^']+?)'''|<i>$1</i>|g;              # Italic      $line = &escape($line);
564      $line =~ s|''([^']+?)''|<b>$1</b>|g;                # Bold      $line =~ s|'''([^']+?)'''|<strong>$1</strong>|g;
565      $line =~ s!      $line =~ s|''([^']+?)''|<em>$1</em>|g;          
566                  (      $line =~ s!
567                      ((mailto|http|https|ftp):[\x21-\x7E]*) # Direct http://...                  (
568                          |                      ((mailto|http|https|ftp):[\x21-\x7E]*) # Direct http://...
569                      ($WikiName)                         # LocalLinkLikeThis                          |
570                          |                      ($WikiName)                         # LocalLinkLikeThis
571                      ($BracketName)                      # [[日本語リンク]]                          |
572                  )                      ($BracketName)                      # [[ﾆﾋﾜｸ･･･ｯ]]
573              !                  )
574                  &make_link($1)              !
575              !gex;                  &make_link($1)
576      return $line;              !gex;
577  }      return $line;
578    }
579  # ページのタイトルからページの内容を得る  
580  sub get_page {  # ･ﾚ｡ｼ･ｸ､ﾎ･ｿ･､･ﾈ･､ｫ､鬣ﾚ｡ｼ･ｸ､ﾎﾆ簣ﾆ､ﾆﾀ､
581      my $page_name = shift;  sub get_page {
582      return $database{$page_name};      my $page_name = shift;
583  }      return $database{$page_name};
584    }
585  # ページの内容を与える  
586  # &set_page($title, $txt)  # ･ﾚ｡ｼ･ｸ､ﾎﾆ簣ﾆ､ﾍｿ､ｨ､
587  sub set_page {  # &set_page($title, $txt)
588      # ページを更新する  sub set_page {
589      my $title = $_[0];      # ･ﾚ｡ｼ･ｸ､ｹｹｿｷ､ｹ､
590      $database{$title} = $_[1];      my $title = $_[0];
591      # 空ページなら削除する      $database{$title} = $_[1];
592      unless ($database{$title}) {      # ｶ･ﾚ｡ｼ･ｸ､ﾊ､鮗ｽ､ｹ､
593          delete $database{$title};      unless ($database{$title}) {
594      }          delete $database{$title};
595      # RecentChangesを更新する      }
596      my $delim = ' - ';      # RecentChanges､ｹｹｿｷ､ｹ､
597      my @pages = split(/\n/, $database{$whatsnew});      my $delim = ' - ';
598      my $datestr = &get_current_datestr;      my @pages = split(/\n/, $database{$whatsnew});
599      unshift(@pages, qq|-$datestr$delim$title|);      my $datestr = &get_current_datestr;
600      # 同一ページの更新は最新のもののみにし、      unshift(@pages, qq|-$datestr$delim$title|);
601      # 存在しないページはスキップする。      # ﾆｱｰ･ﾚ｡ｼ･ｸ､ﾎｹｹｿｷ､ﾏｺﾇｿｷ､ﾎ､筅ﾎ､ﾎ､ﾟ､ﾋ､ｷ｡｢
602      my %count;      # ﾂｸｺﾟ､ｷ､ﾊ､､･ﾚ｡ｼ･ｸ､ﾏ･ｹ･ｭ･ﾃ･ﾗ､ｹ､｡｣
603      my @newpages;      my %count;
604      foreach my $line (@pages) {      my @newpages;
605          my ($prefix, $title) = split(/$delim/, $line);      foreach my $line (@pages) {
606          $count{$title}++;          my ($prefix, $title) = split(/$delim/, $line);
607          if ($count{$title} == 1 and exists($database{$title})) {          $count{$title}++;
608              push(@newpages, qq|$prefix - $title|);          if ($count{$title} == 1 and exists($database{$title})) {
609          }              push(@newpages, qq|$prefix - $title|);
610      }          }
611      # ここで本当に更新      }
612      $database{$whatsnew} = join("\n", splice(@newpages, 0, $maxnew));      # ､ｳ､ｳ､ﾇﾋﾜﾅ､ﾋｹｹｿｷ
613  }      $database{$whatsnew} = join("\n", splice(@newpages, 0, $maxnew));
614    }
615  # ページのヘッダを出力  
616  sub print_header {  # ･ﾚ｡ｼ･ｸ､ﾎ･ﾘ･ﾃ･ﾀ､ｽﾐﾎﾏ
617      my $title = shift;  sub print_header {
618      print <<"EOD";      my $title = shift;
619  Content-type: text/html      print <<"EOD";
620    Content-type: text/html
621  <html><head>  
622  <title>$title</title>  <html><head>
623  <style type="text/css">  <title>$title</title>
624  <!--  <style type="text/css">
625  $style  $style
626  -->  </style>
627  </style>  </head>
628  </head>  <body>
629  <body bgcolor="white">  EOD
630  EOD  }
631  }  
632    # ･ﾄ｡ｼ･･ﾐ｡ｼ､ｽﾐﾎﾏ
633  # ツールバーを出力  sub print_toolbar {
634  sub print_toolbar {      my $page_name = shift;
635      my $page_name = shift;      my $percent_name = &encode_percent($page_name);
636      my $percent_name = &encode_percent($page_name);      my $editlink = '';
637      my $editlink = '';      if ($page_name ne '' and &is_editable($page_name)) {
638      if ($page_name ne '' and &is_editable($page_name)) {          $editlink = <<"EOD";
639          $editlink = <<"EOD";  <a href="$thisurl?mycmd=edit;mypage=$percent_name">ﾊﾔｽｸ</a> |
640  <a href="$thisurl?mycmd=edit&mypage=$percent_name">編集</a> |  <a href="$thisurl?mycmd=diff;mypage=$percent_name">ｺｹﾊｬ</a> |
641  <a href="$thisurl?mycmd=diff&mypage=$percent_name">差分</a> |  EOD
642  EOD      }
643      }      print <<"EOD";
644      print <<"EOD";  <p>
645  <p>   [
646   [  <a href="$thisurl?mycmd=read;mypage=$toppage">･ﾈ･ﾃ･ﾗ</a> |
647  <a href="$thisurl?mycmd=read&mypage=$toppage">トップ</a> |  <a href="$thisurl?mycmd=list">ｰﾍ</a> |
648  <a href="$thisurl?mycmd=list">一覧</a> |  $editlink
649  $editlink  <a href="$thisurl?mycmd=search">ﾃｱｸｸ｡ｺ</a> |
650  <a href="$thisurl?mycmd=search">単語検索</a> |  <a href="$thisurl?mycmd=read;mypage=$whatsnew">ｺﾇｽｪｹｹｿｷ</a>
651  <a href="$thisurl?mycmd=read&mypage=$whatsnew">最終更新</a>   ]
652   ]  </p>
653  </p>  EOD
654  EOD  }
655  }  
656    # ･ﾚ｡ｼ･ｸ､ﾎ･ﾕ･ﾃ･ｿ､ｽﾐﾎﾏ
657  # ページのフッタを出力  sub print_footer {
658  sub print_footer {      print <<"EOD";
659      print <<"EOD";  <address>
660  <hr>  <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>
661  <p>  + <a href="$modifierlink">$modifier</a> ${version}.
662  <a href="http://www.hyuki.com/yukiwiki/">YukiWiki</a> $version Copyright (C) 2000,2001 by <a href="http://www.hyuki.com/">Hiroshi Yuki.</a><br />  [<a href="/" title="､ｳ､ﾎ･ｵ｡ｼ･ﾐ｡ｼ､ﾎｼﾊﾇ">/</a>
663  Modified by <a href="$modifierlink">$modifier</a>.<br/>  <a href="/map" title="､ｳ､ﾎ･ｵ｡ｼ･ﾐ｡ｼ､ﾎｰﾆﾆ">ﾃﾏｿﾞ</a>
664  </p>  <a href="/search/" title="､ｳ､ﾎ･ｵ｡ｼ･ﾐ｡ｼ､ﾎｸ｡ｺ">ｸ｡ｺ</a>]
665  </body></html>  </address>
666  EOD  </body></html>
667  }  EOD
668    }
669  # URLやページの名前からリンクを作る  
670  sub make_link {  # URL､茹ﾚ｡ｼ･ｸ､ﾎﾌｾﾁｰ､ｫ､鬣･･ｯ､ｺ､
671      my $name = shift;  sub make_link {
672      if ($name =~ /^(http|https|ftp).*?(\.gif|\.png|\.jpeg|\.jpg)?$/) {      my $name = shift;
673          if ($2) {      if ($name =~ /^(http|https|ftp).*?(\.gif|\.png|\.jpeg|\.jpg)?$/) {
674              return qq|<a href="$name"><img border="0" src="$name" /></a>|;          if ($2) {
675          } else {              return qq|<a href="$name"><img border="0" src="$name" /></a>|;
676              return qq|<a href="$name">$name</a>|;          } else {
677          }              return qq|<a href="$name">$name</a>|;
678      } elsif ($name =~ /^mailto:(.*)/) {          }
679          my $address = $1;      } elsif ($name =~ /^mailto:(.*)/) {
680          return qq|<a href="$name">$address</a>|;          my $address = $1;
681      } elsif ($database{$name}) {          return qq|<a href="$name">$address</a>|;
682          my $percent_name = &encode_percent($name);      } elsif ($database{$name}) {
683          return qq|<a href="$thisurl?mycmd=read&mypage=$percent_name">$name</a>|;          my $percent_name = &encode_percent($name);
684      } else {          return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name">$name</a>|;
685          my $percent_name = &encode_percent($name);      } else {
686          return qq|$name<a href="$thisurl?mycmd=edit&mypage=$percent_name">?</a>|;          my $percent_name = &encode_percent($name);
687      }          return qq|$name<a href="$thisurl?mycmd=edit;mypage=$percent_name">?</a>|;
688  }      }
689    }
690  # %xx の形式にエンコードする  
691  # これは、  # %xx ､ﾎｷﾁｼｰ､ﾋ･ｨ･･ｳ｡ｼ･ﾉ､ｹ､
692  # http://www.hyuki.com/yukiwiki/yukiwiki.cgi?mycmd=read&mypage=%3C%8C%8B%8F%E9%8D_%3E  # ､ｳ､､ﾏ｡｢
693  # という形式のために使われる。  # http://www.hyuki.com/yukiwiki/yukiwiki.cgi?mycmd=read&mypage=%3C%8C%8B%8F%E9%8D_%3E
694  # '<結城浩>' → '%3C%8C%8B%8F%E9%8D_%3E'  # ､ﾈ､､､ｦｷﾁｼｰ､ﾎ､ｿ､皃ﾋｻﾈ､､､｡｣
695  sub encode_percent {  # '<ｷｾｹﾀ>' ｢ｪ '%3C%8C%8B%8F%E9%8D_%3E'
696      my $name = shift;  sub encode_percent {
697      my $encoded = '';      my $name = shift;
698      foreach my $ch (split(//, $name)) {      my $encoded = '';
699          if ($ch =~ /[A-Za-z0-9_]/) {      foreach my $ch (split(//, $name)) {
700              $encoded .= $ch;          if ($ch =~ /[A-Za-z0-9_]/) {
701          } else {              $encoded .= $ch;
702              $encoded .= '%' . sprintf("%02X", ord($ch));          } else {
703          }              $encoded .= '%' . sprintf("%02X", ord($ch));
704      }          }
705      return $encoded;      }
706  }      return $encoded;
707    }
708  # テキスト本体をHTMLに変換する  
709  sub convert_html {  # ･ﾆ･ｭ･ｹ･ﾈﾋﾜﾂﾎ､HTML､ﾋﾊﾑｴｹ､ｹ､
710      my ($txt) = shift;  sub convert_html {
711      my (@txt) = split(/\n/, $txt);      my ($txt) = shift;
712      foreach (@txt) {      my (@txt) = split(/\n/, $txt);
713          chomp;      foreach (@txt) {
714          if (/^\*\*(.*)/) {          chomp;
715              push(@result, splice(@saved), '<h3>' . &inline($1) . '</h3>');          if (/^\*\*(.*)/) {
716          } elsif (/^\*(.*)/) {              push(@result, splice(@saved), '<h3>' . &inline($1) . '</h3>');
717              push(@result, splice(@saved), '<h2>' . &inline($1) . '</h2>');          } elsif (/^\*(.*)/) {
718          } elsif (/^----/) {              push(@result, splice(@saved), '<h2>' . &inline($1) . '</h2>');
719              push(@result, splice(@saved), '<hr>');          } elsif (/^----/) {
720          } elsif (/^(-{1,3})(.*)/) {              push(@result, splice(@saved), '<hr>');
721              &back_push('ul', length($1));          } elsif (/^(-{1,3})(.*)/) {
722              push(@result, '<li>' . &inline($2) . '</li>');              &back_push('ul', length($1));
723          } elsif (/^:([^:]+):(.*)/) {              push(@result, '<li>' . &inline($2) . '</li>');
724              &back_push('dl', 1);          } elsif (/^:([^:]+):(.*)/) {
725              push(@result, '<dt>' . &inline($1) . '</dt>', '<dd>' . &inline($2) . '</dd>');              &back_push('dl', 1);
726          } elsif (/^(>{1,3})(.*)/) {              push(@result, '<dt>' . &inline($1) . '</dt>', '<dd>' . &inline($2) . '</dd>');
727              &back_push('blockquote', length($1));          } elsif (/^(>{1,3})(.*)/) {
728              push(@result, &inline($2));              &back_push('blockquote', length($1));
729          } elsif (/^\s*$/) {              push(@result, &inline($2));
730              push(@result, splice(@saved));          } elsif (/^\s*$/) {
731              unshift(@saved, "</p>");              push(@result, splice(@saved));
732              push(@result, "<p>");              unshift(@saved, "</p>");
733          } elsif (/^(\s+.*)$/) {              push(@result, "<p>");
734              &back_push('pre', 1);          } elsif (/^(\s+.*)$/) {
735              push(@result, &escape($1)); # Not &inline, but &escape              &back_push('pre', 1);
736          } else {              push(@result, &escape($1)); # Not &inline, but &escape
737              push(@result, &inline($_));          } else {
738          }              push(@result, &inline($_));
739      }          }
740      push(@result, splice(@saved));      }
741      return join("\n", @result);      push(@result, splice(@saved));
742  }      return join("\n", @result);
743    }
744  # &back_push($tag, $count)  
745  # $tagのタグを$levelレベルまで詰める。  # &back_push($tag, $count)
746  sub back_push {  # $tag､ﾎ･ｿ･ｰ､$level･･ﾙ･､ﾞ､ﾇｵﾍ､皃｡｣
747      my ($tag, $level) = @_;  sub back_push {
748      while (@saved > $level) {      my ($tag, $level) = @_;
749          push(@result, shift(@saved));      while (@saved > $level) {
750      }          push(@result, shift(@saved));
751      if ($saved[0] ne "</$tag>") {      }
752          push(@result, splice(@saved));      if ($saved[0] ne "</$tag>") {
753      }          push(@result, splice(@saved));
754      while (@saved < $level) {      }
755          unshift(@saved, "</$tag>");      while (@saved < $level) {
756          push(@result, "<$tag>");          unshift(@saved, "</$tag>");
757      }          push(@result, "<$tag>");
758  }      }
759    }
760  # 編集可能ページか？  
761  sub is_editable {  # ﾊﾔｽｸｲﾄﾇｽ･ﾚ｡ｼ･ｸ､ｫ｡ｩ
762      my ($pagename) = @_;  sub is_editable {
763      foreach (@uneditable) {      my ($pagename) = @_;
764          if ($pagename eq $_) {      foreach (@uneditable) {
765              return 0;          if ($pagename eq $_) {
766          }              return 0;
767      }          }
768      if (&is_valid_name($pagename)) {      }
769          return 1;      if (&is_valid_name($pagename)) {
770      }          return 1;
771      return 0;      }
772  }      return 0;
773    }
774  # Validな名前か？  
775  sub is_valid_name {  # Valid､ﾊﾌｾﾁｰ､ｫ｡ｩ
776      my ($pagename) = @_;  sub is_valid_name {
777      if ($pagename =~ /^$WikiName$/) {      my ($pagename) = @_;
778          return 1;      if ($pagename =~ /^$WikiName$/) {
779      } elsif ($pagename =~ /^$BracketName$/) {          return 1;
780          return 1;      } elsif ($pagename =~ /^$BracketName$/) {
781      } else {          return 1;
782          return 0;      } else {
783      }          return 0;
784  }      }
785    }
786  # 現在時刻の文字列を得る  
787  sub get_current_datestr {  # ｸｽｺﾟｻｹ､ﾎﾊｸｻﾎ､ﾆﾀ､
788      my (@wdays) = ( "日", "月", "火", "水", "木", "金", "土" );  sub get_current_datestr {
789      my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);      my (@wdays) = ( "ﾆ", "ｷ", "ｲﾐ", "ｿ", "ﾌﾚ", "ｶ", "ﾅﾚ" );
790      return sprintf("%4d-%02d-%02d (%s) %02d:%02d:%02d",      my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
791          $year + 1900, $mon + 1, $mday, $wdays[$wday], $hour, $min, $sec);      return sprintf("%4d-%02d-%02d (%s) %02d:%02d:%02d",
792  }          $year + 1900, $mon + 1, $mday, $wdays[$wday], $hour, $min, $sec);
793    }
794  # URL?SomePageや、  
795  # URL?[[結城浩]]の形式だった場合、(not yet)  # URL?SomePage､茖｢
796  # 強制的にmycmdをreadにして$formの内容を設定する。  # URL?[[ｷｾｹﾀ]]､ﾎｷﾁｼｰ､ﾀ､ﾃ､ｿｾｹ遑｢(not yet)
797  sub normalize_form {  # ｶｯﾀｩﾅｪ､ﾋmycmd､read､ﾋ､ｷ､ﾆ$form､ﾎﾆ簣ﾆ､ﾀﾟﾄ熙ｹ､｡｣
798      foreach my $key (keys %form) {  sub normalize_form {
799          if ($key =~ /^$WikiName$/) {      foreach my $key (keys %form) {
800              $form{mycmd} = 'read';          if ($key =~ /^$WikiName$/) {
801              $form{mypage} = $1;              $form{mycmd} = 'read';
802              last;              $form{mypage} = $1;
803          } elsif ($key =~ /^$BracketName$/) {              last;
804              $form{mycmd} = 'read';          } elsif ($key =~ /^$BracketName$/) {
805              $form{mypage} = $1;              $form{mycmd} = 'read';
806              last;              $form{mypage} = $1;
807          }              last;
808      }          }
809  }      }
810    }
811  # 変換テストを行なうときのサンプル  
812  sub print_sample {  # ﾊﾑｴｹ･ﾆ･ｹ･ﾈ､ｹﾔ､ﾊ､ｦ､ﾈ､ｭ､ﾎ･ｵ･･ﾗ･
813      my $txt = &convert_html(<<"EOD");  sub print_sample {
814  *大見出し1      my $txt = &convert_html(<<"EOD");
815  **小見出し1-1  *ﾂ邵ｫｽﾐ､ｷ1
816  -項目1  **ｾｮｸｫｽﾐ､ｷ1-1
817  -項目2  -ｹ猯ﾜ1
818  -項目3  -ｹ猯ﾜ2
819  段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1  -ｹ猯ﾜ3
820  段落1段落1段落1段落1段落1段落''強調''1段落1段落1段落1段落1段落1  ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
821  段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1  ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ''ｶｯﾄｴ''1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
822    ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
823  段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2  
824  段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2  ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2
825  段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2  ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2
826  **小見出し1-2  ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2
827  :用語1:いろいろ書いた解説文1と''強調単語''  **ｾｮｸｫｽﾐ､ｷ1-2
828  段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1  :ﾍﾑｸ1:､､､､､､ｽ､､､ｿｲﾀ簗ｸ1､ﾈ''ｶｯﾄｴﾃｱｸ''
829  段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1  ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
830  段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1  ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
831  :用語2:いろいろ書いた解説文2  ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
832  :用語3:いろいろ書いた解説文3  :ﾍﾑｸ2:､､､､､､ｽ､､､ｿｲﾀ簗ｸ2
833  ----  :ﾍﾑｸ3:､､､､､､ｽ､､､ｿｲﾀ簗ｸ3
834  *大見出し2  ----
835  **小見出し2-1  *ﾂ邵ｫｽﾐ､ｷ2
836  http://www.hyuki.com/  **ｾｮｸｫｽﾐ､ｷ2-1
837  **小見出し2-2  http://www.hyuki.com/
838    **ｾｮｸｫｽﾐ､ｷ2-2
839  [[結城浩]]  
840    [[ｷｾｹﾀ]]
841  段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1  
842  段落1段落1段落1段落'''イタリック'''1段落1段落1段落1段落1段落1段落1段落1  ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
843  段落1段落1段落1段落'''''イタボールド'''''1段落1段落1段落1段落1段落1段落1段落1段落1  ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ'''ｶｯﾄｴ'''1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
844  >段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2  ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ'''''ｶｯ､､ｶｯﾄｴ'''''1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
845  >段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2  >ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2
846  >段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2  >ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2
847    >ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2
848  レベル0レベル0レベル0レベル0レベル0レベル0  
849    ･･ﾙ･0･･ﾙ･0･･ﾙ･0･･ﾙ･0･･ﾙ･0･･ﾙ･0
850  >レベル1  
851  >レベル1  >･･ﾙ･1
852  >レベル1  >･･ﾙ･1
853  >>レベル2  >･･ﾙ･1
854  >>レベル2  >>･･ﾙ･2
855  >>レベル2  >>･･ﾙ･2
856  >>>レベル3  >>･･ﾙ･2
857  -はろ1  >>>･･ﾙ･3
858  --はろ2  -､ﾏ､1
859  ろろろろ2  --､ﾏ､2
860  ---はろ3  ､､､､2
861  --はろ2  ---､ﾏ､3
862  ---はろ3  --､ﾏ､2
863  --はろ2  ---､ﾏ､3
864  ---はろ3  --､ﾏ､2
865  >>>レベル3  ---､ﾏ､3
866  >>>レベル3  >>>･･ﾙ･3
867  >>>レベル3  >>>･･ﾙ･3
868  EOD  >>>･･ﾙ･3
869      print $txt;  EOD
870      exit;      print $txt;
871  }      exit;
872    }
873  sub diff_check {  
874      traverse_sequences(  sub diff_check {
875              $msgrefA, $msgrefB,      traverse_sequences(
876              {              $msgrefA, $msgrefB,
877                  MATCH => \&df_match,              {
878                  DISCARD_A => \&df_delete,                  MATCH => \&df_match,
879                  DISCARD_B => \&df_add,                  DISCARD_A => \&df_delete,
880              }                  DISCARD_B => \&df_add,
881      );              }
882      &diff_flush;      );
883  }      &diff_flush;
884    }
885  sub diff_flush {  
886      $diff_text .= join('', map { "-$_\n" } splice(@diff_deleted));  sub diff_flush {
887      $diff_text .= join('', map { "+$_\n" } splice(@diff_added));      $diff_text .= join('', map { "-$_\n" } splice(@diff_deleted));
888  }      $diff_text .= join('', map { "+$_\n" } splice(@diff_added));
889    }
890  sub df_match {  
891      my ($a, $b) = @_;  sub df_match {
892      &diff_flush;      my ($a, $b) = @_;
893      $diff_text .= "=$msgrefA->[$a]\n";      &diff_flush;
894  }      $diff_text .= "=$msgrefA->[$a]\n";
895    }
896  sub df_delete {  
897      my ($a, $b) = @_;  sub df_delete {
898      push(@diff_deleted, $msgrefA->[$a]);      my ($a, $b) = @_;
899  }      push(@diff_deleted, $msgrefA->[$a]);
900    }
901  sub df_add {  
902      my ($a, $b) = @_;  sub df_add {
903      push(@diff_added, $msgrefB->[$b]);      my ($a, $b) = @_;
904  }      push(@diff_added, $msgrefB->[$b]);
905    }
906  sub calc_message_digest {   # You have to use MD5...  
907      my $text = shift;  sub calc_message_digest {   # You have to use MD5...
908      my @text = split(//, $text);      my $text = shift;
909      my $len = length($text);      my @text = split(//, $text);
910      my $checksum = 0;      my $len = length($text);
911      foreach (@text) {      my $checksum = 0;
912          $checksum += ord($_);      foreach (@text) {
913          $checksum = ($checksum * 2) % 65536 + (($checksum & 32768) ? 1 : 0); # 16bit rotate          $checksum += ord($_);
914      }          $checksum = ($checksum * 2) % 65536 + (($checksum & 32768) ? 1 : 0); # 16bit rotate
915      return "$len:$checksum";      }
916  }      return "$len:$checksum";
917    }
918  # Definition of YukiWikiDB  
919  package YukiWikiDB;  # Definition of YukiWikiDB
920    package YukiWikiDB;
921  my $debug = 1;  
922    my $debug = 1;
923  # Constructor  
924  sub new {  # Constructor
925      return shift->TIEHASH(@_);  sub new {
926  }      return shift->TIEHASH(@_);
927    }
928  # tying  
929  sub TIEHASH {  # tying
930      my ($class, $dbname) = @_;  sub TIEHASH {
931      my $self = {      my ($class, $dbname) = @_;
932          dir => $dbname,      my $self = {
933          keys => [],          dir => $dbname,
934      };          keys => [],
935      if (not -d $self->{dir}) {      };
936          if (!mkdir($self->{dir}, 0777)) {      if (not -d $self->{dir}) {
937              print "mkdir(" . $self->{dir} . ") fail\n" if ($debug);          if (!mkdir($self->{dir}, 0777)) {
938              return undef;              print "mkdir(" . $self->{dir} . ") fail\n" if ($debug);
939          }              return undef;
940      }          }
941      return bless($self, $class);      }
942  }      return bless($self, $class);
943    }
944  # Store  
945  sub STORE {  # Store
946      my ($self, $key, $val) = @_;  sub STORE {
947      my $file = &make_filename($self, $key);      my ($self, $key, $val) = @_;
948      if (open(FILE,"> $file")) {      my $file = &make_filename($self, $key);
949          binmode(FILE);      if (open(FILE,"> $file")) {
950          print FILE $val;          binmode(FILE);
951          close(FILE);          print FILE $val;
952          return $self->{$key} = $val;          close(FILE);
953      } else {          return $self->{$key} = $val;
954          print "$file create error.";      } else {
955      }          print "$file create error.";
956  }      }
957    }
958  # Fetch  
959  sub FETCH {  # Fetch
960      my ($self, $key) = @_;  sub FETCH {
961      my $file = &make_filename($self, $key);      my ($self, $key) = @_;
962      if (open(FILE, $file)) {      my $file = &make_filename($self, $key);
963          local $/;      if (open(FILE, $file)) {
964          $self->{$key} = <FILE>;          local $/;
965          close(FILE);          $self->{$key} = <FILE>;
966      }          close(FILE);
967      return $self->{$key};      }
968  }      return $self->{$key};
969    }
970  # Exists  
971  sub EXISTS {  # Exists
972      my ($self, $key) = @_;  sub EXISTS {
973      my $file = &make_filename($self, $key);      my ($self, $key) = @_;
974      return -e($file);      my $file = &make_filename($self, $key);
975  }      return -e($file);
976    }
977  # Delete  
978  sub DELETE {  # Delete
979      my ($self, $key) = @_;  sub DELETE {
980      my $file = &make_filename($self, $key);      my ($self, $key) = @_;
981      unlink $file;      my $file = &make_filename($self, $key);
982      return delete $self->{$key};      unlink $file;
983  }      return delete $self->{$key};
984    }
985  sub FIRSTKEY {  
986      my ($self) = @_;  sub FIRSTKEY {
987      opendir(DIR, $self->{dir}) or die $self->{dir};      my ($self) = @_;
988      @{$self->{keys}} = grep /\.txt$/, readdir(DIR);      opendir(DIR, $self->{dir}) or die $self->{dir};
989      foreach my $name (@{$self->{keys}}) {      @{$self->{keys}} = grep /\.txt$/, readdir(DIR);
990          $name =~ s/\.txt$//;      foreach my $name (@{$self->{keys}}) {
991          $name =~ s/[0-9A-F][0-9A-F]/pack("C", hex($&))/eg;          $name =~ s/\.txt$//;
992      }          $name =~ s/[0-9A-F][0-9A-F]/pack("C", hex($&))/eg;
993      return shift @{$self->{keys}};      }
994  }      return shift @{$self->{keys}};
995    }
996  sub NEXTKEY {  
997      my ($self) = @_;  sub NEXTKEY {
998      return shift @{$self->{keys}};      my ($self) = @_;
999  }      return shift @{$self->{keys}};
1000    }
1001  sub make_filename {  
1002      my ($self, $key) = @_;  sub make_filename {
1003      my $enkey = '';      my ($self, $key) = @_;
1004      foreach my $ch (split(//, $key)) {      my $enkey = '';
1005          $enkey .= sprintf("%02X", ord($ch));      foreach my $ch (split(//, $key)) {
1006      }          $enkey .= sprintf("%02X", ord($ch));
1007      return $self->{dir} . "/$enkey.txt";      }
1008  }      return $self->{dir} . "/$enkey.txt";
1009  __END__  }
1010    __END__
1011  =head1 NAME  
1012    =head1 NAME
1013  YukiWiki - 自由にページを追加・削除・編集できるWebページ構築CGI  
1014    YukiWiki - ｼｫﾍｳ､ﾋ･ﾚ｡ｼ･ｸ､ﾄﾉｲﾃ｡ｦｺｽ｡ｦﾊﾔｽｸ､ﾇ､ｭ､Web･ﾚ｡ｼ･ｸｹｽﾃﾛCGI
1015      Copyright (C) 2000,2001 by Hiroshi Yuki.  
1016      結城浩 <hyuki@hyuki.com>      Copyright (C) 2000,2001 by Hiroshi Yuki.
1017      http://www.hyuki.com/      ｷｾｹﾀ <hyuki@hyuki.com>
1018      http://www.hyuki.com/yukiwiki/      http://www.hyuki.com/
1019        http://www.hyuki.com/yukiwiki/
1020  =head1 SYNOPSIS  
1021    =head1 SYNOPSIS
1022      http://www.hyuki.com/yukiwiki/yukiwiki.cgi  
1023        http://www.hyuki.com/yukiwiki/yukiwiki.cgi
1024  =head1 DESCRIPTION  
1025    =head1 DESCRIPTION
1026  YukiWiki（結城ウィキィ）は参加者が自由にページを追加・削除・編集できる  
1027  不思議なWebページ群を作るCGIです。  YukiWiki｡ﾊｷｾ･ｦ･｣･ｭ･｣｡ﾋ､ﾏｻｲｲﾃｼﾔ､ｬｼｫﾍｳ､ﾋ･ﾚ｡ｼ･ｸ､ﾄﾉｲﾃ｡ｦｺｽ｡ｦﾊﾔｽｸ､ﾇ､ｭ､
1028  Webで動作する掲示板とちょっと似ていますが、  ﾉﾔｻﾗｵﾄ､ﾊWeb･ﾚ｡ｼ･ｸｷｲ､ｺ､CGI､ﾇ､ｹ｡｣
1029  Web掲示板が単にメッセージを追加するだけなのに対して、  Web､ﾇﾆｰｺ､ｹ､ｷﾇｼｨﾈﾄ､ﾈ､ﾁ､遉ﾃ､ﾈｻ､ﾆ､､､ﾞ､ｹ､ｬ｡｢
1030  YukiWikiは、Webページ全体を自由に変更することができます。  Webｷﾇｼｨﾈﾄ､ｬﾃｱ､ﾋ･皈ﾃ･ｻ｡ｼ･ｸ､ﾄﾉｲﾃ､ｹ､､ﾀ､ｱ､ﾊ､ﾎ､ﾋﾂﾐ､ｷ､ﾆ｡｢
1031    YukiWiki､ﾏ｡｢Web･ﾚ｡ｼ･ｸﾁｴﾂﾎ､ｼｫﾍｳ､ﾋﾊﾑｹｹ､ｹ､､ｳ､ﾈ､ｬ､ﾇ､ｭ､ﾞ､ｹ｡｣
1032  YukiWikiは、Cunningham & CunninghamのWikiWikiWebの  
1033  仕様を参考にして独自に作られました。  YukiWiki､ﾏ｡｢Cunningham & Cunningham､ﾎWikiWikiWeb､ﾎ
1034    ｻﾅﾍﾍ､ｻｲｹﾍ､ﾋ､ｷ､ﾆﾆﾈｼｫ､ﾋｺ､鬢､ﾞ､ｷ､ｿ｡｣
1035  YukiWikiはPerlで書かれたCGIスクリプトとして実現されていますので、  
1036  Perlが動作するWebサーバならば比較的容易に設置できます。  YukiWiki､ﾏPerl､ﾇｽ､ｫ､､ｿCGI･ｹ･ｯ･･ﾗ･ﾈ､ﾈ､ｷ､ﾆｼﾂｸｽ､ｵ､､ﾆ､､､ﾞ､ｹ､ﾎ､ﾇ｡｢
1037    Perl､ｬﾆｰｺ､ｹ､Web･ｵ｡ｼ･ﾐ､ﾊ､鬢ﾐﾈ豕ﾓﾅｪﾍﾆｰﾗ､ﾋﾀﾟﾃﾖ､ﾇ､ｭ､ﾞ､ｹ｡｣
1038  あとはdbmopenが使える環境ならば設置できます(Version 1.5.0以降ならdbmopenが使えなくても設置できます)。  
1039    ､｢､ﾈ､ﾏdbmopen､ｬｻﾈ､ｨ､ｴﾄｶｭ､ﾊ､鬢ﾐﾀﾟﾃﾖ､ﾇ､ｭ､ﾞ､ｹ(Version 1.5.0ｰﾊｹﾟ､ﾊ､馘bmopen､ｬｻﾈ､ｨ､ﾊ､ｯ､ﾆ､簑ﾟﾃﾖ､ﾇ､ｭ､ﾞ､ｹ)｡｣
1040    
1041  YukiWikiはフリーソフトです。  
1042  ご自由にお使いください。  YukiWiki､ﾏ･ﾕ･遙ｼ･ｽ･ﾕ･ﾈ､ﾇ､ｹ｡｣
1043    ､ｴｼｫﾍｳ､ﾋ､ｪｻﾈ､､､ｯ､ﾀ､ｵ､､｡｣
1044  =head1 設置方法  
1045    =head1 ﾀﾟﾃﾖﾊﾋ｡
1046  =head2 入手  
1047    =head2 ﾆｼ
1048  YukiWikiの最新版は、  
1049  http://www.hyuki.com/yukiwiki/  YukiWiki､ﾎｺﾇｿｷﾈﾇ､ﾏ｡｢
1050  から入手できます。  http://www.hyuki.com/yukiwiki/
1051    ､ｫ､鯣ｼ熙ﾇ､ｭ､ﾞ､ｹ｡｣
1052  =head2 ファイル一覧  
1053    =head2 ･ﾕ･｡･､･ｰﾍ
1054      readme.txt      ドキュメント  
1055      yukiwiki.cgi    YukiWiki本体      readme.txt      ･ﾉ･ｭ･螂皈･ﾈ
1056      yukiwiki.gif    ロゴ（カラー版）      yukiwiki.cgi    YukiWikiﾋﾜﾂﾎ
1057      yukimono.gif    ロゴ（モノクロ版）      yukiwiki.gif    ･･ｴ｡ﾊ･ｫ･鬘ｼﾈﾇ｡ﾋ
1058      jcode.pl        漢字コードライブラリ      yukimono.gif    ･･ｴ｡ﾊ･筵ﾎ･ｯ･ﾈﾇ｡ﾋ
1059        jcode.pl        ｴﾁｻ･ｳ｡ｼ･ﾉ･鬣､･ﾖ･鬣
1060  =head2 インストール  
1061    =head2 ･､･･ｹ･ﾈ｡ｼ･
1062  =over 4  
1063    =over 4
1064  =item 1.  
1065    =item 1.
1066  アーカイブを解く。  
1067    ･｢｡ｼ･ｫ･､･ﾖ､ｲ､ｯ｡｣
1068  =item 2.  
1069    =item 2.
1070  yukiwiki.cgiのはじめの方にある設定を確認します。  
1071  通常は何もしなくてよいが、  yukiwiki.cgi､ﾎ､ﾏ､ｸ､皃ﾎﾊ､ﾋ､｢､ﾀﾟﾄ熙ｳﾎﾇｧ､ｷ､ﾞ､ｹ｡｣
1072  はじめは$touchfileを''にした方がよいでしょう。  ﾄﾌｾ､ﾏｲｿ､筅ｷ､ﾊ､ｯ､ﾆ､隍､､ｬ｡｢
1073    ､ﾏ､ｸ､皃ﾏ$touchfile､''､ﾋ､ｷ､ｿﾊ､ｬ､隍､､ﾇ､ｷ､遉ｦ｡｣
1074  =item 3.  
1075    =item 3.
1076  yukiwiki.cgiとjcode.plを同じところに設置します。  
1077    yukiwiki.cgi､ﾈjcode.pl､ﾆｱ､ｸ､ﾈ､ｳ､､ﾋﾀﾟﾃﾖ､ｷ､ﾞ､ｹ｡｣
1078  =item 4.  
1079    =item 4.
1080  サイズ0のyukiwiki.dbというファイルを設置します。  
1081  （Perlシステムによってはyukiwiki.pag, yukiwiki.dir）  ･ｵ･､･ｺ0､ﾎyukiwiki.db､ﾈ､､､ｦ･ﾕ･｡･､･､ﾀﾟﾃﾖ､ｷ､ﾞ､ｹ｡｣
1082    ｡ﾊPerl･ｷ･ｹ･ﾆ･爨ﾋ､隍ﾃ､ﾆ､ﾏyukiwiki.pag, yukiwiki.dir｡ﾋ
1083  =item 5.  
1084    =item 5.
1085  yukiwiki.cgiにブラウザからアクセスします。  
1086    yukiwiki.cgi､ﾋ･ﾖ･鬣ｦ･ｶ､ｫ､鬣｢･ｯ･ｻ･ｹ､ｷ､ﾞ､ｹ｡｣
1087  =back  
1088    =back
1089  =head2 パーミッション  
1090    =head2 ･ﾑ｡ｼ･ﾟ･ﾃ･ｷ･逾
1091          ファイル        パーミッション      転送モード  
1092          yukiwiki.cgi    755                 ASCII          ･ﾕ･｡･､･        ･ﾑ｡ｼ･ﾟ･ﾃ･ｷ･逾      ﾅｾﾁ･筍ｼ･ﾉ
1093          yukiwiki.gif    644                 BINARY          yukiwiki.cgi    755                 ASCII
1094          yukimono.gif    644                 BINARY          yukiwiki.gif    644                 BINARY
1095          jcode.pl        644                 ASCII          yukimono.gif    644                 BINARY
1096            jcode.pl        644                 ASCII
1097      $dbmopen = 1; にした場合:  
1098          yukiwiki.db     666                 BINARY      $dbmopen = 1; ､ﾋ､ｷ､ｿｾｹ:
1099          (yukiwiki.pag, yukiwiki.dirの場合もあり）          yukiwiki.db     666                 BINARY
1100            (yukiwiki.pag, yukiwiki.dir､ﾎｾｹ遉筅｢､遙ﾋ
1101      $dbmopen = 0; にした場合: (カレントディレクトリを777にしておく)  
1102          .               777                 (転送しない)      $dbmopen = 0; ､ﾋ､ｷ､ｿｾｹ: (･ｫ･･･ﾈ･ﾇ･｣･･ｯ･ﾈ･熙777､ﾋ､ｷ､ﾆ､ｪ､ｯ)
1103            .               777                 (ﾅｾﾁ､ｷ､ﾊ､､)
1104  =head1 データのバックアップ方法  
1105    =head1 ･ﾇ｡ｼ･ｿ､ﾎ･ﾐ･ﾃ･ｯ･｢･ﾃ･ﾗﾊﾋ｡
1106  $dbmopen = 1;の場合は、  
1107  データはすべてyukiwiki.db(.dir, .pag)に入る。  $dbmopen = 1;､ﾎｾｹ遉ﾏ｡｢
1108  これをバックアップすればよい。  ･ﾇ｡ｼ･ｿ､ﾏ､ｹ､ﾙ､ﾆyukiwiki.db(.dir, .pag)､ﾋﾆ､｡｣
1109    ､ｳ､､･ﾐ･ﾃ･ｯ･｢･ﾃ･ﾗ､ｹ､､ﾐ､隍､｡｣
1110  $dbmopen = 0;の場合は、  
1111  yukiwikiというディレクトリができるので、  $dbmopen = 0;､ﾎｾｹ遉ﾏ｡｢
1112  これ以下をバックアップすればよい。  yukiwiki､ﾈ､､､ｦ･ﾇ･｣･･ｯ･ﾈ･熙ｬ､ﾇ､ｭ､､ﾎ､ﾇ｡｢
1113    ､ｳ､ｰﾊｲｼ､･ﾐ･ﾃ･ｯ･｢･ﾃ･ﾗ､ｹ､､ﾐ､隍､｡｣
1114  =head1 新しいページの作り方  
1115    =head1 ｿｷ､ｷ､､･ﾚ｡ｼ･ｸ､ﾎｺ､ﾊ
1116  =over 4  
1117    =over 4
1118  =item 1.  
1119    =item 1.
1120  まず、適当なページ（例えばFrontPage）を選び、  
1121  ページの下にある「編集」リンクをたどります。  ､ﾞ､ｺ｡｢ﾅｬﾅ､ﾊ･ﾚ｡ｼ･ｸ｡ﾊﾎ网ｨ､ﾐFrontPage｡ﾋ､ﾁｪ､ﾓ｡｢
1122    ･ﾚ｡ｼ･ｸ､ﾎｲｼ､ﾋ､｢､｡ﾖﾊﾔｽｸ｡ﾗ･･･ｯ､､ｿ､ﾉ､熙ﾞ､ｹ｡｣
1123  =item 2.  
1124    =item 2.
1125  するとテキスト入力ができる状態になるので、  
1126  そこにNewPageのような単語  ､ｹ､､ﾈ･ﾆ･ｭ･ｹ･ﾈﾆﾎﾏ､ｬ､ﾇ､ｭ､ｾﾂﾖ､ﾋ､ﾊ､､ﾎ､ﾇ｡｢
1127  （大文字小文字混在している英文字列）  ､ｽ､ｳ､ﾋNewPage､ﾎ､隍ｦ､ﾊﾃｱｸ
1128  を書いて「保存」します。  ｡ﾊﾂ醋ｸｻｾｮﾊｸｻｺｮｺﾟ､ｷ､ﾆ､､､ｱﾑﾊｸｻﾎ｡ﾋ
1129    ､ｽ､､､ﾆ｡ﾖﾊﾝﾂｸ｡ﾗ､ｷ､ﾞ､ｹ｡｣
1130  =item 3.  
1131    =item 3.
1132  保存すると、FrontPageのページが書き換わり、  
1133  あなたが書いたNewPageという文字列の後ろに ? というリンクが表示されます。  ﾊﾝﾂｸ､ｹ､､ﾈ｡｢FrontPage､ﾎ･ﾚ｡ｼ･ｸ､ｬｽ､ｭｴｹ､､遙｢
1134  この ? はそのページがまだ存在しないことを示す印です。  ､｢､ﾊ､ｿ､ｬｽ､､､ｿNewPage､ﾈ､､､ｦﾊｸｻﾎ､ﾎｸ螟､ﾋ ? ､ﾈ､､､ｦ･･･ｯ､ｬﾉｽｼｨ､ｵ､､ﾞ､ｹ｡｣
1135    ､ｳ､ﾎ ? ､ﾏ､ｽ､ﾎ･ﾚ｡ｼ･ｸ､ｬ､ﾞ､ﾀﾂｸｺﾟ､ｷ､ﾊ､､､ｳ､ﾈ､ｼｨ､ｹｰ､ﾇ､ｹ｡｣
1136  =item 4.  
1137    =item 4.
1138  その ? をクリックすると新しいページNewPageができますので、  
1139  あなたの好きな文章をその新しいページに書いて保存します。  ､ｽ､ﾎ ? ､･ｯ･･ﾃ･ｯ､ｹ､､ﾈｿｷ､ｷ､､･ﾚ｡ｼ･ｸNewPage､ｬ､ﾇ､ｭ､ﾞ､ｹ､ﾎ､ﾇ｡｢
1140    ､｢､ﾊ､ｿ､ﾎｹ･､ｭ､ﾊﾊｸｾﾏ､､ｽ､ﾎｿｷ､ｷ､､･ﾚ｡ｼ･ｸ､ﾋｽ､､､ﾆﾊﾝﾂｸ､ｷ､ﾞ､ｹ｡｣
1141  =item 5.  
1142    =item 5.
1143  NewPageページができるとFrontPageの ? は消えて、リンクとなります。  
1144    NewPage･ﾚ｡ｼ･ｸ､ｬ､ﾇ､ｭ､､ﾈFrontPage､ﾎ ? ､ﾏｾﾃ､ｨ､ﾆ｡｢･･･ｯ､ﾈ､ﾊ､熙ﾞ､ｹ｡｣
1145  =back  
1146    =back
1147  =head1 テキスト整形のルール  
1148    =head1 ･ﾆ･ｭ･ｹ･ﾈﾀｰｷﾁ､ﾎ･｡ｼ･
1149  =over 4  
1150    =over 4
1151  =item *  
1152    =item *
1153  連続した複数行はフィルされて表示されます。  
1154    ﾏ｢ﾂｳ､ｷ､ｿﾊ｣ｿｹﾔ､ﾏ･ﾕ･｣･､ｵ､､ﾆﾉｽｼｨ､ｵ､､ﾞ､ｹ｡｣
1155  =item *  
1156    =item *
1157  空行は段落C<< <p> >>の区切りとなります。  
1158    ｶｹﾔ､ﾏﾃﾊﾍC<< <p> >>､ﾎｶ霏ﾚ､熙ﾈ､ﾊ､熙ﾞ､ｹ｡｣
1159  =item *  
1160    =item *
1161  HTMLのタグは書けません。  
1162    HTML､ﾎ･ｿ･ｰ､ﾏｽ､ｱ､ﾞ､ｻ､｡｣
1163  =item *  
1164    =item *
1165  B<''ボールド''>のようにシングルクォート二つではさむと、  
1166  ボールドC<< <b> >>になります。  B<''･ﾜ｡ｼ･･ﾉ''>､ﾎ､隍ｦ､ﾋ･ｷ･･ｰ･･ｯ･ｩ｡ｼ･ﾈﾆ､ﾄ､ﾇ､ﾏ､ｵ､爨ﾈ｡｢
1167    ･ﾜ｡ｼ･･ﾉC<< <b> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1168  =item *  
1169    =item *
1170  B<'''イタリック'''>のようにシングルクォート三つではさむと、  
1171  イタリックC<< <i> >>になります。  B<'''･､･ｿ･･ﾃ･ｯ'''>､ﾎ､隍ｦ､ﾋ･ｷ･･ｰ･･ｯ･ｩ｡ｼ･ﾈｻｰ､ﾄ､ﾇ､ﾏ､ｵ､爨ﾈ｡｢
1172    ･､･ｿ･･ﾃ･ｯC<< <i> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1173  =item *  
1174    =item *
1175  B<---->のようにマイナス4つがあると、  
1176  水平線C<< <hr> >>になります。  B<---->､ﾎ､隍ｦ､ﾋ･ﾞ･､･ﾊ･ｹ4､ﾄ､ｬ､｢､､ﾈ｡｢
1177    ｿ衞ｿﾀC<< <hr> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1178  =item *  
1179    =item *
1180  行をB<*>ではじめると、  
1181  大見出しC<< <h2> >>になります。  ｹﾔ､B<*>､ﾇ､ﾏ､ｸ､皃､ﾈ｡｢
1182    ﾂ邵ｫｽﾐ､ｷC<< <h2> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1183  =item *  
1184    =item *
1185  行をB<**>ではじめると、  
1186  小見出しC<< <h3> >>になります。  ｹﾔ､B<**>､ﾇ､ﾏ､ｸ､皃､ﾈ｡｢
1187    ｾｮｸｫｽﾐ､ｷC<< <h3> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1188  =item *  
1189    =item *
1190  行をマイナス-ではじめると、  
1191  箇条書きC<< <ul> >>になります。  ｹﾔ､･ﾞ･､･ﾊ･ｹ-､ﾇ､ﾏ､ｸ､皃､ﾈ｡｢
1192  マイナスの数が増えるとレベルが下がります（3レベルまで）  ｲﾕｾｽ､ｭC<< <ul> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1193    ･ﾞ･､･ﾊ･ｹ､ﾎｿ､ｬﾁ､ｨ､､ﾈ･･ﾙ･､ｬｲｼ､ｬ､熙ﾞ､ｹ｡ﾊ3･･ﾙ･､ﾞ､ﾇ｡ﾋ
1194      -項目1  
1195      --項目1-1      -ｹ猯ﾜ1
1196      --項目1-2      --ｹ猯ﾜ1-1
1197      -項目2      --ｹ猯ﾜ1-2
1198      -項目3      -ｹ猯ﾜ2
1199      --項目3-1      -ｹ猯ﾜ3
1200      ---項目3-1-1      --ｹ猯ﾜ3-1
1201      ---項目3-1-2      ---ｹ猯ﾜ3-1-1
1202      --項目3-2      ---ｹ猯ﾜ3-1-2
1203        --ｹ猯ﾜ3-2
1204  =item *  
1205    =item *
1206  コロンを使うと、  
1207  用語と解説文のリストC<< <dl> >>が書けます。  ･ｳ･･､ｻﾈ､ｦ､ﾈ｡｢
1208    ﾍﾑｸ､ﾈｲﾀ簗ｸ､ﾎ･･ｹ･ﾈC<< <dl> >>､ｬｽ､ｱ､ﾞ､ｹ｡｣
1209      :用語1:いろいろ書いた解説文1  
1210      :用語2:いろいろ書いた解説文2      :ﾍﾑｸ1:､､､､､､ｽ､､､ｿｲﾀ簗ｸ1
1211      :用語3:いろいろ書いた解説文3      :ﾍﾑｸ2:､､､､､､ｽ､､､ｿｲﾀ簗ｸ2
1212        :ﾍﾑｸ3:､､､､､､ｽ､､､ｿｲﾀ簗ｸ3
1213  =item *  
1214    =item *
1215  リンク  
1216    ･･･ｯ
1217  =over 4  
1218    =over 4
1219  =item *  
1220    =item *
1221  LinkToSomePageやFrontPageのように、  
1222  英単語の最初の一文字を大文字にしたものが  LinkToSomePage､腱rontPage､ﾎ､隍ｦ､ﾋ｡｢
1223  二つ以上連続したものはYukiWikiのページ名となり、  ｱﾑﾃｱｸ､ﾎｺﾇｽ鬢ﾎｰﾊｸｻ､ﾂ醋ｸｻ､ﾋ､ｷ､ｿ､筅ﾎ､ｬ
1224  それが文章中に含まれるとリンクになります。  ﾆ､ﾄｰﾊｾ袞｢ﾂｳ､ｷ､ｿ､筅ﾎ､ﾏYukiWiki､ﾎ･ﾚ｡ｼ･ｸﾌｾ､ﾈ､ﾊ､遙｢
1225    ､ｽ､､ｬﾊｸｾﾏﾃ讀ﾋｴﾞ､ﾞ､､､ﾈ･･･ｯ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1226  =item *  
1227    =item *
1228  http://www.hyuki.com/ のようなURLは自動的にリンクになります。  
1229    http://www.hyuki.com/ ､ﾎ､隍ｦ､ﾊURL､ﾏｼｫﾆｰﾅｪ､ﾋ･･･ｯ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1230  =item *  
1231    =item *
1232  二重の大かっこ[[ ]]でくくった文字列も、  
1233  YukiWikiのページ名になります。  ﾆｽﾅ､ﾎﾂ遉ｫ､ﾃ､ｳ[[ ]]､ﾇ､ｯ､ｯ､ﾃ､ｿﾊｸｻﾎ､筍｢
1234  大かっこの中にはスペースを含めてはいけません。  YukiWiki､ﾎ･ﾚ｡ｼ･ｸﾌｾ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1235  日本語も使えます。  ﾂ遉ｫ､ﾃ､ｳ､ﾎﾃ讀ﾋ､ﾏ･ｹ･ﾚ｡ｼ･ｹ､ｴﾞ､皃ﾆ､ﾏ､､､ｱ､ﾞ､ｻ､｡｣
1236    ﾆﾋﾜｸ､篏ﾈ､ｨ､ﾞ､ｹ｡｣
1237  =back  
1238    =back
1239  =item *  
1240    =item *
1241  行頭がスペースやタブで始まっていると、  
1242  それは整形済みの段落C<< <pre> >>として扱われます。  ｹﾔﾆｬ､ｬ･ｹ･ﾚ｡ｼ･ｹ､茹ｿ･ﾖ､ﾇｻﾏ､ﾞ､ﾃ､ﾆ､､､､ﾈ｡｢
1243  プログラムの表示などに使うと便利です。  ､ｽ､､ﾏﾀｰｷﾁｺﾑ､ﾟ､ﾎﾃﾊﾍC<< <pre> >>､ﾈ､ｷ､ﾆｰｷ､､､ﾞ､ｹ｡｣
1244    ･ﾗ･･ｰ･鬣爨ﾎﾉｽｼｨ､ﾊ､ﾉ､ﾋｻﾈ､ｦ､ﾈﾊﾘﾍ､ﾇ､ｹ｡｣
1245    
1246  =item *  
1247    =item *
1248  行を > ではじめると、  
1249  引用文C<< <blockquote> >>が書けます。  ｹﾔ､ > ､ﾇ､ﾏ､ｸ､皃､ﾈ｡｢
1250  >の数が多いとインデントが深くなります（3レベルまで）。  ｰﾍﾑﾊｸC<< <blockquote> >>､ｬｽ､ｱ､ﾞ､ｹ｡｣
1251    >､ﾎｿ､ｬﾂｿ､､､ﾈ･､･･ﾇ･･ﾈ､ｬｿｼ､ｯ､ﾊ､熙ﾞ､ｹ｡ﾊ3･･ﾙ･､ﾞ､ﾇ｡ﾋ｡｣
1252      >文章  
1253      >文章      >ﾊｸｾﾏ
1254      >>さらなる引用      >ﾊｸｾﾏ
1255      >文章      >>､ｵ､鬢ﾊ､ｰﾍﾑ
1256        >ﾊｸｾﾏ
1257  =back  
1258    =back
1259  =head1 更新履歴  
1260    =head1 ｹｹｿｷﾍﾎ
1261  =over 4  
1262    =over 4
1263  =item *  
1264    =item *
1265  2001年10月20日、Version 1.6.6。  
1266    2001ﾇｯ10ｷ20ﾆ｡｢Version 1.6.6｡｣
1267  更新の衝突対策。  
1268  元ページの簡単なチェックサムを取っておき、  ｹｹｿｷ､ﾎｾﾗﾆﾍﾂﾐｺ｡｣
1269  更新前にチェックサムを比較する。  ｸｵ･ﾚ｡ｼ･ｸ､ﾎｴﾊﾃｱ､ﾊ･ﾁ･ｧ･ﾃ･ｯ･ｵ･爨ｼ隍ﾃ､ﾆ､ｪ､ｭ｡｢
1270  修正個所はdigestという文字列を検索すれば分かる。  ｹｹｿｷﾁｰ､ﾋ･ﾁ･ｧ･ﾃ･ｯ･ｵ･爨ﾈ豕ﾓ､ｹ､｡｣
1271  本来はMD5などでちゃんとやった方がいいのだけれど。  ｽ､ﾀｵｸﾄｽ熙ﾏdigest､ﾈ､､､ｦﾊｸｻﾎ､ｸ｡ｺ､ｹ､､ﾐﾊｬ､ｫ､｡｣
1272    ﾋﾜﾍ隍ﾏMD5､ﾊ､ﾉ､ﾇ､ﾁ､网､ﾈ､荀ﾃ､ｿﾊ､ｬ､､､､､ﾎ､ﾀ､ｱ､､ﾉ｡｣
1273  衝突時に表示されるメッセージなどは「極悪」さんのページを参考にした。  
1274    ｾﾗﾆﾍｻ､ﾋﾉｽｼｨ､ｵ､､･皈ﾃ･ｻ｡ｼ･ｸ､ﾊ､ﾉ､ﾏ｡ﾖｶﾋｰｭ｡ﾗ､ｵ､､ﾎ･ﾚ｡ｼ･ｸ､ｻｲｹﾍ､ﾋ､ｷ､ｿ｡｣
1275  =item *  
1276    =item *
1277  2001年10月17日、Version 1.6.5。  
1278    2001ﾇｯ10ｷ17ﾆ｡｢Version 1.6.5｡｣
1279  プレビュー画面で、更新ボタンを押したときに送信される  
1280  メッセージの内容をinput要素のtype="hidden"を使って埋め込むのをやめる。  ･ﾗ･･ﾓ･蝪ｼｲ靂ﾌ､ﾇ｡｢ｹｹｿｷ･ﾜ･ｿ･､ｲ｡､ｷ､ｿ､ﾈ､ｭ､ﾋﾁｿｮ､ｵ､､
1281  代わりに、textarea要素を使う。  ･皈ﾃ･ｻ｡ｼ･ｸ､ﾎﾆ簣ﾆ､inputﾍﾗﾁﾇ､ﾎtype="hidden"､ｻﾈ､ﾃ､ﾆﾋ荀盪､爨ﾎ､､荀皃｡｣
1282  再プレビュー用にmyspecial_を導入。でもきれいな対策ではない。  ﾂ螟､熙ﾋ｡｢textareaﾍﾗﾁﾇ､ｻﾈ､ｦ｡｣
1283    ｺﾆ･ﾗ･･ﾓ･蝪ｼﾍﾑ､ﾋmyspecial_､ﾆｳﾆ｡｣､ﾇ､筅ｭ､､､､ﾊﾂﾐｺ､ﾇ､ﾏ､ﾊ､､｡｣
1284  =item *  
1285    =item *
1286  2001年8月30日、Version 1.6.4。  
1287    2001ﾇｯ8ｷ30ﾆ｡｢Version 1.6.4｡｣
1288  URLでダイレクトにページ名を指定しても、  
1289  $WikiNameと$BracketName以外のページを作れないようにした。  URL､ﾇ･ﾀ･､･･ｯ･ﾈ､ﾋ･ﾚ｡ｼ･ｸﾌｾ､ｻﾘﾄ熙ｷ､ﾆ､筍｢
1290  (is_valid_nameとis_editable参照)。  $WikiName､ﾈ$BracketNameｰﾊｳｰ､ﾎ･ﾚ｡ｼ･ｸ､ｺ､､ﾊ､､､隍ｦ､ﾋ､ｷ､ｿ｡｣
1291    (is_valid_name､ﾈis_editableｻｲｾﾈ)｡｣
1292  =item *  
1293    =item *
1294  2001年8月30日、Version 1.6.3。  
1295    2001ﾇｯ8ｷ30ﾆ｡｢Version 1.6.3｡｣
1296  RecentChangesを編集・再編集不可とした。  
1297  編集不可ページは@uneditableにページ名を入れる。  RecentChanges､ﾊﾔｽｸ｡ｦｺﾆﾊﾔｽｸﾉﾔｲﾄ､ﾈ､ｷ､ｿ｡｣
1298    ﾊﾔｽｸﾉﾔｲﾄ･ﾚ｡ｼ･ｸ､ﾏ@uneditable､ﾋ･ﾚ｡ｼ･ｸﾌｾ､ﾆ､､｡｣
1299  =item *  
1300    =item *
1301  2001年2月25日、Version 1.6.1, 1.6.2。  
1302    2001ﾇｯ2ｷ25ﾆ｡｢Version 1.6.1, 1.6.2｡｣
1303  差分機能のバグ修正。  
1304  do_previewで'>'が扱えないバグを修正  ｺｹﾊｬｵ｡ﾇｽ､ﾎ･ﾐ･ｰｽ､ﾀｵ｡｣
1305  （ユーザからの指摘）。  do_preview､ﾇ'>'､ｬｰｷ､ｨ､ﾊ､､･ﾐ･ｰ､ｽ､ﾀｵ
1306    ｡ﾊ･譯ｼ･ｶ､ｫ､鬢ﾎｻﾘﾅｦ｡ﾋ｡｣
1307  =item *  
1308    =item *
1309  2001年2月22日、Version 1.6.0。  
1310  差分機能を実装した。  2001ﾇｯ2ｷ22ﾆ｡｢Version 1.6.0｡｣
1311    ｺｹﾊｬｵ｡ﾇｽ､ｼﾂﾁ､ｷ､ｿ｡｣
1312  =item *  
1313    =item *
1314  2001年2月19日、Version 1.5.4。  
1315  画像ファイルへのリンクは画像にしてみた。  2001ﾇｯ2ｷ19ﾆ｡｢Version 1.5.4｡｣
1316    ｲ霖･ﾕ･｡･､･､ﾘ､ﾎ･･･ｯ､ﾏｲ霖､ﾋ､ｷ､ﾆ､ﾟ､ｿ｡｣
1317  =item *  
1318    =item *
1319  2001年2月19日、Version 1.5.3。  
1320  RecentChangesの中に削除したページがあるのをやめた。  2001ﾇｯ2ｷ19ﾆ｡｢Version 1.5.3｡｣
1321  use strict;で引っかかる部分を少し整理(完全ではない)。  RecentChanges､ﾎﾃ讀ﾋｺｽ､ｷ､ｿ･ﾚ｡ｼ･ｸ､ｬ､｢､､ﾎ､､荀皃ｿ｡｣
1322    use strict;､ﾇｰ､ﾃ､ｫ､ｫ､ﾉﾊｬ､ｾｯ､ｷﾀｰﾍ(ｴｰﾁｴ､ﾇ､ﾏ､ﾊ､､)｡｣
1323  =item *  
1324    =item *
1325  2001年2月16日、Version 1.5.2。  
1326  textareaに表示およびプレビューする前に < や > を &lt; や &gt; に変換した  2001ﾇｯ2ｷ16ﾆ｡｢Version 1.5.2｡｣
1327  (do_preview, editpage, print_preview_buttons)。  textarea､ﾋﾉｽｼｨ､ｪ､隍ﾓ･ﾗ･･ﾓ･蝪ｼ､ｹ､ﾁｰ､ﾋ < ､ > ､ &lt; ､ &gt; ､ﾋﾊﾑｴｹ､ｷ､ｿ
1328    (do_preview, editpage, print_preview_buttons)｡｣
1329  =item *  
1330    =item *
1331  2000年12月27日、Version 1.5.1。  
1332  プレビュー画面を整理した。  2000ﾇｯ12ｷ27ﾆ｡｢Version 1.5.1｡｣
1333    ･ﾗ･･ﾓ･蝪ｼｲ靂ﾌ､ﾀｰﾍ､ｷ､ｿ｡｣
1334  =item *  
1335    =item *
1336  2000年12月22日、Version 1.5.0。  
1337  全体的にずいぶん書き直した。  2000ﾇｯ12ｷ22ﾆ｡｢Version 1.5.0｡｣
1338  一覧を別途作成するようにした(do_list)。  ﾁｴﾂﾎﾅｪ､ﾋ､ｺ､､､ﾖ､ｽ､ｭﾄｾ､ｷ､ｿ｡｣
1339  書き込む前に確認画面を出すようにした(do_preview)。  ｰﾍ､ﾊﾌﾅﾓｺﾀｮ､ｹ､､隍ｦ､ﾋ､ｷ､ｿ(do_list)｡｣
1340  テキストの書き方を編集画面に入れた(do_edit, do_reedit)。  ｽ､ｭｹ､狠ｰ､ﾋｳﾎﾇｧｲ靂ﾌ､ｽﾐ､ｹ､隍ｦ､ﾋ､ｷ､ｿ(do_preview)｡｣
1341  WhatsNew→RecentChanges、TopPage→FrontPageに変更した。  ･ﾆ･ｭ･ｹ･ﾈ､ﾎｽ､ｭﾊ､ﾊﾔｽｸｲ靂ﾌ､ﾋﾆ､､ｿ(do_edit, do_reedit)｡｣
1342    WhatsNew｢ｪRecentChanges｡｢TopPage｢ｪFrontPage､ﾋﾊﾑｹｹ､ｷ､ｿ｡｣
1343  =item *  
1344    =item *
1345  2000年12月20日、Version 1.1.0。  
1346  tieを利用して、dbmopenが使えない場合でも動作するように修正。  2000ﾇｯ12ｷ20ﾆ｡｢Version 1.1.0｡｣
1347  利用者の1人である「極悪」さんから  tie､ﾍﾍﾑ､ｷ､ﾆ｡｢dbmopen､ｬｻﾈ､ｨ､ﾊ､､ｾｹ遉ﾇ､簇ｰｺ､ｹ､､隍ｦ､ﾋｽ､ﾀｵ｡｣
1348  送っていただいたコードを元にしています。  ﾍﾍﾑｼﾔ､ﾎ1ｿﾍ､ﾇ､｢､｡ﾖｶﾋｰｭ｡ﾗ､ｵ､､ｫ､
1349    ﾁ､ﾃ､ﾆ､､､ｿ､ﾀ､､､ｿ･ｳ｡ｼ･ﾉ､ｸｵ､ﾋ､ｷ､ﾆ､､､ﾞ､ｹ｡｣
1350  =item *  
1351    =item *
1352  2000年9月5日、Version 1.0.2。  
1353   <body color=...> → <body bgcolor=...>  2000ﾇｯ9ｷ5ﾆ｡｢Version 1.0.2｡｣
1354  利用者からの指摘による。感謝。   <body color=...> ｢ｪ <body bgcolor=...>
1355    ﾍﾍﾑｼﾔ､ｫ､鬢ﾎｻﾘﾅｦ､ﾋ､隍｡｣ｴｶｼﾕ｡｣
1356  =item *  
1357    =item *
1358  2000年8月6日、Version 1.0.1を公開。  
1359  C MAGAZINE（ソフトバンクパブリッシング）  2000ﾇｯ8ｷ6ﾆ｡｢Version 1.0.1､ｸｳｫ｡｣
1360  2000年10月号連載記事向け公開版。  C MAGAZINE｡ﾊ･ｽ･ﾕ･ﾈ･ﾐ･･ｯ･ﾑ･ﾖ･･ﾃ･ｷ･･ｰ｡ﾋ
1361  [[ ]] の最後が「望」のようにシフトJISで  2000ﾇｯ10ｷｹ賺｢ｺﾜｵｭｻｸ､ｱｸｳｫﾈﾇ｡｣
1362  0x5Dになる場合の回避を行なった。  [[ ]] ､ﾎｺﾇｸ螟ｬ｡ﾖﾋｾ｡ﾗ､ﾎ､隍ｦ､ﾋ･ｷ･ﾕ･ﾈJIS､ﾇ
1363    0x5D､ﾋ､ﾊ､ｾｹ遉ﾎｲﾈ､ｹﾔ､ﾊ､ﾃ､ｿ｡｣
1364  =item *  
1365    =item *
1366  2000年8月5日、Version 1.0.0を公開。  
1367    2000ﾇｯ8ｷ5ﾆ｡｢Version 1.0.0､ｸｳｫ｡｣
1368  =item *  
1369    =item *
1370  2000年7月23日、Version 0.82を公開。  
1371  編集時のリンクミス。  2000ﾇｯ7ｷ23ﾆ｡｢Version 0.82､ｸｳｫ｡｣
1372  <textarea>の属性変更。  ﾊﾔｽｸｻ､ﾎ･･･ｯ･ﾟ･ｹ｡｣
1373    <textarea>､ﾎﾂｰﾀｭﾊﾑｹｹ｡｣
1374  =item *  
1375    =item *
1376  2000年7月22日、Version 0.81を公開。  
1377  ロゴを組み込む。  2000ﾇｯ7ｷ22ﾆ｡｢Version 0.81､ｸｳｫ｡｣
1378    ･･ｴ､ﾁﾈ､ﾟｹ､爍｣
1379  =item *  
1380    =item *
1381  2000年7月21日、Version 0.80を公開。  
1382  PODをCGI中に書き込む。  2000ﾇｯ7ｷ21ﾆ｡｢Version 0.80､ｸｳｫ｡｣
1383    POD､CGIﾃ讀ﾋｽ､ｭｹ､爍｣
1384  =item *  
1385    =item *
1386  2000年7月19日、Version 0.70を公開。  
1387  '''イタリック'''や、--、---、>>、>>>などを実装。  2000ﾇｯ7ｷ19ﾆ｡｢Version 0.70､ｸｳｫ｡｣
1388    '''･､･ｿ･･ﾃ･ｯ'''､茖｢--｡｢---｡｢>>｡｢>>>､ﾊ､ﾉ､ｼﾂﾁ｡｣
1389  =item *  
1390    =item *
1391  2000年7月18日、Version 0.60を公開。  
1392  *太字*を''太字''に変更  2000ﾇｯ7ｷ18ﾆ｡｢Version 0.60､ｸｳｫ｡｣
1393    *ﾂﾀｻ*､''ﾂﾀｻ''､ﾋﾊﾑｹｹ
1394  =item *  
1395    =item *
1396  2000年7月17日、Version 0.50を公開。  
1397    2000ﾇｯ7ｷ17ﾆ｡｢Version 0.50､ｸｳｫ｡｣
1398  =item *  
1399    =item *
1400  2000年7月17日、さらにいろいろ追加する。  
1401    2000ﾇｯ7ｷ17ﾆ｡｢､ｵ､鬢ﾋ､､､､､､ﾄﾉｲﾃ､ｹ､｡｣
1402  =item *  
1403    =item *
1404  2000年7月16日、いろいろ追加。  
1405    2000ﾇｯ7ｷ16ﾆ｡｢､､､､､､ﾄﾉｲﾃ｡｣
1406  =item *  
1407    =item *
1408  2000年7月15日、公開。  
1409    2000ﾇｯ7ｷ15ﾆ｡｢ｸｳｫ｡｣
1410  =back  
1411    =back
1412  =head1 TODO  
1413    =head1 TODO
1414      - テキスト表示モード  
1415      - Charsetを明示。      - ･ﾆ･ｭ･ｹ･ﾈﾉｽｼｨ･筍ｼ･ﾉ
1416      - textarea中の閉じタグ対応      - Charset､ﾌﾀｼｨ｡｣
1417      - メニューの英語表記付記      - textareaﾃ讀ﾎﾊﾄ､ｸ･ｿ･ｰﾂﾐｱ
1418      - プレビューのボタンで、mymsgをinputのvalueに入れているが、改行をそのままvalueにいれてはいけないのではないか。      - ･皈ﾋ･蝪ｼ､ﾎｱﾑｸﾉｽｵｭﾉﾕｵｭ
1419      - 「再編集」の機能はブラウザの back で充分ではないか。プレビューはもっとシンプルに。      - ･ﾗ･･ﾓ･蝪ｼ､ﾎ･ﾜ･ｿ･､ﾇ｡｢mymsg､input､ﾎvalue､ﾋﾆ､､ﾆ､､､､ｬ｡｢ｲｹﾔ､､ｽ､ﾎ､ﾞ､ﾞvalue､ﾋ､､､､ﾆ､ﾏ､､､ｱ､ﾊ､､､ﾎ､ﾇ､ﾏ､ﾊ､､､ｫ｡｣
1420      - ページタイトル（Wikiname）が検索にかかるようにする。      - ｡ﾖｺﾆﾊﾔｽｸ｡ﾗ､ﾎｵ｡ﾇｽ､ﾏ･ﾖ･鬣ｦ･ｶ､ﾎ back ､ﾇｽｼﾊｬ､ﾇ､ﾏ､ﾊ､､､ｫ｡｣･ﾗ･･ﾓ･蝪ｼ､ﾏ､筅ﾃ､ﾈ･ｷ･･ﾗ･､ﾋ｡｣
1421      - InterWiki風の機能「URLを隠しつつ、リンクを張る」      - ･ﾚ｡ｼ･ｸ･ｿ･､･ﾈ･｡ﾊWikiname｡ﾋ､ｬｸ｡ｺ､ﾋ､ｫ､ｫ､､隍ｦ､ﾋ､ｹ､｡｣
1422        - InterWikiﾉ､ﾎｵ｡ﾇｽ｡ﾖURL､ｱ｣､ｷ､ﾄ､ﾄ｡｢･･･ｯ､ﾄ･､｡ﾗ
1423  =head1 作者  
1424    =head1 ｺｼﾔ
1425      Copyright (C) 2000 by Hiroshi Yuki.  
1426      結城浩 <hyuki@hyuki.com>      Copyright (C) 2000 by Hiroshi Yuki.
1427      http://www.hyuki.com/      ｷｾｹﾀ <hyuki@hyuki.com>
1428      http://www.hyuki.com/yukiwiki/      http://www.hyuki.com/
1429        http://www.hyuki.com/yukiwiki/
1430  質問、意見、バグ報告は hyuki@hyuki.com にメールしてください。  
1431    ｼﾁﾌ茖｢ｰﾕｸｫ｡｢･ﾐ･ｰﾊｹ､ﾏ hyuki@hyuki.com ､ﾋ･癸ｼ･､ｷ､ﾆ､ｯ､ﾀ､ｵ､､｡｣
1432  =head1 配布条件  
1433    =head1 ﾇﾛﾉﾛｾｷ
1434  YukiWikiは、  
1435  GNU General Public Licenseにて公開します。  YukiWiki､ﾏ｡｢
1436    GNU General Public License､ﾋ､ﾆｸｳｫ､ｷ､ﾞ､ｹ｡｣
1437  YukiWikiはフリーソフトです。  
1438  ご自由にお使いください。  YukiWiki､ﾏ･ﾕ･遙ｼ･ｽ･ﾕ･ﾈ､ﾇ､ｹ｡｣
1439  自分好みのYukiWikiが作れるようにシンプルにしてあります。  ､ｴｼｫﾍｳ､ﾋ､ｪｻﾈ､､､ｯ､ﾀ､ｵ､､｡｣
1440    ｼｫﾊｬｹ･､ﾟ､ﾎYukiWiki､ｬｺ､､､隍ｦ､ﾋ･ｷ･･ﾗ･､ﾋ､ｷ､ﾆ､｢､熙ﾞ､ｹ｡｣
1441  =head1 謝辞  
1442    =head1 ｼﾕｼｭ
1443  本家のWikiWikiを作ったCunningham & Cunningham, Inc.に  
1444  感謝します。  ﾋﾜｲﾈ､ﾎWikiWiki､ｺ､ﾃ､ｿCunningham & Cunningham, Inc.､ﾋ
1445    ｴｶｼﾕ､ｷ､ﾞ､ｹ｡｣
1446  YukiWikiを楽しんで使ってくださる  
1447  ネット上の方々に感謝します。  YukiWiki､ｳﾚ､ｷ､､ﾇｻﾈ､ﾃ､ﾆ､ｯ､ﾀ､ｵ､
1448    ･ﾍ･ﾃ･ﾈｾ螟ﾎﾊ｡ｹ､ﾋｴｶｼﾕ､ｷ､ﾞ､ｹ｡｣
1449  YukiWikiのロゴをデザインしてくださった橋本礼奈さん  
1450  http://city.hokkai.or.jp/~reina/  YukiWiki､ﾎ･･ｴ､･ﾇ･ｶ･､･､ｷ､ﾆ､ｯ､ﾀ､ｵ､ﾃ､ｿｶｶﾋﾜﾎ鯣爨ｵ､
1451  に感謝します。  http://city.hokkai.or.jp/~reina/
1452    ､ﾋｴｶｼﾕ､ｷ､ﾞ､ｹ｡｣
1453  tieを使った版の元になるコードを送ってくださった  
1454  「極悪」さんに感謝します。  tie､ｻﾈ､ﾃ､ｿﾈﾇ､ﾎｸｵ､ﾋ､ﾊ､･ｳ｡ｼ･ﾉ､ﾁ､ﾃ､ﾆ､ｯ､ﾀ､ｵ､ﾃ､ｿ
1455    ｡ﾖｶﾋｰｭ｡ﾗ､ｵ､､ﾋｴｶｼﾕ､ｷ､ﾞ､ｹ｡｣
1456  =head1 参照リンク  
1457    =head1 ｻｲｾﾈ･･･ｯ
1458  =over 4  
1459    =over 4
1460  =item *  
1461    =item *
1462  YukiWikiホームページ  
1463  http://www.hyuki.com/yukiwiki/  YukiWiki･ﾛ｡ｼ･爭ﾚ｡ｼ･ｸ
1464    http://www.hyuki.com/yukiwiki/
1465  =item *  
1466    =item *
1467  本家のWikiWiki  
1468  http://c2.com/cgi/wiki?WikiWikiWeb  ﾋﾜｲﾈ､ﾎWikiWiki
1469    http://c2.com/cgi/wiki?WikiWikiWeb
1470  =item *  
1471    =item *
1472  本家のWikiWikiの作者(Cunningham & Cunningham, Inc.)  
1473  http://c2.com/  ﾋﾜｲﾈ､ﾎWikiWiki､ﾎｺｼﾔ(Cunningham & Cunningham, Inc.)
1474    http://c2.com/
1475  =item *  
1476    =item *
1477  YukiWikiのロゴデザインをしてくださった橋本礼奈さんのページ  
1478  http://city.hokkai.or.jp/~reina/  YukiWiki､ﾎ･･ｴ･ﾇ･ｶ･､･､､ｷ､ﾆ､ｯ､ﾀ､ｵ､ﾃ､ｿｶｶﾋﾜﾎ鯣爨ｵ､､ﾎ･ﾚ｡ｼ･ｸ
1479    http://city.hokkai.or.jp/~reina/
1480  =back  
1481    =back
1482  =cut  
1483    =cut
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24