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