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

Contents of /suikawiki/script/wiki.cgi

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.8 - (show annotations) (download)
Sun Mar 24 00:51:52 2002 UTC (22 years, 1 month ago) by wakaba
Branch: MAIN
Changes since 1.7: +1491 -1484 lines 
2002-03-24  wakaba <w@suika.fam.cx>

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