/[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.7 by wakaba, Mon Feb 4 15:27:22 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                          |           (?:&lt;(?:mailto|http|https|ftp|urn):[\x21-\x7E]*)&gt;
569                      ($WikiName)                         # LocalLinkLikeThis         | (?:$WikiName)                         # LocalLinkLikeThis
570                          |         | (?:$BracketName)                      # [[ﾆﾋﾜｸ･･･ｯ]]
571                      ($BracketName)                      # [[日本語リンク]]         )
572                  )              !
573              !                  &make_link($1)
574                  &make_link($1)              !gex;
575              !gex;      return $line;
576      return $line;  }
577  }  
578    # ･ﾚ｡ｼ･ｸ､ﾎ･ｿ･､･ﾈ･､ｫ､鬣ﾚ｡ｼ･ｸ､ﾎﾆ簣ﾆ､ﾆﾀ､
579  # ページのタイトルからページの内容を得る  sub get_page {
580  sub get_page {      my $page_name = shift;
581      my $page_name = shift;      return $database{$page_name};
582      return $database{$page_name};  }
583  }  
584    # ･ﾚ｡ｼ･ｸ､ﾎﾆ簣ﾆ､ﾍｿ､ｨ､
585  # ページの内容を与える  # &set_page($title, $txt)
586  # &set_page($title, $txt)  sub set_page {
587  sub set_page {      # ･ﾚ｡ｼ･ｸ､ｹｹｿｷ､ｹ､
588      # ページを更新する      my $title = $_[0];
589      my $title = $_[0];      $database{$title} = $_[1];
590      $database{$title} = $_[1];      # ｶ･ﾚ｡ｼ･ｸ､ﾊ､鮗ｽ､ｹ､
591      # 空ページなら削除する      unless ($database{$title}) {
592      unless ($database{$title}) {          delete $database{$title};
593          delete $database{$title};      }
594      }      # RecentChanges､ｹｹｿｷ､ｹ､
595      # RecentChangesを更新する      my $delim = ' - ';
596      my $delim = ' - ';      my @pages = split(/\n/, $database{$whatsnew});
597      my @pages = split(/\n/, $database{$whatsnew});      my $datestr = &get_current_datestr;
598      my $datestr = &get_current_datestr;      unshift(@pages, qq|-$datestr$delim$title|);
599      unshift(@pages, qq|-$datestr$delim$title|);      # ﾆｱｰ･ﾚ｡ｼ･ｸ､ﾎｹｹｿｷ､ﾏｺﾇｿｷ､ﾎ､筅ﾎ､ﾎ､ﾟ､ﾋ､ｷ｡｢
600      # 同一ページの更新は最新のもののみにし、      # ﾂｸｺﾟ､ｷ､ﾊ､､･ﾚ｡ｼ･ｸ､ﾏ･ｹ･ｭ･ﾃ･ﾗ､ｹ､｡｣
601      # 存在しないページはスキップする。      my %count;
602      my %count;      my @newpages;
603      my @newpages;      foreach my $line (@pages) {
604      foreach my $line (@pages) {          my ($prefix, $title) = split(/$delim/, $line);
605          my ($prefix, $title) = split(/$delim/, $line);          $count{$title}++;
606          $count{$title}++;          if ($count{$title} == 1 and exists($database{$title})) {
607          if ($count{$title} == 1 and exists($database{$title})) {              push(@newpages, qq|$prefix - $title|);
608              push(@newpages, qq|$prefix - $title|);          }
609          }      }
610      }      # ､ｳ､ｳ､ﾇﾋﾜﾅ､ﾋｹｹｿｷ
611      # ここで本当に更新      $database{$whatsnew} = join("\n", splice(@newpages, 0, $maxnew));
612      $database{$whatsnew} = join("\n", splice(@newpages, 0, $maxnew));  }
613  }  
614    # ･ﾚ｡ｼ･ｸ､ﾎ･ﾘ･ﾃ･ﾀ､ｽﾐﾎﾏ
615  # ページのヘッダを出力  sub print_header {
616  sub print_header {      my $title = shift;
617      my $title = shift;      print <<"EOD";
618      print <<"EOD";  Content-type: text/html
619  Content-type: text/html  
620    <html><head>
621  <html><head>  <title>$title</title>
622  <title>$title</title>  <style type="text/css">
623  <style type="text/css">  $style
624  <!--  </style>
625  $style  </head>
626  -->  <body>
627  </style>  EOD
628  </head>  }
629  <body bgcolor="white">  
630  EOD  # ･ﾄ｡ｼ･･ﾐ｡ｼ､ｽﾐﾎﾏ
631  }  sub print_toolbar {
632        my $page_name = shift;
633  # ツールバーを出力      my $percent_name = &encode_percent($page_name);
634  sub print_toolbar {      my $editlink = '';
635      my $page_name = shift;      if ($page_name ne '' and &is_editable($page_name)) {
636      my $percent_name = &encode_percent($page_name);          $editlink = <<"EOD";
637      my $editlink = '';  <a href="$thisurl?mycmd=edit;mypage=$percent_name">ﾊﾔｽｸ</a> |
638      if ($page_name ne '' and &is_editable($page_name)) {  <a href="$thisurl?mycmd=diff;mypage=$percent_name">ｺｹﾊｬ</a> |
639          $editlink = <<"EOD";  EOD
640  <a href="$thisurl?mycmd=edit&mypage=$percent_name">編集</a> |      }
641  <a href="$thisurl?mycmd=diff&mypage=$percent_name">差分</a> |      print <<"EOD";
642  EOD  <p>
643      }   [
644      print <<"EOD";  <a href="$thisurl?mycmd=read;mypage=$toppage">･ﾈ･ﾃ･ﾗ</a> |
645  <p>  <a href="$thisurl?mycmd=list">ｰﾍ</a> |
646   [  $editlink
647  <a href="$thisurl?mycmd=read&mypage=$toppage">トップ</a> |  <a href="$thisurl?mycmd=search">ﾃｱｸｸ｡ｺ</a> |
648  <a href="$thisurl?mycmd=list">一覧</a> |  <a href="$thisurl?mycmd=read;mypage=$whatsnew">ｺﾇｽｪｹｹｿｷ</a>
649  $editlink   ]
650  <a href="$thisurl?mycmd=search">単語検索</a> |  </p>
651  <a href="$thisurl?mycmd=read&mypage=$whatsnew">最終更新</a>  EOD
652   ]  }
653  </p>  
654  EOD  # ･ﾚ｡ｼ･ｸ､ﾎ･ﾕ･ﾃ･ｿ､ｽﾐﾎﾏ
655  }  sub print_footer {
656        print <<"EOD";
657  # ページのフッタを出力  <address>
658  sub print_footer {  <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>
659      print <<"EOD";  + <a href="$modifierlink">$modifier</a> ${version}.
660  <hr>  [<a href="/" title="､ｳ､ﾎ･ｵ｡ｼ･ﾐ｡ｼ､ﾎｼﾊﾇ">/</a>
661  <p>  <a href="/map" title="､ｳ､ﾎ･ｵ｡ｼ･ﾐ｡ｼ､ﾎｰﾆﾆ">ﾃﾏｿﾞ</a>
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="/search/" title="､ｳ､ﾎ･ｵ｡ｼ･ﾐ｡ｼ､ﾎｸ｡ｺ">ｸ｡ｺ</a>]
663  Modified by <a href="$modifierlink">$modifier</a>.<br/>  </address>
664  </p>  </body></html>
665  </body></html>  EOD
666  EOD  }
667  }  
668    # URL､茹ﾚ｡ｼ･ｸ､ﾎﾌｾﾁｰ､ｫ､鬣･･ｯ､ｺ､
669  # URLやページの名前からリンクを作る  sub make_link {
670  sub make_link {      my $name = shift;
671      my $name = shift;      $name =~ s/^&lt;(.*)&gt;$/$1/;
672      if ($name =~ /^(http|https|ftp).*?(\.gif|\.png|\.jpeg|\.jpg)?$/) {      if ($name =~ /^(http|https|ftp).*?(\.png|\.jpeg|\.jpg)?$/) {
673          if ($2) {          if ($2) {
674              return qq|<a href="$name"><img border="0" src="$name" /></a>|;              return qq|<a href="$name"><img border="0" src="$name" /></a>|;
675          } else {          } else {
676              return qq|<a href="$name">$name</a>|;              return qq|&lt;<a href="$name">$name</a>&gt;|;
677          }          }
678      } elsif ($name =~ /^mailto:(.*)/) {      } elsif ($name =~ /^mailto:(.*)/) {
679          my $address = $1;          my $address = $1;
680          return qq|<a href="$name">$address</a>|;          return qq|&lt;<a href="$name">$address</a>&gt;|;
681      } elsif ($database{$name}) {      } elsif ($name =~ /^urn:[0-9A-Za-z_:-]+/) {
682          my $percent_name = &encode_percent($name);          return qq|&lt;<a href="/uri-res/N2L?${name}">$name</a>&gt;|;
683          return qq|<a href="$thisurl?mycmd=read&mypage=$percent_name">$name</a>|;      } elsif ($database{$name}) {
684      } else {          my $percent_name = &encode_percent($name);
685          my $percent_name = &encode_percent($name);          return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name">$name</a>|;
686          return qq|$name<a href="$thisurl?mycmd=edit&mypage=$percent_name">?</a>|;      } else {
687      }          my $percent_name = &encode_percent($name);
688  }          return qq|$name<a href="$thisurl?mycmd=edit;mypage=$percent_name">?</a>|;
689        }
690  # %xx の形式にエンコードする  }
691  # これは、  
692  # http://www.hyuki.com/yukiwiki/yukiwiki.cgi?mycmd=read&mypage=%3C%8C%8B%8F%E9%8D_%3E  # %xx ､ﾎｷﾁｼｰ､ﾋ･ｨ･･ｳ｡ｼ･ﾉ､ｹ､
693  # という形式のために使われる。  # ､ｳ､､ﾏ｡｢
694  # '<結城浩>' → '%3C%8C%8B%8F%E9%8D_%3E'  # http://www.hyuki.com/yukiwiki/yukiwiki.cgi?mycmd=read&mypage=%3C%8C%8B%8F%E9%8D_%3E
695  sub encode_percent {  # ､ﾈ､､､ｦｷﾁｼｰ､ﾎ､ｿ､皃ﾋｻﾈ､､､｡｣
696      my $name = shift;  # '<ｷｾｹﾀ>' ｢ｪ '%3C%8C%8B%8F%E9%8D_%3E'
697      my $encoded = '';  sub encode_percent {
698      foreach my $ch (split(//, $name)) {      my $name = shift;
699          if ($ch =~ /[A-Za-z0-9_]/) {      my $encoded = '';
700              $encoded .= $ch;      foreach my $ch (split(//, $name)) {
701          } else {          if ($ch =~ /[A-Za-z0-9_]/) {
702              $encoded .= '%' . sprintf("%02X", ord($ch));              $encoded .= $ch;
703          }          } else {
704      }              $encoded .= '%' . sprintf("%02X", ord($ch));
705      return $encoded;          }
706  }      }
707        return $encoded;
708  # テキスト本体をHTMLに変換する  }
709  sub convert_html {  
710      my ($txt) = shift;  # ･ﾆ･ｭ･ｹ･ﾈﾋﾜﾂﾎ､HTML､ﾋﾊﾑｴｹ､ｹ､
711      my (@txt) = split(/\n/, $txt);  sub convert_html {
712      foreach (@txt) {      my ($txt) = shift;
713          chomp;      my (@txt) = split(/\n/, $txt);
714          if (/^\*\*(.*)/) {      foreach (@txt) {
715              push(@result, splice(@saved), '<h3>' . &inline($1) . '</h3>');          chomp;
716          } elsif (/^\*(.*)/) {          if (/^\*\*(.*)/) {
717              push(@result, splice(@saved), '<h2>' . &inline($1) . '</h2>');              push(@result, splice(@saved), '<h3>' . &inline($1) . '</h3>');
718          } elsif (/^----/) {          } elsif (/^\*(.*)/) {
719              push(@result, splice(@saved), '<hr>');              push(@result, splice(@saved), '<h2>' . &inline($1) . '</h2>');
720          } elsif (/^(-{1,3})(.*)/) {          } elsif (/^----/) {
721              &back_push('ul', length($1));              push(@result, splice(@saved), '<hr>');
722              push(@result, '<li>' . &inline($2) . '</li>');          } elsif (/^(-{1,3})(.*)/) {
723          } elsif (/^:([^:]+):(.*)/) {              &back_push('ul', length($1));
724              &back_push('dl', 1);              push(@result, '<li>' . &inline($2) . '</li>');
725              push(@result, '<dt>' . &inline($1) . '</dt>', '<dd>' . &inline($2) . '</dd>');          } elsif (/^:([^:]+):(.*)/) {
726          } elsif (/^(>{1,3})(.*)/) {              &back_push('dl', 1);
727              &back_push('blockquote', length($1));              push(@result, '<dt>' . &inline($1) . '</dt>', '<dd>' . &inline($2) . '</dd>');
728              push(@result, &inline($2));          } elsif (/^(>{1,3})(.*)/) {
729          } elsif (/^\s*$/) {              &back_push('blockquote', length($1));
730              push(@result, splice(@saved));              push(@result, &inline($2));
731              unshift(@saved, "</p>");          } elsif (/^\s*$/) {
732              push(@result, "<p>");              push(@result, splice(@saved));
733          } elsif (/^(\s+.*)$/) {              unshift(@saved, "</p>");
734              &back_push('pre', 1);              push(@result, "<p>");
735              push(@result, &escape($1)); # Not &inline, but &escape          } elsif (/^(\s+.*)$/) {
736          } else {              &back_push('pre', 1);
737              push(@result, &inline($_));              push(@result, &escape($1)); # Not &inline, but &escape
738          }          } else {
739      }              push(@result, &inline($_));
740      push(@result, splice(@saved));          }
741      return join("\n", @result);      }
742  }      push(@result, splice(@saved));
743        return join("\n", @result);
744  # &back_push($tag, $count)  }
745  # $tagのタグを$levelレベルまで詰める。  
746  sub back_push {  # &back_push($tag, $count)
747      my ($tag, $level) = @_;  # $tag､ﾎ･ｿ･ｰ､$level･･ﾙ･､ﾞ､ﾇｵﾍ､皃｡｣
748      while (@saved > $level) {  sub back_push {
749          push(@result, shift(@saved));      my ($tag, $level) = @_;
750      }      while (@saved > $level) {
751      if ($saved[0] ne "</$tag>") {          push(@result, shift(@saved));
752          push(@result, splice(@saved));      }
753      }      if ($saved[0] ne "</$tag>") {
754      while (@saved < $level) {          push(@result, splice(@saved));
755          unshift(@saved, "</$tag>");      }
756          push(@result, "<$tag>");      while (@saved < $level) {
757      }          unshift(@saved, "</$tag>");
758  }          push(@result, "<$tag>");
759        }
760  # 編集可能ページか？  }
761  sub is_editable {  
762      my ($pagename) = @_;  # ﾊﾔｽｸｲﾄﾇｽ･ﾚ｡ｼ･ｸ､ｫ｡ｩ
763      foreach (@uneditable) {  sub is_editable {
764          if ($pagename eq $_) {      my ($pagename) = @_;
765              return 0;      foreach (@uneditable) {
766          }          if ($pagename eq $_) {
767      }              return 0;
768      if (&is_valid_name($pagename)) {          }
769          return 1;      }
770      }      if (&is_valid_name($pagename)) {
771      return 0;          return 1;
772  }      }
773        return 0;
774  # Validな名前か？  }
775  sub is_valid_name {  
776      my ($pagename) = @_;  # Valid､ﾊﾌｾﾁｰ､ｫ｡ｩ
777      if ($pagename =~ /^$WikiName$/) {  sub is_valid_name {
778          return 1;      my ($pagename) = @_;
779      } elsif ($pagename =~ /^$BracketName$/) {      if ($pagename =~ /^$WikiName$/) {
780          return 1;          return 1;
781      } else {      } elsif ($pagename =~ /^$BracketName$/) {
782          return 0;          return 1;
783      }      } else {
784  }          return 0;
785        }
786  # 現在時刻の文字列を得る  }
787  sub get_current_datestr {  
788      my (@wdays) = ( "日", "月", "火", "水", "木", "金", "土" );  # ｸｽｺﾟｻｹ､ﾎﾊｸｻﾎ､ﾆﾀ､
789      my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);  sub get_current_datestr {
790      return sprintf("%4d-%02d-%02d (%s) %02d:%02d:%02d",      my (@wdays) = ( "ﾆ", "ｷ", "ｲﾐ", "ｿ", "ﾌﾚ", "ｶ", "ﾅﾚ" );
791          $year + 1900, $mon + 1, $mday, $wdays[$wday], $hour, $min, $sec);      my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
792  }      return sprintf("%4d-%02d-%02d (%s) %02d:%02d:%02d",
793            $year + 1900, $mon + 1, $mday, $wdays[$wday], $hour, $min, $sec);
794  # URL?SomePageや、  }
795  # URL?[[結城浩]]の形式だった場合、(not yet)  
796  # 強制的にmycmdをreadにして$formの内容を設定する。  # URL?SomePage､茖｢
797  sub normalize_form {  # URL?[[ｷｾｹﾀ]]､ﾎｷﾁｼｰ､ﾀ､ﾃ､ｿｾｹ遑｢(not yet)
798      foreach my $key (keys %form) {  # ｶｯﾀｩﾅｪ､ﾋmycmd､read､ﾋ､ｷ､ﾆ$form､ﾎﾆ簣ﾆ､ﾀﾟﾄ熙ｹ､｡｣
799          if ($key =~ /^$WikiName$/) {  sub normalize_form {
800              $form{mycmd} = 'read';      foreach my $key (keys %form) {
801              $form{mypage} = $1;          if ($key =~ /^$WikiName$/) {
802              last;              $form{mycmd} = 'read';
803          } elsif ($key =~ /^$BracketName$/) {              $form{mypage} = $1;
804              $form{mycmd} = 'read';              last;
805              $form{mypage} = $1;          } elsif ($key =~ /^$BracketName$/) {
806              last;              $form{mycmd} = 'read';
807          }              $form{mypage} = $1;
808      }              last;
809  }          }
810        }
811  # 変換テストを行なうときのサンプル  }
812  sub print_sample {  
813      my $txt = &convert_html(<<"EOD");  # ﾊﾑｴｹ･ﾆ･ｹ･ﾈ､ｹﾔ､ﾊ､ｦ､ﾈ､ｭ､ﾎ･ｵ･･ﾗ･
814  *大見出し1  sub print_sample {
815  **小見出し1-1      my $txt = &convert_html(<<"EOD");
816  -項目1  *ﾂ邵ｫｽﾐ､ｷ1
817  -項目2  **ｾｮｸｫｽﾐ､ｷ1-1
818  -項目3  -ｹ猯ﾜ1
819  段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1  -ｹ猯ﾜ2
820  段落1段落1段落1段落1段落1段落''強調''1段落1段落1段落1段落1段落1  -ｹ猯ﾜ3
821  段落1段落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
823  段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2  ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
824  段落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と''強調単語''  ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2
828  段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1段落1  **ｾｮｸｫｽﾐ､ｷ1-2
829  段落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  ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
833  ----  :ﾍﾑｸ2:､､､､､､ｽ､､､ｿｲﾀ簗ｸ2
834  *大見出し2  :ﾍﾑｸ3:､､､､､､ｽ､､､ｿｲﾀ簗ｸ3
835  **小見出し2-1  ----
836  http://www.hyuki.com/  *ﾂ邵ｫｽﾐ､ｷ2
837  **小見出し2-2  **ｾｮｸｫｽﾐ､ｷ2-1
838    &lt;http://suika.fam.cx/&gt;
839  [[結城浩]]  **ｾｮｸｫｽﾐ､ｷ2-2
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  
843  段落1段落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
845  >段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2段落2  ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ'''''ｶｯ､､ｶｯﾄｴ'''''1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1ﾃﾊﾍ1
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  >ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2ﾃﾊﾍ2
849    
850  >レベル1  ･･ﾙ･0･･ﾙ･0･･ﾙ･0･･ﾙ･0･･ﾙ･0･･ﾙ･0
851  >レベル1  
852  >レベル1  >･･ﾙ･1
853  >>レベル2  >･･ﾙ･1
854  >>レベル2  >･･ﾙ･1
855  >>レベル2  >>･･ﾙ･2
856  >>>レベル3  >>･･ﾙ･2
857  -はろ1  >>･･ﾙ･2
858  --はろ2  >>>･･ﾙ･3
859  ろろろろ2  -､ﾏ､1
860  ---はろ3  --､ﾏ､2
861  --はろ2  ､､､､2
862  ---はろ3  ---､ﾏ､3
863  --はろ2  --､ﾏ､2
864  ---はろ3  ---､ﾏ､3
865  >>>レベル3  --､ﾏ､2
866  >>>レベル3  ---､ﾏ､3
867  >>>レベル3  >>>･･ﾙ･3
868  EOD  >>>･･ﾙ･3
869      print $txt;  >>>･･ﾙ･3
870      exit;  EOD
871  }      print $txt;
872        exit;
873  sub diff_check {  }
874      traverse_sequences(  
875              $msgrefA, $msgrefB,  sub diff_check {
876              {      traverse_sequences(
877                  MATCH => \&df_match,              $msgrefA, $msgrefB,
878                  DISCARD_A => \&df_delete,              {
879                  DISCARD_B => \&df_add,                  MATCH => \&df_match,
880              }                  DISCARD_A => \&df_delete,
881      );                  DISCARD_B => \&df_add,
882      &diff_flush;              }
883  }      );
884        &diff_flush;
885  sub diff_flush {  }
886      $diff_text .= join('', map { "-$_\n" } splice(@diff_deleted));  
887      $diff_text .= join('', map { "+$_\n" } splice(@diff_added));  sub diff_flush {
888  }      $diff_text .= join('', map { "-$_\n" } splice(@diff_deleted));
889        $diff_text .= join('', map { "+$_\n" } splice(@diff_added));
890  sub df_match {  }
891      my ($a, $b) = @_;  
892      &diff_flush;  sub df_match {
893      $diff_text .= "=$msgrefA->[$a]\n";      my ($a, $b) = @_;
894  }      &diff_flush;
895        $diff_text .= "=$msgrefA->[$a]\n";
896  sub df_delete {  }
897      my ($a, $b) = @_;  
898      push(@diff_deleted, $msgrefA->[$a]);  sub df_delete {
899  }      my ($a, $b) = @_;
900        push(@diff_deleted, $msgrefA->[$a]);
901  sub df_add {  }
902      my ($a, $b) = @_;  
903      push(@diff_added, $msgrefB->[$b]);  sub df_add {
904  }      my ($a, $b) = @_;
905        push(@diff_added, $msgrefB->[$b]);
906  sub calc_message_digest {   # You have to use MD5...  }
907      my $text = shift;  
908      my @text = split(//, $text);  sub calc_message_digest {   # You have to use MD5...
909      my $len = length($text);      my $text = shift;
910      my $checksum = 0;      my @text = split(//, $text);
911      foreach (@text) {      my $len = length($text);
912          $checksum += ord($_);      my $checksum = 0;
913          $checksum = ($checksum * 2) % 65536 + (($checksum & 32768) ? 1 : 0); # 16bit rotate      foreach (@text) {
914      }          $checksum += ord($_);
915      return "$len:$checksum";          $checksum = ($checksum * 2) % 65536 + (($checksum & 32768) ? 1 : 0); # 16bit rotate
916  }      }
917        return "$len:$checksum";
918  # Definition of YukiWikiDB  }
919  package YukiWikiDB;  
920    # Definition of YukiWikiDB
921  my $debug = 1;  package YukiWikiDB;
922    
923  # Constructor  my $debug = 1;
924  sub new {  
925      return shift->TIEHASH(@_);  # Constructor
926  }  sub new {
927        return shift->TIEHASH(@_);
928  # tying  }
929  sub TIEHASH {  
930      my ($class, $dbname) = @_;  # tying
931      my $self = {  sub TIEHASH {
932          dir => $dbname,      my ($class, $dbname) = @_;
933          keys => [],      my $self = {
934      };          dir => $dbname,
935      if (not -d $self->{dir}) {          keys => [],
936          if (!mkdir($self->{dir}, 0777)) {      };
937              print "mkdir(" . $self->{dir} . ") fail\n" if ($debug);      if (not -d $self->{dir}) {
938              return undef;          if (!mkdir($self->{dir}, 0777)) {
939          }              print "mkdir(" . $self->{dir} . ") fail\n" if ($debug);
940      }              return undef;
941      return bless($self, $class);          }
942  }      }
943        return bless($self, $class);
944  # Store  }
945  sub STORE {  
946      my ($self, $key, $val) = @_;  # Store
947      my $file = &make_filename($self, $key);  sub STORE {
948      if (open(FILE,"> $file")) {      my ($self, $key, $val) = @_;
949          binmode(FILE);      my $file = &make_filename($self, $key);
950          print FILE $val;      if (open(FILE,"> $file")) {
951          close(FILE);          binmode(FILE);
952          return $self->{$key} = $val;          print FILE $val;
953      } else {          close(FILE);
954          print "$file create error.";          return $self->{$key} = $val;
955      }      } else {
956  }          print "$file create error.";
957        }
958  # Fetch  }
959  sub FETCH {  
960      my ($self, $key) = @_;  # Fetch
961      my $file = &make_filename($self, $key);  sub FETCH {
962      if (open(FILE, $file)) {      my ($self, $key) = @_;
963          local $/;      my $file = &make_filename($self, $key);
964          $self->{$key} = <FILE>;      if (open(FILE, $file)) {
965          close(FILE);          local $/;
966      }          $self->{$key} = <FILE>;
967      return $self->{$key};          close(FILE);
968  }      }
969        return $self->{$key};
970  # Exists  }
971  sub EXISTS {  
972      my ($self, $key) = @_;  # Exists
973      my $file = &make_filename($self, $key);  sub EXISTS {
974      return -e($file);      my ($self, $key) = @_;
975  }      my $file = &make_filename($self, $key);
976        return -e($file);
977  # Delete  }
978  sub DELETE {  
979      my ($self, $key) = @_;  # Delete
980      my $file = &make_filename($self, $key);  sub DELETE {
981      unlink $file;      my ($self, $key) = @_;
982      return delete $self->{$key};      my $file = &make_filename($self, $key);
983  }      unlink $file;
984        return delete $self->{$key};
985  sub FIRSTKEY {  }
986      my ($self) = @_;  
987      opendir(DIR, $self->{dir}) or die $self->{dir};  sub FIRSTKEY {
988      @{$self->{keys}} = grep /\.txt$/, readdir(DIR);      my ($self) = @_;
989      foreach my $name (@{$self->{keys}}) {      opendir(DIR, $self->{dir}) or die $self->{dir};
990          $name =~ s/\.txt$//;      @{$self->{keys}} = grep /\.txt$/, readdir(DIR);
991          $name =~ s/[0-9A-F][0-9A-F]/pack("C", hex($&))/eg;      foreach my $name (@{$self->{keys}}) {
992      }          $name =~ s/\.txt$//;
993      return shift @{$self->{keys}};          $name =~ s/[0-9A-F][0-9A-F]/pack("C", hex($&))/eg;
994  }      }
995        return shift @{$self->{keys}};
996  sub NEXTKEY {  }
997      my ($self) = @_;  
998      return shift @{$self->{keys}};  sub NEXTKEY {
999  }      my ($self) = @_;
1000        return shift @{$self->{keys}};
1001  sub make_filename {  }
1002      my ($self, $key) = @_;  
1003      my $enkey = '';  sub make_filename {
1004      foreach my $ch (split(//, $key)) {      my ($self, $key) = @_;
1005          $enkey .= sprintf("%02X", ord($ch));      my $enkey = '';
1006      }      foreach my $ch (split(//, $key)) {
1007      return $self->{dir} . "/$enkey.txt";          $enkey .= sprintf("%02X", ord($ch));
1008  }      }
1009  __END__      return $self->{dir} . "/$enkey.txt";
1010    }
1011  =head1 NAME  __END__
1012    
1013  YukiWiki - 自由にページを追加・削除・編集できるWebページ構築CGI  =head1 NAME
1014    
1015      Copyright (C) 2000,2001 by Hiroshi Yuki.  YukiWiki - ｼｫﾍｳ､ﾋ･ﾚ｡ｼ･ｸ､ﾄﾉｲﾃ｡ｦｺｽ｡ｦﾊﾔｽｸ､ﾇ､ｭ､Web･ﾚ｡ｼ･ｸｹｽﾃﾛCGI
1016      結城浩 <hyuki@hyuki.com>  
1017      http://www.hyuki.com/      Copyright (C) 2000,2001 by Hiroshi Yuki.
1018      http://www.hyuki.com/yukiwiki/      ｷｾｹﾀ <hyuki@hyuki.com>
1019        http://www.hyuki.com/
1020  =head1 SYNOPSIS      http://www.hyuki.com/yukiwiki/
1021    
1022      http://www.hyuki.com/yukiwiki/yukiwiki.cgi  =head1 SYNOPSIS
1023    
1024  =head1 DESCRIPTION      http://www.hyuki.com/yukiwiki/yukiwiki.cgi
1025    
1026  YukiWiki（結城ウィキィ）は参加者が自由にページを追加・削除・編集できる  =head1 DESCRIPTION
1027  不思議なWebページ群を作るCGIです。  
1028  Webで動作する掲示板とちょっと似ていますが、  YukiWiki｡ﾊｷｾ･ｦ･｣･ｭ･｣｡ﾋ､ﾏｻｲｲﾃｼﾔ､ｬｼｫﾍｳ､ﾋ･ﾚ｡ｼ･ｸ､ﾄﾉｲﾃ｡ｦｺｽ｡ｦﾊﾔｽｸ､ﾇ､ｭ､
1029  Web掲示板が単にメッセージを追加するだけなのに対して、  ﾉﾔｻﾗｵﾄ､ﾊWeb･ﾚ｡ｼ･ｸｷｲ､ｺ､CGI､ﾇ､ｹ｡｣
1030  YukiWikiは、Webページ全体を自由に変更することができます。  Web､ﾇﾆｰｺ､ｹ､ｷﾇｼｨﾈﾄ､ﾈ､ﾁ､遉ﾃ､ﾈｻ､ﾆ､､､ﾞ､ｹ､ｬ｡｢
1031    Webｷﾇｼｨﾈﾄ､ｬﾃｱ､ﾋ･皈ﾃ･ｻ｡ｼ･ｸ､ﾄﾉｲﾃ､ｹ､､ﾀ､ｱ､ﾊ､ﾎ､ﾋﾂﾐ､ｷ､ﾆ｡｢
1032  YukiWikiは、Cunningham & CunninghamのWikiWikiWebの  YukiWiki､ﾏ｡｢Web･ﾚ｡ｼ･ｸﾁｴﾂﾎ､ｼｫﾍｳ､ﾋﾊﾑｹｹ､ｹ､､ｳ､ﾈ､ｬ､ﾇ､ｭ､ﾞ､ｹ｡｣
1033  仕様を参考にして独自に作られました。  
1034    YukiWiki､ﾏ｡｢Cunningham & Cunningham､ﾎWikiWikiWeb､ﾎ
1035  YukiWikiはPerlで書かれたCGIスクリプトとして実現されていますので、  ｻﾅﾍﾍ､ｻｲｹﾍ､ﾋ､ｷ､ﾆﾆﾈｼｫ､ﾋｺ､鬢､ﾞ､ｷ､ｿ｡｣
1036  Perlが動作するWebサーバならば比較的容易に設置できます。  
1037    YukiWiki､ﾏPerl､ﾇｽ､ｫ､､ｿCGI･ｹ･ｯ･･ﾗ･ﾈ､ﾈ､ｷ､ﾆｼﾂｸｽ､ｵ､､ﾆ､､､ﾞ､ｹ､ﾎ､ﾇ｡｢
1038  あとはdbmopenが使える環境ならば設置できます(Version 1.5.0以降ならdbmopenが使えなくても設置できます)。  Perl､ｬﾆｰｺ､ｹ､Web･ｵ｡ｼ･ﾐ､ﾊ､鬢ﾐﾈ豕ﾓﾅｪﾍﾆｰﾗ､ﾋﾀﾟﾃﾖ､ﾇ､ｭ､ﾞ､ｹ｡｣
1039    
1040    ､｢､ﾈ､ﾏdbmopen､ｬｻﾈ､ｨ､ｴﾄｶｭ､ﾊ､鬢ﾐﾀﾟﾃﾖ､ﾇ､ｭ､ﾞ､ｹ(Version 1.5.0ｰﾊｹﾟ､ﾊ､馘bmopen､ｬｻﾈ､ｨ､ﾊ､ｯ､ﾆ､簑ﾟﾃﾖ､ﾇ､ｭ､ﾞ､ｹ)｡｣
1041  YukiWikiはフリーソフトです。  
1042  ご自由にお使いください。  
1043    YukiWiki､ﾏ･ﾕ･遙ｼ･ｽ･ﾕ･ﾈ､ﾇ､ｹ｡｣
1044  =head1 設置方法  ､ｴｼｫﾍｳ､ﾋ､ｪｻﾈ､､､ｯ､ﾀ､ｵ､､｡｣
1045    
1046  =head2 入手  =head1 ﾀﾟﾃﾖﾊﾋ｡
1047    
1048  YukiWikiの最新版は、  =head2 ﾆｼ
1049  http://www.hyuki.com/yukiwiki/  
1050  から入手できます。  YukiWiki､ﾎｺﾇｿｷﾈﾇ､ﾏ｡｢
1051    http://www.hyuki.com/yukiwiki/
1052  =head2 ファイル一覧  ､ｫ､鯣ｼ熙ﾇ､ｭ､ﾞ､ｹ｡｣
1053    
1054      readme.txt      ドキュメント  =head2 ･ﾕ･｡･､･ｰﾍ
1055      yukiwiki.cgi    YukiWiki本体  
1056      yukiwiki.gif    ロゴ（カラー版）      readme.txt      ･ﾉ･ｭ･螂皈･ﾈ
1057      yukimono.gif    ロゴ（モノクロ版）      yukiwiki.cgi    YukiWikiﾋﾜﾂﾎ
1058      jcode.pl        漢字コードライブラリ      yukiwiki.gif    ･･ｴ｡ﾊ･ｫ･鬘ｼﾈﾇ｡ﾋ
1059        yukimono.gif    ･･ｴ｡ﾊ･筵ﾎ･ｯ･ﾈﾇ｡ﾋ
1060  =head2 インストール      jcode.pl        ｴﾁｻ･ｳ｡ｼ･ﾉ･鬣､･ﾖ･鬣
1061    
1062  =over 4  =head2 ･､･･ｹ･ﾈ｡ｼ･
1063    
1064  =item 1.  =over 4
1065    
1066  アーカイブを解く。  =item 1.
1067    
1068  =item 2.  ･｢｡ｼ･ｫ･､･ﾖ､ｲ､ｯ｡｣
1069    
1070  yukiwiki.cgiのはじめの方にある設定を確認します。  =item 2.
1071  通常は何もしなくてよいが、  
1072  はじめは$touchfileを''にした方がよいでしょう。  yukiwiki.cgi､ﾎ､ﾏ､ｸ､皃ﾎﾊ､ﾋ､｢､ﾀﾟﾄ熙ｳﾎﾇｧ､ｷ､ﾞ､ｹ｡｣
1073    ﾄﾌｾ､ﾏｲｿ､筅ｷ､ﾊ､ｯ､ﾆ､隍､､ｬ｡｢
1074  =item 3.  ､ﾏ､ｸ､皃ﾏ$touchfile､''､ﾋ､ｷ､ｿﾊ､ｬ､隍､､ﾇ､ｷ､遉ｦ｡｣
1075    
1076  yukiwiki.cgiとjcode.plを同じところに設置します。  =item 3.
1077    
1078  =item 4.  yukiwiki.cgi､ﾈjcode.pl､ﾆｱ､ｸ､ﾈ､ｳ､､ﾋﾀﾟﾃﾖ､ｷ､ﾞ､ｹ｡｣
1079    
1080  サイズ0のyukiwiki.dbというファイルを設置します。  =item 4.
1081  （Perlシステムによってはyukiwiki.pag, yukiwiki.dir）  
1082    ･ｵ･､･ｺ0､ﾎyukiwiki.db､ﾈ､､､ｦ･ﾕ･｡･､･､ﾀﾟﾃﾖ､ｷ､ﾞ､ｹ｡｣
1083  =item 5.  ｡ﾊPerl･ｷ･ｹ･ﾆ･爨ﾋ､隍ﾃ､ﾆ､ﾏyukiwiki.pag, yukiwiki.dir｡ﾋ
1084    
1085  yukiwiki.cgiにブラウザからアクセスします。  =item 5.
1086    
1087  =back  yukiwiki.cgi､ﾋ･ﾖ･鬣ｦ･ｶ､ｫ､鬣｢･ｯ･ｻ･ｹ､ｷ､ﾞ､ｹ｡｣
1088    
1089  =head2 パーミッション  =back
1090    
1091          ファイル        パーミッション      転送モード  =head2 ･ﾑ｡ｼ･ﾟ･ﾃ･ｷ･逾
1092          yukiwiki.cgi    755                 ASCII  
1093          yukiwiki.gif    644                 BINARY          ･ﾕ･｡･､･        ･ﾑ｡ｼ･ﾟ･ﾃ･ｷ･逾      ﾅｾﾁ･筍ｼ･ﾉ
1094          yukimono.gif    644                 BINARY          yukiwiki.cgi    755                 ASCII
1095          jcode.pl        644                 ASCII          yukiwiki.gif    644                 BINARY
1096            yukimono.gif    644                 BINARY
1097      $dbmopen = 1; にした場合:          jcode.pl        644                 ASCII
1098          yukiwiki.db     666                 BINARY  
1099          (yukiwiki.pag, yukiwiki.dirの場合もあり）      $dbmopen = 1; ､ﾋ､ｷ､ｿｾｹ:
1100            yukiwiki.db     666                 BINARY
1101      $dbmopen = 0; にした場合: (カレントディレクトリを777にしておく)          (yukiwiki.pag, yukiwiki.dir､ﾎｾｹ遉筅｢､遙ﾋ
1102          .               777                 (転送しない)  
1103        $dbmopen = 0; ､ﾋ､ｷ､ｿｾｹ: (･ｫ･･･ﾈ･ﾇ･｣･･ｯ･ﾈ･熙777､ﾋ､ｷ､ﾆ､ｪ､ｯ)
1104  =head1 データのバックアップ方法          .               777                 (ﾅｾﾁ､ｷ､ﾊ､､)
1105    
1106  $dbmopen = 1;の場合は、  =head1 ･ﾇ｡ｼ･ｿ､ﾎ･ﾐ･ﾃ･ｯ･｢･ﾃ･ﾗﾊﾋ｡
1107  データはすべてyukiwiki.db(.dir, .pag)に入る。  
1108  これをバックアップすればよい。  $dbmopen = 1;､ﾎｾｹ遉ﾏ｡｢
1109    ･ﾇ｡ｼ･ｿ､ﾏ､ｹ､ﾙ､ﾆyukiwiki.db(.dir, .pag)､ﾋﾆ､｡｣
1110  $dbmopen = 0;の場合は、  ､ｳ､､･ﾐ･ﾃ･ｯ･｢･ﾃ･ﾗ､ｹ､､ﾐ､隍､｡｣
1111  yukiwikiというディレクトリができるので、  
1112  これ以下をバックアップすればよい。  $dbmopen = 0;､ﾎｾｹ遉ﾏ｡｢
1113    yukiwiki､ﾈ､､､ｦ･ﾇ･｣･･ｯ･ﾈ･熙ｬ､ﾇ､ｭ､､ﾎ､ﾇ｡｢
1114  =head1 新しいページの作り方  ､ｳ､ｰﾊｲｼ､･ﾐ･ﾃ･ｯ･｢･ﾃ･ﾗ､ｹ､､ﾐ､隍､｡｣
1115    
1116  =over 4  =head1 ｿｷ､ｷ､､･ﾚ｡ｼ･ｸ､ﾎｺ､ﾊ
1117    
1118  =item 1.  =over 4
1119    
1120  まず、適当なページ（例えばFrontPage）を選び、  =item 1.
1121  ページの下にある「編集」リンクをたどります。  
1122    ､ﾞ､ｺ｡｢ﾅｬﾅ､ﾊ･ﾚ｡ｼ･ｸ｡ﾊﾎ网ｨ､ﾐFrontPage｡ﾋ､ﾁｪ､ﾓ｡｢
1123  =item 2.  ･ﾚ｡ｼ･ｸ､ﾎｲｼ､ﾋ､｢､｡ﾖﾊﾔｽｸ｡ﾗ･･･ｯ､､ｿ､ﾉ､熙ﾞ､ｹ｡｣
1124    
1125  するとテキスト入力ができる状態になるので、  =item 2.
1126  そこにNewPageのような単語  
1127  （大文字小文字混在している英文字列）  ､ｹ､､ﾈ･ﾆ･ｭ･ｹ･ﾈﾆﾎﾏ､ｬ､ﾇ､ｭ､ｾﾂﾖ､ﾋ､ﾊ､､ﾎ､ﾇ｡｢
1128  を書いて「保存」します。  ､ｽ､ｳ､ﾋNewPage､ﾎ､隍ｦ､ﾊﾃｱｸ
1129    ｡ﾊﾂ醋ｸｻｾｮﾊｸｻｺｮｺﾟ､ｷ､ﾆ､､､ｱﾑﾊｸｻﾎ｡ﾋ
1130  =item 3.  ､ｽ､､､ﾆ｡ﾖﾊﾝﾂｸ｡ﾗ､ｷ､ﾞ､ｹ｡｣
1131    
1132  保存すると、FrontPageのページが書き換わり、  =item 3.
1133  あなたが書いたNewPageという文字列の後ろに ? というリンクが表示されます。  
1134  この ? はそのページがまだ存在しないことを示す印です。  ﾊﾝﾂｸ､ｹ､､ﾈ｡｢FrontPage､ﾎ･ﾚ｡ｼ･ｸ､ｬｽ､ｭｴｹ､､遙｢
1135    ､｢､ﾊ､ｿ､ｬｽ､､､ｿNewPage､ﾈ､､､ｦﾊｸｻﾎ､ﾎｸ螟､ﾋ ? ､ﾈ､､､ｦ･･･ｯ､ｬﾉｽｼｨ､ｵ､､ﾞ､ｹ｡｣
1136  =item 4.  ､ｳ､ﾎ ? ､ﾏ､ｽ､ﾎ･ﾚ｡ｼ･ｸ､ｬ､ﾞ､ﾀﾂｸｺﾟ､ｷ､ﾊ､､､ｳ､ﾈ､ｼｨ､ｹｰ､ﾇ､ｹ｡｣
1137    
1138  その ? をクリックすると新しいページNewPageができますので、  =item 4.
1139  あなたの好きな文章をその新しいページに書いて保存します。  
1140    ､ｽ､ﾎ ? ､･ｯ･･ﾃ･ｯ､ｹ､､ﾈｿｷ､ｷ､､･ﾚ｡ｼ･ｸNewPage､ｬ､ﾇ､ｭ､ﾞ､ｹ､ﾎ､ﾇ｡｢
1141  =item 5.  ､｢､ﾊ､ｿ､ﾎｹ･､ｭ､ﾊﾊｸｾﾏ､､ｽ､ﾎｿｷ､ｷ､､･ﾚ｡ｼ･ｸ､ﾋｽ､､､ﾆﾊﾝﾂｸ､ｷ､ﾞ､ｹ｡｣
1142    
1143  NewPageページができるとFrontPageの ? は消えて、リンクとなります。  =item 5.
1144    
1145  =back  NewPage･ﾚ｡ｼ･ｸ､ｬ､ﾇ､ｭ､､ﾈFrontPage､ﾎ ? ､ﾏｾﾃ､ｨ､ﾆ｡｢･･･ｯ､ﾈ､ﾊ､熙ﾞ､ｹ｡｣
1146    
1147  =head1 テキスト整形のルール  =back
1148    
1149  =over 4  =head1 ･ﾆ･ｭ･ｹ･ﾈﾀｰｷﾁ､ﾎ･｡ｼ･
1150    
1151  =item *  =over 4
1152    
1153  連続した複数行はフィルされて表示されます。  =item *
1154    
1155  =item *  ﾏ｢ﾂｳ､ｷ､ｿﾊ｣ｿｹﾔ､ﾏ･ﾕ･｣･､ｵ､､ﾆﾉｽｼｨ､ｵ､､ﾞ､ｹ｡｣
1156    
1157  空行は段落C<< <p> >>の区切りとなります。  =item *
1158    
1159  =item *  ｶｹﾔ､ﾏﾃﾊﾍC<< <p> >>､ﾎｶ霏ﾚ､熙ﾈ､ﾊ､熙ﾞ､ｹ｡｣
1160    
1161  HTMLのタグは書けません。  =item *
1162    
1163  =item *  HTML､ﾎ･ｿ･ｰ､ﾏｽ､ｱ､ﾞ､ｻ､｡｣
1164    
1165  B<''ボールド''>のようにシングルクォート二つではさむと、  =item *
1166  ボールドC<< <b> >>になります。  
1167    B<''･ﾜ｡ｼ･･ﾉ''>､ﾎ､隍ｦ､ﾋ･ｷ･･ｰ･･ｯ･ｩ｡ｼ･ﾈﾆ､ﾄ､ﾇ､ﾏ､ｵ､爨ﾈ｡｢
1168  =item *  ･ﾜ｡ｼ･･ﾉC<< <b> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1169    
1170  B<'''イタリック'''>のようにシングルクォート三つではさむと、  =item *
1171  イタリックC<< <i> >>になります。  
1172    B<'''･､･ｿ･･ﾃ･ｯ'''>､ﾎ､隍ｦ､ﾋ･ｷ･･ｰ･･ｯ･ｩ｡ｼ･ﾈｻｰ､ﾄ､ﾇ､ﾏ､ｵ､爨ﾈ｡｢
1173  =item *  ･､･ｿ･･ﾃ･ｯC<< <i> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1174    
1175  B<---->のようにマイナス4つがあると、  =item *
1176  水平線C<< <hr> >>になります。  
1177    B<---->､ﾎ､隍ｦ､ﾋ･ﾞ･､･ﾊ･ｹ4､ﾄ､ｬ､｢､､ﾈ｡｢
1178  =item *  ｿ衞ｿﾀC<< <hr> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1179    
1180  行をB<*>ではじめると、  =item *
1181  大見出しC<< <h2> >>になります。  
1182    ｹﾔ､B<*>､ﾇ､ﾏ､ｸ､皃､ﾈ｡｢
1183  =item *  ﾂ邵ｫｽﾐ､ｷC<< <h2> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1184    
1185  行をB<**>ではじめると、  =item *
1186  小見出しC<< <h3> >>になります。  
1187    ｹﾔ､B<**>､ﾇ､ﾏ､ｸ､皃､ﾈ｡｢
1188  =item *  ｾｮｸｫｽﾐ､ｷC<< <h3> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1189    
1190  行をマイナス-ではじめると、  =item *
1191  箇条書きC<< <ul> >>になります。  
1192  マイナスの数が増えるとレベルが下がります（3レベルまで）  ｹﾔ､･ﾞ･､･ﾊ･ｹ-､ﾇ､ﾏ､ｸ､皃､ﾈ｡｢
1193    ｲﾕｾｽ､ｭC<< <ul> >>､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1194      -項目1  ･ﾞ･､･ﾊ･ｹ､ﾎｿ､ｬﾁ､ｨ､､ﾈ･･ﾙ･､ｬｲｼ､ｬ､熙ﾞ､ｹ｡ﾊ3･･ﾙ･､ﾞ､ﾇ｡ﾋ
1195      --項目1-1  
1196      --項目1-2      -ｹ猯ﾜ1
1197      -項目2      --ｹ猯ﾜ1-1
1198      -項目3      --ｹ猯ﾜ1-2
1199      --項目3-1      -ｹ猯ﾜ2
1200      ---項目3-1-1      -ｹ猯ﾜ3
1201      ---項目3-1-2      --ｹ猯ﾜ3-1
1202      --項目3-2      ---ｹ猯ﾜ3-1-1
1203        ---ｹ猯ﾜ3-1-2
1204  =item *      --ｹ猯ﾜ3-2
1205    
1206  コロンを使うと、  =item *
1207  用語と解説文のリストC<< <dl> >>が書けます。  
1208    ･ｳ･･､ｻﾈ､ｦ､ﾈ｡｢
1209      :用語1:いろいろ書いた解説文1  ﾍﾑｸ､ﾈｲﾀ簗ｸ､ﾎ･･ｹ･ﾈC<< <dl> >>､ｬｽ､ｱ､ﾞ､ｹ｡｣
1210      :用語2:いろいろ書いた解説文2  
1211      :用語3:いろいろ書いた解説文3      :ﾍﾑｸ1:､､､､､､ｽ､､､ｿｲﾀ簗ｸ1
1212        :ﾍﾑｸ2:､､､､､､ｽ､､､ｿｲﾀ簗ｸ2
1213  =item *      :ﾍﾑｸ3:､､､､､､ｽ､､､ｿｲﾀ簗ｸ3
1214    
1215  リンク  =item *
1216    
1217  =over 4  ･･･ｯ
1218    
1219  =item *  =over 4
1220    
1221  LinkToSomePageやFrontPageのように、  =item *
1222  英単語の最初の一文字を大文字にしたものが  
1223  二つ以上連続したものはYukiWikiのページ名となり、  LinkToSomePage､腱rontPage､ﾎ､隍ｦ､ﾋ｡｢
1224  それが文章中に含まれるとリンクになります。  ｱﾑﾃｱｸ､ﾎｺﾇｽ鬢ﾎｰﾊｸｻ､ﾂ醋ｸｻ､ﾋ､ｷ､ｿ､筅ﾎ､ｬ
1225    ﾆ､ﾄｰﾊｾ袞｢ﾂｳ､ｷ､ｿ､筅ﾎ､ﾏYukiWiki､ﾎ･ﾚ｡ｼ･ｸﾌｾ､ﾈ､ﾊ､遙｢
1226  =item *  ､ｽ､､ｬﾊｸｾﾏﾃ讀ﾋｴﾞ､ﾞ､､､ﾈ･･･ｯ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1227    
1228  http://www.hyuki.com/ のようなURLは自動的にリンクになります。  =item *
1229    
1230  =item *  http://www.hyuki.com/ ､ﾎ､隍ｦ､ﾊURL､ﾏｼｫﾆｰﾅｪ､ﾋ･･･ｯ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1231    
1232  二重の大かっこ[[ ]]でくくった文字列も、  =item *
1233  YukiWikiのページ名になります。  
1234  大かっこの中にはスペースを含めてはいけません。  ﾆｽﾅ､ﾎﾂ遉ｫ､ﾃ､ｳ[[ ]]､ﾇ､ｯ､ｯ､ﾃ､ｿﾊｸｻﾎ､筍｢
1235  日本語も使えます。  YukiWiki､ﾎ･ﾚ｡ｼ･ｸﾌｾ､ﾋ､ﾊ､熙ﾞ､ｹ｡｣
1236    ﾂ遉ｫ､ﾃ､ｳ､ﾎﾃ讀ﾋ､ﾏ･ｹ･ﾚ｡ｼ･ｹ､ｴﾞ､皃ﾆ､ﾏ､､､ｱ､ﾞ､ｻ､｡｣
1237  =back  ﾆﾋﾜｸ､篏ﾈ､ｨ､ﾞ､ｹ｡｣
1238    
1239  =item *  =back
1240    
1241  行頭がスペースやタブで始まっていると、  =item *
1242  それは整形済みの段落C<< <pre> >>として扱われます。  
1243  プログラムの表示などに使うと便利です。  ｹﾔﾆｬ､ｬ･ｹ･ﾚ｡ｼ･ｹ､茹ｿ･ﾖ､ﾇｻﾏ､ﾞ､ﾃ､ﾆ､､､､ﾈ｡｢
1244    ､ｽ､､ﾏﾀｰｷﾁｺﾑ､ﾟ､ﾎﾃﾊﾍC<< <pre> >>､ﾈ､ｷ､ﾆｰｷ､､､ﾞ､ｹ｡｣
1245    ･ﾗ･･ｰ･鬣爨ﾎﾉｽｼｨ､ﾊ､ﾉ､ﾋｻﾈ､ｦ､ﾈﾊﾘﾍ､ﾇ､ｹ｡｣
1246  =item *  
1247    
1248  行を > ではじめると、  =item *
1249  引用文C<< <blockquote> >>が書けます。  
1250  >の数が多いとインデントが深くなります（3レベルまで）。  ｹﾔ､ > ､ﾇ､ﾏ､ｸ､皃､ﾈ｡｢
1251    ｰﾍﾑﾊｸC<< <blockquote> >>､ｬｽ､ｱ､ﾞ､ｹ｡｣
1252      >文章  >､ﾎｿ､ｬﾂｿ､､､ﾈ･､･･ﾇ･･ﾈ､ｬｿｼ､ｯ､ﾊ､熙ﾞ､ｹ｡ﾊ3･･ﾙ･､ﾞ､ﾇ｡ﾋ｡｣
1253      >文章  
1254      >>さらなる引用      >ﾊｸｾﾏ
1255      >文章      >ﾊｸｾﾏ
1256        >>､ｵ､鬢ﾊ､ｰﾍﾑ
1257  =back      >ﾊｸｾﾏ
1258    
1259  =head1 更新履歴  =back
1260    
1261  =over 4  =head1 ｹｹｿｷﾍﾎ
1262    
1263  =item *  =over 4
1264    
1265  2001年10月20日、Version 1.6.6。  =item *
1266    
1267  更新の衝突対策。  2001ﾇｯ10ｷ20ﾆ｡｢Version 1.6.6｡｣
1268  元ページの簡単なチェックサムを取っておき、  
1269  更新前にチェックサムを比較する。  ｹｹｿｷ､ﾎｾﾗﾆﾍﾂﾐｺ｡｣
1270  修正個所はdigestという文字列を検索すれば分かる。  ｸｵ･ﾚ｡ｼ･ｸ､ﾎｴﾊﾃｱ､ﾊ･ﾁ･ｧ･ﾃ･ｯ･ｵ･爨ｼ隍ﾃ､ﾆ､ｪ､ｭ｡｢
1271  本来はMD5などでちゃんとやった方がいいのだけれど。  ｹｹｿｷﾁｰ､ﾋ･ﾁ･ｧ･ﾃ･ｯ･ｵ･爨ﾈ豕ﾓ､ｹ､｡｣
1272    ｽ､ﾀｵｸﾄｽ熙ﾏdigest､ﾈ､､､ｦﾊｸｻﾎ､ｸ｡ｺ､ｹ､､ﾐﾊｬ､ｫ､｡｣
1273  衝突時に表示されるメッセージなどは「極悪」さんのページを参考にした。  ﾋﾜﾍ隍ﾏMD5､ﾊ､ﾉ､ﾇ､ﾁ､网､ﾈ､荀ﾃ､ｿﾊ､ｬ､､､､､ﾎ､ﾀ､ｱ､､ﾉ｡｣
1274    
1275  =item *  ｾﾗﾆﾍｻ､ﾋﾉｽｼｨ､ｵ､､･皈ﾃ･ｻ｡ｼ･ｸ､ﾊ､ﾉ､ﾏ｡ﾖｶﾋｰｭ｡ﾗ､ｵ､､ﾎ･ﾚ｡ｼ･ｸ､ｻｲｹﾍ､ﾋ､ｷ､ｿ｡｣
1276    
1277  2001年10月17日、Version 1.6.5。  =item *
1278    
1279  プレビュー画面で、更新ボタンを押したときに送信される  2001ﾇｯ10ｷ17ﾆ｡｢Version 1.6.5｡｣
1280  メッセージの内容をinput要素のtype="hidden"を使って埋め込むのをやめる。  
1281  代わりに、textarea要素を使う。  ･ﾗ･･ﾓ･蝪ｼｲ靂ﾌ､ﾇ｡｢ｹｹｿｷ･ﾜ･ｿ･､ｲ｡､ｷ､ｿ､ﾈ､ｭ､ﾋﾁｿｮ､ｵ､､
1282  再プレビュー用にmyspecial_を導入。でもきれいな対策ではない。  ･皈ﾃ･ｻ｡ｼ･ｸ､ﾎﾆ簣ﾆ､inputﾍﾗﾁﾇ､ﾎtype="hidden"､ｻﾈ､ﾃ､ﾆﾋ荀盪､爨ﾎ､､荀皃｡｣
1283    ﾂ螟､熙ﾋ｡｢textareaﾍﾗﾁﾇ､ｻﾈ､ｦ｡｣
1284  =item *  ｺﾆ･ﾗ･･ﾓ･蝪ｼﾍﾑ､ﾋmyspecial_､ﾆｳﾆ｡｣､ﾇ､筅ｭ､､､､ﾊﾂﾐｺ､ﾇ､ﾏ､ﾊ､､｡｣
1285    
1286  2001年8月30日、Version 1.6.4。  =item *
1287    
1288  URLでダイレクトにページ名を指定しても、  2001ﾇｯ8ｷ30ﾆ｡｢Version 1.6.4｡｣
1289  $WikiNameと$BracketName以外のページを作れないようにした。  
1290  (is_valid_nameとis_editable参照)。  URL､ﾇ･ﾀ･､･･ｯ･ﾈ､ﾋ･ﾚ｡ｼ･ｸﾌｾ､ｻﾘﾄ熙ｷ､ﾆ､筍｢
1291    $WikiName､ﾈ$BracketNameｰﾊｳｰ､ﾎ･ﾚ｡ｼ･ｸ､ｺ､､ﾊ､､､隍ｦ､ﾋ､ｷ､ｿ｡｣
1292  =item *  (is_valid_name､ﾈis_editableｻｲｾﾈ)｡｣
1293    
1294  2001年8月30日、Version 1.6.3。  =item *
1295    
1296  RecentChangesを編集・再編集不可とした。  2001ﾇｯ8ｷ30ﾆ｡｢Version 1.6.3｡｣
1297  編集不可ページは@uneditableにページ名を入れる。  
1298    RecentChanges､ﾊﾔｽｸ｡ｦｺﾆﾊﾔｽｸﾉﾔｲﾄ､ﾈ､ｷ､ｿ｡｣
1299  =item *  ﾊﾔｽｸﾉﾔｲﾄ･ﾚ｡ｼ･ｸ､ﾏ@uneditable､ﾋ･ﾚ｡ｼ･ｸﾌｾ､ﾆ､､｡｣
1300    
1301  2001年2月25日、Version 1.6.1, 1.6.2。  =item *
1302    
1303  差分機能のバグ修正。  2001ﾇｯ2ｷ25ﾆ｡｢Version 1.6.1, 1.6.2｡｣
1304  do_previewで'>'が扱えないバグを修正  
1305  （ユーザからの指摘）。  ｺｹﾊｬｵ｡ﾇｽ､ﾎ･ﾐ･ｰｽ､ﾀｵ｡｣
1306    do_preview､ﾇ'>'､ｬｰｷ､ｨ､ﾊ､､･ﾐ･ｰ､ｽ､ﾀｵ
1307  =item *  ｡ﾊ･譯ｼ･ｶ､ｫ､鬢ﾎｻﾘﾅｦ｡ﾋ｡｣
1308    
1309  2001年2月22日、Version 1.6.0。  =item *
1310  差分機能を実装した。  
1311    2001ﾇｯ2ｷ22ﾆ｡｢Version 1.6.0｡｣
1312  =item *  ｺｹﾊｬｵ｡ﾇｽ､ｼﾂﾁ､ｷ､ｿ｡｣
1313    
1314  2001年2月19日、Version 1.5.4。  =item *
1315  画像ファイルへのリンクは画像にしてみた。  
1316    2001ﾇｯ2ｷ19ﾆ｡｢Version 1.5.4｡｣
1317  =item *  ｲ霖･ﾕ･｡･､･､ﾘ､ﾎ･･･ｯ､ﾏｲ霖､ﾋ､ｷ､ﾆ､ﾟ､ｿ｡｣
1318    
1319  2001年2月19日、Version 1.5.3。  =item *
1320  RecentChangesの中に削除したページがあるのをやめた。  
1321  use strict;で引っかかる部分を少し整理(完全ではない)。  2001ﾇｯ2ｷ19ﾆ｡｢Version 1.5.3｡｣
1322    RecentChanges､ﾎﾃ讀ﾋｺｽ､ｷ､ｿ･ﾚ｡ｼ･ｸ､ｬ､｢､､ﾎ､､荀皃ｿ｡｣
1323  =item *  use strict;､ﾇｰ､ﾃ､ｫ､ｫ､ﾉﾊｬ､ｾｯ､ｷﾀｰﾍ(ｴｰﾁｴ､ﾇ､ﾏ､ﾊ､､)｡｣
1324    
1325  2001年2月16日、Version 1.5.2。  =item *
1326  textareaに表示およびプレビューする前に < や > を &lt; や &gt; に変換した  
1327  (do_preview, editpage, print_preview_buttons)。  2001ﾇｯ2ｷ16ﾆ｡｢Version 1.5.2｡｣
1328    textarea､ﾋﾉｽｼｨ､ｪ､隍ﾓ･ﾗ･･ﾓ･蝪ｼ､ｹ､ﾁｰ､ﾋ < ､ > ､ &lt; ､ &gt; ､ﾋﾊﾑｴｹ､ｷ､ｿ
1329  =item *  (do_preview, editpage, print_preview_buttons)｡｣
1330    
1331  2000年12月27日、Version 1.5.1。  =item *
1332  プレビュー画面を整理した。  
1333    2000ﾇｯ12ｷ27ﾆ｡｢Version 1.5.1｡｣
1334  =item *  ･ﾗ･･ﾓ･蝪ｼｲ靂ﾌ､ﾀｰﾍ､ｷ､ｿ｡｣
1335    
1336  2000年12月22日、Version 1.5.0。  =item *
1337  全体的にずいぶん書き直した。  
1338  一覧を別途作成するようにした(do_list)。  2000ﾇｯ12ｷ22ﾆ｡｢Version 1.5.0｡｣
1339  書き込む前に確認画面を出すようにした(do_preview)。  ﾁｴﾂﾎﾅｪ､ﾋ､ｺ､､､ﾖ､ｽ､ｭﾄｾ､ｷ､ｿ｡｣
1340  テキストの書き方を編集画面に入れた(do_edit, do_reedit)。  ｰﾍ､ﾊﾌﾅﾓｺﾀｮ､ｹ､､隍ｦ､ﾋ､ｷ､ｿ(do_list)｡｣
1341  WhatsNew→RecentChanges、TopPage→FrontPageに変更した。  ｽ､ｭｹ､狠ｰ､ﾋｳﾎﾇｧｲ靂ﾌ､ｽﾐ､ｹ､隍ｦ､ﾋ､ｷ､ｿ(do_preview)｡｣
1342    ･ﾆ･ｭ･ｹ･ﾈ､ﾎｽ､ｭﾊ､ﾊﾔｽｸｲ靂ﾌ､ﾋﾆ､､ｿ(do_edit, do_reedit)｡｣
1343  =item *  WhatsNew｢ｪRecentChanges｡｢TopPage｢ｪFrontPage､ﾋﾊﾑｹｹ､ｷ､ｿ｡｣
1344    
1345  2000年12月20日、Version 1.1.0。  =item *
1346  tieを利用して、dbmopenが使えない場合でも動作するように修正。  
1347  利用者の1人である「極悪」さんから  2000ﾇｯ12ｷ20ﾆ｡｢Version 1.1.0｡｣
1348  送っていただいたコードを元にしています。  tie､ﾍﾍﾑ､ｷ､ﾆ｡｢dbmopen､ｬｻﾈ､ｨ､ﾊ､､ｾｹ遉ﾇ､簇ｰｺ､ｹ､､隍ｦ､ﾋｽ､ﾀｵ｡｣
1349    ﾍﾍﾑｼﾔ､ﾎ1ｿﾍ､ﾇ､｢､｡ﾖｶﾋｰｭ｡ﾗ､ｵ､､ｫ､
1350  =item *  ﾁ､ﾃ､ﾆ､､､ｿ､ﾀ､､､ｿ･ｳ｡ｼ･ﾉ､ｸｵ､ﾋ､ｷ､ﾆ､､､ﾞ､ｹ｡｣
1351    
1352  2000年9月5日、Version 1.0.2。  =item *
1353   <body color=...> → <body bgcolor=...>  
1354  利用者からの指摘による。感謝。  2000ﾇｯ9ｷ5ﾆ｡｢Version 1.0.2｡｣
1355     <body color=...> ｢ｪ <body bgcolor=...>
1356  =item *  ﾍﾍﾑｼﾔ､ｫ､鬢ﾎｻﾘﾅｦ､ﾋ､隍｡｣ｴｶｼﾕ｡｣
1357    
1358  2000年8月6日、Version 1.0.1を公開。  =item *
1359  C MAGAZINE（ソフトバンクパブリッシング）  
1360  2000年10月号連載記事向け公開版。  2000ﾇｯ8ｷ6ﾆ｡｢Version 1.0.1､ｸｳｫ｡｣
1361  [[ ]] の最後が「望」のようにシフトJISで  C MAGAZINE｡ﾊ･ｽ･ﾕ･ﾈ･ﾐ･･ｯ･ﾑ･ﾖ･･ﾃ･ｷ･･ｰ｡ﾋ
1362  0x5Dになる場合の回避を行なった。  2000ﾇｯ10ｷｹ賺｢ｺﾜｵｭｻｸ､ｱｸｳｫﾈﾇ｡｣
1363    [[ ]] ､ﾎｺﾇｸ螟ｬ｡ﾖﾋｾ｡ﾗ､ﾎ､隍ｦ､ﾋ･ｷ･ﾕ･ﾈJIS､ﾇ
1364  =item *  0x5D､ﾋ､ﾊ､ｾｹ遉ﾎｲﾈ､ｹﾔ､ﾊ､ﾃ､ｿ｡｣
1365    
1366  2000年8月5日、Version 1.0.0を公開。  =item *
1367    
1368  =item *  2000ﾇｯ8ｷ5ﾆ｡｢Version 1.0.0､ｸｳｫ｡｣
1369    
1370  2000年7月23日、Version 0.82を公開。  =item *
1371  編集時のリンクミス。  
1372  <textarea>の属性変更。  2000ﾇｯ7ｷ23ﾆ｡｢Version 0.82､ｸｳｫ｡｣
1373    ﾊﾔｽｸｻ､ﾎ･･･ｯ･ﾟ･ｹ｡｣
1374  =item *  <textarea>､ﾎﾂｰﾀｭﾊﾑｹｹ｡｣
1375    
1376  2000年7月22日、Version 0.81を公開。  =item *
1377  ロゴを組み込む。  
1378    2000ﾇｯ7ｷ22ﾆ｡｢Version 0.81､ｸｳｫ｡｣
1379  =item *  ･･ｴ､ﾁﾈ､ﾟｹ､爍｣
1380    
1381  2000年7月21日、Version 0.80を公開。  =item *
1382  PODをCGI中に書き込む。  
1383    2000ﾇｯ7ｷ21ﾆ｡｢Version 0.80､ｸｳｫ｡｣
1384  =item *  POD､CGIﾃ讀ﾋｽ､ｭｹ､爍｣
1385    
1386  2000年7月19日、Version 0.70を公開。  =item *
1387  '''イタリック'''や、--、---、>>、>>>などを実装。  
1388    2000ﾇｯ7ｷ19ﾆ｡｢Version 0.70､ｸｳｫ｡｣
1389  =item *  '''･､･ｿ･･ﾃ･ｯ'''､茖｢--｡｢---｡｢>>｡｢>>>､ﾊ､ﾉ､ｼﾂﾁ｡｣
1390    
1391  2000年7月18日、Version 0.60を公開。  =item *
1392  *太字*を''太字''に変更  
1393    2000ﾇｯ7ｷ18ﾆ｡｢Version 0.60､ｸｳｫ｡｣
1394  =item *  *ﾂﾀｻ*､''ﾂﾀｻ''､ﾋﾊﾑｹｹ
1395    
1396  2000年7月17日、Version 0.50を公開。  =item *
1397    
1398  =item *  2000ﾇｯ7ｷ17ﾆ｡｢Version 0.50､ｸｳｫ｡｣
1399    
1400  2000年7月17日、さらにいろいろ追加する。  =item *
1401    
1402  =item *  2000ﾇｯ7ｷ17ﾆ｡｢､ｵ､鬢ﾋ､､､､､､ﾄﾉｲﾃ､ｹ､｡｣
1403    
1404  2000年7月16日、いろいろ追加。  =item *
1405    
1406  =item *  2000ﾇｯ7ｷ16ﾆ｡｢､､､､､､ﾄﾉｲﾃ｡｣
1407    
1408  2000年7月15日、公開。  =item *
1409    
1410  =back  2000ﾇｯ7ｷ15ﾆ｡｢ｸｳｫ｡｣
1411    
1412  =head1 TODO  =back
1413    
1414      - テキスト表示モード  =head1 TODO
1415      - Charsetを明示。  
1416      - textarea中の閉じタグ対応      - ･ﾆ･ｭ･ｹ･ﾈﾉｽｼｨ･筍ｼ･ﾉ
1417      - メニューの英語表記付記      - Charset､ﾌﾀｼｨ｡｣
1418      - プレビューのボタンで、mymsgをinputのvalueに入れているが、改行をそのままvalueにいれてはいけないのではないか。      - textareaﾃ讀ﾎﾊﾄ､ｸ･ｿ･ｰﾂﾐｱ
1419      - 「再編集」の機能はブラウザの back で充分ではないか。プレビューはもっとシンプルに。      - ･皈ﾋ･蝪ｼ､ﾎｱﾑｸﾉｽｵｭﾉﾕｵｭ
1420      - ページタイトル（Wikiname）が検索にかかるようにする。      - ･ﾗ･･ﾓ･蝪ｼ､ﾎ･ﾜ･ｿ･､ﾇ｡｢mymsg､input､ﾎvalue､ﾋﾆ､､ﾆ､､､､ｬ｡｢ｲｹﾔ､､ｽ､ﾎ､ﾞ､ﾞvalue､ﾋ､､､､ﾆ､ﾏ､､､ｱ､ﾊ､､､ﾎ､ﾇ､ﾏ､ﾊ､､､ｫ｡｣
1421      - InterWiki風の機能「URLを隠しつつ、リンクを張る」      - ｡ﾖｺﾆﾊﾔｽｸ｡ﾗ､ﾎｵ｡ﾇｽ､ﾏ･ﾖ･鬣ｦ･ｶ､ﾎ back ､ﾇｽｼﾊｬ､ﾇ､ﾏ､ﾊ､､､ｫ｡｣･ﾗ･･ﾓ･蝪ｼ､ﾏ､筅ﾃ､ﾈ･ｷ･･ﾗ･､ﾋ｡｣
1422        - ･ﾚ｡ｼ･ｸ･ｿ･､･ﾈ･｡ﾊWikiname｡ﾋ､ｬｸ｡ｺ､ﾋ､ｫ､ｫ､､隍ｦ､ﾋ､ｹ､｡｣
1423  =head1 作者      - InterWikiﾉ､ﾎｵ｡ﾇｽ｡ﾖURL､ｱ｣､ｷ､ﾄ､ﾄ｡｢･･･ｯ､ﾄ･､｡ﾗ
1424    
1425      Copyright (C) 2000 by Hiroshi Yuki.  =head1 ｺｼﾔ
1426      結城浩 <hyuki@hyuki.com>  
1427      http://www.hyuki.com/      Copyright (C) 2000 by Hiroshi Yuki.
1428      http://www.hyuki.com/yukiwiki/      ｷｾｹﾀ <hyuki@hyuki.com>
1429        http://www.hyuki.com/
1430  質問、意見、バグ報告は hyuki@hyuki.com にメールしてください。      http://www.hyuki.com/yukiwiki/
1431    
1432  =head1 配布条件  ｼﾁﾌ茖｢ｰﾕｸｫ｡｢･ﾐ･ｰﾊｹ､ﾏ hyuki@hyuki.com ､ﾋ･癸ｼ･､ｷ､ﾆ､ｯ､ﾀ､ｵ､､｡｣
1433    
1434  YukiWikiは、  =head1 ﾇﾛﾉﾛｾｷ
1435  GNU General Public Licenseにて公開します。  
1436    YukiWiki､ﾏ｡｢
1437  YukiWikiはフリーソフトです。  GNU General Public License､ﾋ､ﾆｸｳｫ､ｷ､ﾞ､ｹ｡｣
1438  ご自由にお使いください。  
1439  自分好みのYukiWikiが作れるようにシンプルにしてあります。  YukiWiki､ﾏ･ﾕ･遙ｼ･ｽ･ﾕ･ﾈ､ﾇ､ｹ｡｣
1440    ､ｴｼｫﾍｳ､ﾋ､ｪｻﾈ､､､ｯ､ﾀ､ｵ､､｡｣
1441  =head1 謝辞  ｼｫﾊｬｹ･､ﾟ､ﾎYukiWiki､ｬｺ､､､隍ｦ､ﾋ･ｷ･･ﾗ･､ﾋ､ｷ､ﾆ､｢､熙ﾞ､ｹ｡｣
1442    
1443  本家のWikiWikiを作ったCunningham & Cunningham, Inc.に  =head1 ｼﾕｼｭ
1444  感謝します。  
1445    ﾋﾜｲﾈ､ﾎWikiWiki､ｺ､ﾃ､ｿCunningham & Cunningham, Inc.､ﾋ
1446  YukiWikiを楽しんで使ってくださる  ｴｶｼﾕ､ｷ､ﾞ､ｹ｡｣
1447  ネット上の方々に感謝します。  
1448    YukiWiki､ｳﾚ､ｷ､､ﾇｻﾈ､ﾃ､ﾆ､ｯ､ﾀ､ｵ､
1449  YukiWikiのロゴをデザインしてくださった橋本礼奈さん  ･ﾍ･ﾃ･ﾈｾ螟ﾎﾊ｡ｹ､ﾋｴｶｼﾕ､ｷ､ﾞ､ｹ｡｣
1450  http://city.hokkai.or.jp/~reina/  
1451  に感謝します。  YukiWiki､ﾎ･･ｴ､･ﾇ･ｶ･､･､ｷ､ﾆ､ｯ､ﾀ､ｵ､ﾃ､ｿｶｶﾋﾜﾎ鯣爨ｵ､
1452    http://city.hokkai.or.jp/~reina/
1453  tieを使った版の元になるコードを送ってくださった  ､ﾋｴｶｼﾕ､ｷ､ﾞ､ｹ｡｣
1454  「極悪」さんに感謝します。  
1455    tie､ｻﾈ､ﾃ､ｿﾈﾇ､ﾎｸｵ､ﾋ､ﾊ､･ｳ｡ｼ･ﾉ､ﾁ､ﾃ､ﾆ､ｯ､ﾀ､ｵ､ﾃ､ｿ
1456  =head1 参照リンク  ｡ﾖｶﾋｰｭ｡ﾗ､ｵ､､ﾋｴｶｼﾕ､ｷ､ﾞ､ｹ｡｣
1457    
1458  =over 4  =head1 ｻｲｾﾈ･･･ｯ
1459    
1460  =item *  =over 4
1461    
1462  YukiWikiホームページ  =item *
1463  http://www.hyuki.com/yukiwiki/  
1464    YukiWiki･ﾛ｡ｼ･爭ﾚ｡ｼ･ｸ
1465  =item *  http://www.hyuki.com/yukiwiki/
1466    
1467  本家のWikiWiki  =item *
1468  http://c2.com/cgi/wiki?WikiWikiWeb  
1469    ﾋﾜｲﾈ､ﾎWikiWiki
1470  =item *  http://c2.com/cgi/wiki?WikiWikiWeb
1471    
1472  本家のWikiWikiの作者(Cunningham & Cunningham, Inc.)  =item *
1473  http://c2.com/  
1474    ﾋﾜｲﾈ､ﾎWikiWiki､ﾎｺｼﾔ(Cunningham & Cunningham, Inc.)
1475  =item *  http://c2.com/
1476    
1477  YukiWikiのロゴデザインをしてくださった橋本礼奈さんのページ  =item *
1478  http://city.hokkai.or.jp/~reina/  
1479    YukiWiki､ﾎ･･ｴ･ﾇ･ｶ･､･､､ｷ､ﾆ､ｯ､ﾀ､ｵ､ﾃ､ｿｶｶﾋﾜﾎ鯣爨ｵ､､ﾎ･ﾚ｡ｼ･ｸ
1480  =back  http://city.hokkai.or.jp/~reina/
1481    
1482  =cut  =back
1483    
1484    =cut
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24