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