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

Contents of /suikawiki/script/wiki.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (show annotations) (download)
Mon Feb 4 15:22:00 2002 UTC (23 years, 6 months ago) by wakaba
Branch: MAIN
Changes since 1.4: +7 -5 lines
implement <uri:foo:bar> format.

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.3 2002/02/04 14:36:18 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 = '\[\[([^>\s]+?\]?)\]\]';
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 (<(mailto|http|https|ftp|urn):[\x21-\x7E]*)> # Direct http://...
569 |
570 ($WikiName) # LocalLinkLikeThis
571 |
572 ($BracketName) # [[���ܸ���]]
573 )
574 !
575 &make_link($1)
576 !gex;
577 return $line;
578 }
579
580 # �ڡ����Υ����ȥ뤫��ڡ��������Ƥ�����
581 sub get_page {
582 my $page_name = shift;
583 return $database{$page_name};
584 }
585
586 # �ڡ��������Ƥ�Ϳ����
587 # &set_page($title, $txt)
588 sub set_page {
589 # �ڡ����򹹿�����
590 my $title = $_[0];
591 $database{$title} = $_[1];
592 # ���ڡ����ʤ�������
593 unless ($database{$title}) {
594 delete $database{$title};
595 }
596 # RecentChanges�򹹿�����
597 my $delim = ' - ';
598 my @pages = split(/\n/, $database{$whatsnew});
599 my $datestr = &get_current_datestr;
600 unshift(@pages, qq|-$datestr$delim$title|);
601 # Ʊ��ڡ����ι����Ϻǿ��Τ�ΤΤߤˤ���
602 # ¸�ߤ��ʤ��ڡ����ϥ����åפ��롣
603 my %count;
604 my @newpages;
605 foreach my $line (@pages) {
606 my ($prefix, $title) = split(/$delim/, $line);
607 $count{$title}++;
608 if ($count{$title} == 1 and exists($database{$title})) {
609 push(@newpages, qq|$prefix - $title|);
610 }
611 }
612 # �����������˹���
613 $database{$whatsnew} = join("\n", splice(@newpages, 0, $maxnew));
614 }
615
616 # �ڡ����Υإå������
617 sub print_header {
618 my $title = shift;
619 print <<"EOD";
620 Content-type: text/html
621
622 <html><head>
623 <title>$title</title>
624 <style type="text/css">
625 $style
626 </style>
627 </head>
628 <body>
629 EOD
630 }
631
632 # �ġ���С������
633 sub print_toolbar {
634 my $page_name = shift;
635 my $percent_name = &encode_percent($page_name);
636 my $editlink = '';
637 if ($page_name ne '' and &is_editable($page_name)) {
638 $editlink = <<"EOD";
639 <a href="$thisurl?mycmd=edit;mypage=$percent_name">�Խ�</a> |
640 <a href="$thisurl?mycmd=diff;mypage=$percent_name">��ʬ</a> |
641 EOD
642 }
643 print <<"EOD";
644 <p>
645 [
646 <a href="$thisurl?mycmd=read;mypage=$toppage">�ȥå�</a> |
647 <a href="$thisurl?mycmd=list">����</a> |
648 $editlink
649 <a href="$thisurl?mycmd=search">ñ�측��</a> |
650 <a href="$thisurl?mycmd=read;mypage=$whatsnew">�ǽ�����</a>
651 ]
652 </p>
653 EOD
654 }
655
656 # �ڡ����Υեå������
657 sub print_footer {
658 print <<"EOD";
659 <address>
660 <a href="http://www.hyuki.com/yukiwiki/">YukiWiki</a> 1.6.6 Copyright (C) 2000,2001 by <a href="http://www.hyuki.com/">Hiroshi Yuki.</a>
661 + <a href="$modifierlink">$modifier</a> ${version}.
662 [<a href="/" title="���Υ����С��μ���">/</a>
663 <a href="/map" title="���Υ����С��ΰ���">�Ͽ�</a>
664 <a href="/search/" title="���Υ����С��θ���">����</a>]
665 </address>
666 </body></html>
667 EOD
668 }
669
670 # URL��ڡ�����̾�������󥯤���
671 sub make_link {
672 my $name = shift;
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 } elsif ($database{$name}) {
685 my $percent_name = &encode_percent($name);
686 return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name">$name</a>|;
687 } else {
688 my $percent_name = &encode_percent($name);
689 return qq|$name<a href="$thisurl?mycmd=edit;mypage=$percent_name">?</a>|;
690 }
691 }
692
693 # %xx �η����˥��󥳡��ɤ���
694 # ����ϡ�
695 # http://www.hyuki.com/yukiwiki/yukiwiki.cgi?mycmd=read&mypage=%3C%8C%8B%8F%E9%8D_%3E
696 # �Ȥ��������Τ���˻Ȥ��롣
697 # '<����>' �� '%3C%8C%8B%8F%E9%8D_%3E'
698 sub encode_percent {
699 my $name = shift;
700 my $encoded = '';
701 foreach my $ch (split(//, $name)) {
702 if ($ch =~ /[A-Za-z0-9_]/) {
703 $encoded .= $ch;
704 } else {
705 $encoded .= '%' . sprintf("%02X", ord($ch));
706 }
707 }
708 return $encoded;
709 }
710
711 # �ƥ��������Τ�HTML���Ѵ�����
712 sub convert_html {
713 my ($txt) = shift;
714 my (@txt) = split(/\n/, $txt);
715 foreach (@txt) {
716 chomp;
717 if (/^\*\*(.*)/) {
718 push(@result, splice(@saved), '<h3>' . &inline($1) . '</h3>');
719 } elsif (/^\*(.*)/) {
720 push(@result, splice(@saved), '<h2>' . &inline($1) . '</h2>');
721 } elsif (/^----/) {
722 push(@result, splice(@saved), '<hr>');
723 } elsif (/^(-{1,3})(.*)/) {
724 &back_push('ul', length($1));
725 push(@result, '<li>' . &inline($2) . '</li>');
726 } elsif (/^:([^:]+):(.*)/) {
727 &back_push('dl', 1);
728 push(@result, '<dt>' . &inline($1) . '</dt>', '<dd>' . &inline($2) . '</dd>');
729 } elsif (/^(>{1,3})(.*)/) {
730 &back_push('blockquote', length($1));
731 push(@result, &inline($2));
732 } elsif (/^\s*$/) {
733 push(@result, splice(@saved));
734 unshift(@saved, "</p>");
735 push(@result, "<p>");
736 } elsif (/^(\s+.*)$/) {
737 &back_push('pre', 1);
738 push(@result, &escape($1)); # Not &inline, but &escape
739 } else {
740 push(@result, &inline($_));
741 }
742 }
743 push(@result, splice(@saved));
744 return join("\n", @result);
745 }
746
747 # &back_push($tag, $count)
748 # $tag�Υ�����$level��٥�ޤǵͤ�롣
749 sub back_push {
750 my ($tag, $level) = @_;
751 while (@saved > $level) {
752 push(@result, shift(@saved));
753 }
754 if ($saved[0] ne "</$tag>") {
755 push(@result, splice(@saved));
756 }
757 while (@saved < $level) {
758 unshift(@saved, "</$tag>");
759 push(@result, "<$tag>");
760 }
761 }
762
763 # �Խ���ǽ�ڡ�������
764 sub is_editable {
765 my ($pagename) = @_;
766 foreach (@uneditable) {
767 if ($pagename eq $_) {
768 return 0;
769 }
770 }
771 if (&is_valid_name($pagename)) {
772 return 1;
773 }
774 return 0;
775 }
776
777 # Valid��̾������
778 sub is_valid_name {
779 my ($pagename) = @_;
780 if ($pagename =~ /^$WikiName$/) {
781 return 1;
782 } elsif ($pagename =~ /^$BracketName$/) {
783 return 1;
784 } else {
785 return 0;
786 }
787 }
788
789 # ���߻����ʸ���������
790 sub get_current_datestr {
791 my (@wdays) = ( "��", "��", "��", "��", "��", "��", "��" );
792 my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
793 return sprintf("%4d-%02d-%02d (%s) %02d:%02d:%02d",
794 $year + 1900, $mon + 1, $mday, $wdays[$wday], $hour, $min, $sec);
795 }
796
797 # URL?SomePage�䡢
798 # URL?[[����]]�η������ä���硢(not yet)
799 # ����Ū��mycmd��read�ˤ���$form�����Ƥ����ꤹ�롣
800 sub normalize_form {
801 foreach my $key (keys %form) {
802 if ($key =~ /^$WikiName$/) {
803 $form{mycmd} = 'read';
804 $form{mypage} = $1;
805 last;
806 } elsif ($key =~ /^$BracketName$/) {
807 $form{mycmd} = 'read';
808 $form{mypage} = $1;
809 last;
810 }
811 }
812 }
813
814 # �Ѵ��ƥ��Ȥ�Ԥʤ��Ȥ��Υ���ץ�
815 sub print_sample {
816 my $txt = &convert_html(<<"EOD");
817 *�縫�Ф�1
818 **������1-1
819 -����1
820 -����2
821 -����3
822 ����1����1����1����1����1����1����1����1����1����1����1����1
823 ����1����1����1����1����1����''��Ĵ''1����1����1����1����1����1
824 ����1����1����1����1����1����1����1����1����1����1����1����1
825
826 ����2����2����2����2����2����2����2����2����2����2����2����2
827 ����2����2����2����2����2����2����2����2����2����2����2����2
828 ����2����2����2����2����2����2����2����2����2����2����2����2
829 **������1-2
830 :�Ѹ�1:���������񤤤�����ʸ1��''��Ĵñ��''
831 ����1����1����1����1����1����1����1����1����1����1����1����1
832 ����1����1����1����1����1����1����1����1����1����1����1����1
833 ����1����1����1����1����1����1����1����1����1����1����1����1
834 :�Ѹ�2:���������񤤤�����ʸ2
835 :�Ѹ�3:���������񤤤�����ʸ3
836 ----
837 *�縫�Ф�2
838 **������2-1
839 &lt;http://suika.fam.cx/&gt;
840 **������2-2
841
842 [[����]]
843
844 ����1����1����1����1����1����1����1����1����1����1����1����1
845 ����1����1����1����'''��Ĵ'''1����1����1����1����1����1����1����1
846 ����1����1����1����'''''������Ĵ'''''1����1����1����1����1����1����1����1����1
847 >����2����2����2����2����2����2����2����2����2����2����2����2
848 >����2����2����2����2����2����2����2����2����2����2����2����2
849 >����2����2����2����2����2����2����2����2����2����2����2����2
850
851 ��٥�0��٥�0��٥�0��٥�0��٥�0��٥�0
852
853 >��٥�1
854 >��٥�1
855 >��٥�1
856 >>��٥�2
857 >>��٥�2
858 >>��٥�2
859 >>>��٥�3
860 -�Ϥ�1
861 --�Ϥ�2
862 ��������2
863 ---�Ϥ�3
864 --�Ϥ�2
865 ---�Ϥ�3
866 --�Ϥ�2
867 ---�Ϥ�3
868 >>>��٥�3
869 >>>��٥�3
870 >>>��٥�3
871 EOD
872 print $txt;
873 exit;
874 }
875
876 sub diff_check {
877 traverse_sequences(
878 $msgrefA, $msgrefB,
879 {
880 MATCH => \&df_match,
881 DISCARD_A => \&df_delete,
882 DISCARD_B => \&df_add,
883 }
884 );
885 &diff_flush;
886 }
887
888 sub diff_flush {
889 $diff_text .= join('', map { "-$_\n" } splice(@diff_deleted));
890 $diff_text .= join('', map { "+$_\n" } splice(@diff_added));
891 }
892
893 sub df_match {
894 my ($a, $b) = @_;
895 &diff_flush;
896 $diff_text .= "=$msgrefA->[$a]\n";
897 }
898
899 sub df_delete {
900 my ($a, $b) = @_;
901 push(@diff_deleted, $msgrefA->[$a]);
902 }
903
904 sub df_add {
905 my ($a, $b) = @_;
906 push(@diff_added, $msgrefB->[$b]);
907 }
908
909 sub calc_message_digest { # You have to use MD5...
910 my $text = shift;
911 my @text = split(//, $text);
912 my $len = length($text);
913 my $checksum = 0;
914 foreach (@text) {
915 $checksum += ord($_);
916 $checksum = ($checksum * 2) % 65536 + (($checksum & 32768) ? 1 : 0); # 16bit rotate
917 }
918 return "$len:$checksum";
919 }
920
921 # Definition of YukiWikiDB
922 package YukiWikiDB;
923
924 my $debug = 1;
925
926 # Constructor
927 sub new {
928 return shift->TIEHASH(@_);
929 }
930
931 # tying
932 sub TIEHASH {
933 my ($class, $dbname) = @_;
934 my $self = {
935 dir => $dbname,
936 keys => [],
937 };
938 if (not -d $self->{dir}) {
939 if (!mkdir($self->{dir}, 0777)) {
940 print "mkdir(" . $self->{dir} . ") fail\n" if ($debug);
941 return undef;
942 }
943 }
944 return bless($self, $class);
945 }
946
947 # Store
948 sub STORE {
949 my ($self, $key, $val) = @_;
950 my $file = &make_filename($self, $key);
951 if (open(FILE,"> $file")) {
952 binmode(FILE);
953 print FILE $val;
954 close(FILE);
955 return $self->{$key} = $val;
956 } else {
957 print "$file create error.";
958 }
959 }
960
961 # Fetch
962 sub FETCH {
963 my ($self, $key) = @_;
964 my $file = &make_filename($self, $key);
965 if (open(FILE, $file)) {
966 local $/;
967 $self->{$key} = <FILE>;
968 close(FILE);
969 }
970 return $self->{$key};
971 }
972
973 # Exists
974 sub EXISTS {
975 my ($self, $key) = @_;
976 my $file = &make_filename($self, $key);
977 return -e($file);
978 }
979
980 # Delete
981 sub DELETE {
982 my ($self, $key) = @_;
983 my $file = &make_filename($self, $key);
984 unlink $file;
985 return delete $self->{$key};
986 }
987
988 sub FIRSTKEY {
989 my ($self) = @_;
990 opendir(DIR, $self->{dir}) or die $self->{dir};
991 @{$self->{keys}} = grep /\.txt$/, readdir(DIR);
992 foreach my $name (@{$self->{keys}}) {
993 $name =~ s/\.txt$//;
994 $name =~ s/[0-9A-F][0-9A-F]/pack("C", hex($&))/eg;
995 }
996 return shift @{$self->{keys}};
997 }
998
999 sub NEXTKEY {
1000 my ($self) = @_;
1001 return shift @{$self->{keys}};
1002 }
1003
1004 sub make_filename {
1005 my ($self, $key) = @_;
1006 my $enkey = '';
1007 foreach my $ch (split(//, $key)) {
1008 $enkey .= sprintf("%02X", ord($ch));
1009 }
1010 return $self->{dir} . "/$enkey.txt";
1011 }
1012 __END__
1013
1014 =head1 NAME
1015
1016 YukiWiki - ��ͳ�˥ڡ������ɲá�������Խ��Ǥ���Web�ڡ�������CGI
1017
1018 Copyright (C) 2000,2001 by Hiroshi Yuki.
1019 ���� <hyuki@hyuki.com>
1020 http://www.hyuki.com/
1021 http://www.hyuki.com/yukiwiki/
1022
1023 =head1 SYNOPSIS
1024
1025 http://www.hyuki.com/yukiwiki/yukiwiki.cgi
1026
1027 =head1 DESCRIPTION
1028
1029 YukiWiki�ʷ�륦�������ˤϻ��üԤ���ͳ�˥ڡ������ɲá�������Խ��Ǥ���
1030 �Ի׵Ĥ�Web�ڡ���������CGI�Ǥ���
1031 Web��ư���Ǽ��ĤȤ���äȻ��Ƥ��ޤ�����
1032 Web�Ǽ��Ĥ�ñ�˥�å��������ɲä�������ʤΤ��Ф��ơ�
1033 YukiWiki�ϡ�Web�ڡ������Τ�ͳ���ѹ����뤳�Ȥ��Ǥ��ޤ���
1034
1035 YukiWiki�ϡ�Cunningham & Cunningham��WikiWikiWeb��
1036 ���ͤ򻲹ͤˤ����ȼ��˺���ޤ�����
1037
1038 YukiWiki��Perl�ǽ񤫤줿CGI������ץȤȤ��Ƽ¸�����Ƥ��ޤ��Τǡ�
1039 Perl��ư���Web�����Фʤ�����Ū�ưפ����֤Ǥ��ޤ���
1040
1041 ���Ȥ�dbmopen���Ȥ���Ķ��ʤ�����֤Ǥ��ޤ�(Version 1.5.0�ʹߤʤ�dbmopen���Ȥ��ʤ��Ƥ����֤Ǥ��ޤ�)��
1042
1043
1044 YukiWiki�ϥե꡼���եȤǤ���
1045 ����ͳ�ˤ��Ȥ�����������
1046
1047 =head1 ������ˡ
1048
1049 =head2 ����
1050
1051 YukiWiki�κǿ��Ǥϡ�
1052 http://www.hyuki.com/yukiwiki/
1053 ��������Ǥ��ޤ���
1054
1055 =head2 �ե��������
1056
1057 readme.txt �ɥ������
1058 yukiwiki.cgi YukiWiki����
1059 yukiwiki.gif �����ʥ��顼�ǡ�
1060 yukimono.gif �����ʥ�Υ����ǡ�
1061 jcode.pl ���������ɥ饤�֥��
1062
1063 =head2 ���󥹥ȡ���
1064
1065 =over 4
1066
1067 =item 1.
1068
1069 ���������֤�򤯡�
1070
1071 =item 2.
1072
1073 yukiwiki.cgi�ΤϤ�������ˤ���������ǧ���ޤ���
1074 �̾�ϲ��⤷�ʤ��Ƥ褤����
1075 �Ϥ����$touchfile��''�ˤ��������褤�Ǥ��礦��
1076
1077 =item 3.
1078
1079 yukiwiki.cgi��jcode.pl��Ʊ���Ȥ��������֤��ޤ���
1080
1081 =item 4.
1082
1083 ������0��yukiwiki.db�Ȥ����ե���������֤��ޤ���
1084 ��Perl�����ƥ�ˤ�äƤ�yukiwiki.pag, yukiwiki.dir��
1085
1086 =item 5.
1087
1088 yukiwiki.cgi�˥֥饦�����饢���������ޤ���
1089
1090 =back
1091
1092 =head2 �ѡ��ߥå����
1093
1094 �ե����� �ѡ��ߥå���� ž���⡼��
1095 yukiwiki.cgi 755 ASCII
1096 yukiwiki.gif 644 BINARY
1097 yukimono.gif 644 BINARY
1098 jcode.pl 644 ASCII
1099
1100 $dbmopen = 1; �ˤ������:
1101 yukiwiki.db 666 BINARY
1102 (yukiwiki.pag, yukiwiki.dir�ξ��⤢���
1103
1104 $dbmopen = 0; �ˤ������: (�����ȥǥ��쥯�ȥ��777�ˤ��Ƥ���)
1105 . 777 (ž�����ʤ�)
1106
1107 =head1 �ǡ����ΥХå����å���ˡ
1108
1109 $dbmopen = 1;�ξ��ϡ�
1110 �ǡ����Ϥ��٤�yukiwiki.db(.dir, .pag)�����롣
1111 �����Хå����åפ���Ф褤��
1112
1113 $dbmopen = 0;�ξ��ϡ�
1114 yukiwiki�Ȥ����ǥ��쥯�ȥ꤬�Ǥ���Τǡ�
1115 ����ʲ���Хå����åפ���Ф褤��
1116
1117 =head1 �������ڡ����κ����
1118
1119 =over 4
1120
1121 =item 1.
1122
1123 �ޤ���Ŭ���ʥڡ������㤨��FrontPage�ˤ����ӡ�
1124 �ڡ����β��ˤ�����Խ��ץ�󥯤򤿤ɤ�ޤ���
1125
1126 =item 2.
1127
1128 ����ȥƥ��������Ϥ��Ǥ�����֤ˤʤ�Τǡ�
1129 ������NewPage�Τ褦��ñ��
1130 ����ʸ����ʸ�����ߤ��Ƥ����ʸ�����
1131 ��񤤤ơ���¸�פ��ޤ���
1132
1133 =item 3.
1134
1135 ��¸����ȡ�FrontPage�Υڡ������񤭴���ꡢ
1136 ���ʤ����񤤤�NewPage�Ȥ���ʸ����θ���� ? �Ȥ�����󥯤�ɽ������ޤ���
1137 ���� ? �Ϥ��Υڡ������ޤ�¸�ߤ��ʤ����Ȥ򼨤����Ǥ���
1138
1139 =item 4.
1140
1141 ���� ? �򥯥�å�����ȿ������ڡ���NewPage���Ǥ��ޤ��Τǡ�
1142 ���ʤ��ι�����ʸ�Ϥ򤽤ο������ڡ����˽񤤤���¸���ޤ���
1143
1144 =item 5.
1145
1146 NewPage�ڡ������Ǥ����FrontPage�� ? �Ͼä��ơ���󥯤Ȥʤ�ޤ���
1147
1148 =back
1149
1150 =head1 �ƥ����������Υ롼��
1151
1152 =over 4
1153
1154 =item *
1155
1156 Ϣ³����ʣ���Ԥϥե��뤵���ɽ������ޤ���
1157
1158 =item *
1159
1160 ���Ԥ�����C<< <p> >>�ζ��ڤ�Ȥʤ�ޤ���
1161
1162 =item *
1163
1164 HTML�Υ����Ͻ񤱤ޤ���
1165
1166 =item *
1167
1168 B<''�ܡ����''>�Τ褦�˥��󥰥륯��������ĤǤϤ���ȡ�
1169 �ܡ����C<< <b> >>�ˤʤ�ޤ���
1170
1171 =item *
1172
1173 B<'''������å�'''>�Τ褦�˥��󥰥륯�����Ȼ��ĤǤϤ���ȡ�
1174 ������å�C<< <i> >>�ˤʤ�ޤ���
1175
1176 =item *
1177
1178 B<---->�Τ褦�˥ޥ��ʥ�4�Ĥ�����ȡ�
1179 ��ʿ��C<< <hr> >>�ˤʤ�ޤ���
1180
1181 =item *
1182
1183 �Ԥ�B<*>�ǤϤ����ȡ�
1184 �縫�Ф�C<< <h2> >>�ˤʤ�ޤ���
1185
1186 =item *
1187
1188 �Ԥ�B<**>�ǤϤ����ȡ�
1189 �����Ф�C<< <h3> >>�ˤʤ�ޤ���
1190
1191 =item *
1192
1193 �Ԥ�ޥ��ʥ�-�ǤϤ����ȡ�
1194 �վ��C<< <ul> >>�ˤʤ�ޤ���
1195 �ޥ��ʥ��ο���������ȥ�٥뤬������ޤ���3��٥�ޤǡ�
1196
1197 -����1
1198 --����1-1
1199 --����1-2
1200 -����2
1201 -����3
1202 --����3-1
1203 ---����3-1-1
1204 ---����3-1-2
1205 --����3-2
1206
1207 =item *
1208
1209 �������Ȥ��ȡ�
1210 �Ѹ�Ȳ���ʸ�Υꥹ��C<< <dl> >>���񤱤ޤ���
1211
1212 :�Ѹ�1:���������񤤤�����ʸ1
1213 :�Ѹ�2:���������񤤤�����ʸ2
1214 :�Ѹ�3:���������񤤤�����ʸ3
1215
1216 =item *
1217
1218 ���
1219
1220 =over 4
1221
1222 =item *
1223
1224 LinkToSomePage��FrontPage�Τ褦�ˡ�
1225 ��ñ��κǽ�ΰ�ʸ������ʸ���ˤ�����Τ�
1226 ��İʾ�Ϣ³������Τ�YukiWiki�Υڡ���̾�Ȥʤꡢ
1227 ���줬ʸ����˴ޤޤ��ȥ�󥯤ˤʤ�ޤ���
1228
1229 =item *
1230
1231 http://www.hyuki.com/ �Τ褦��URL�ϼ�ưŪ�˥�󥯤ˤʤ�ޤ���
1232
1233 =item *
1234
1235 ��Ť��礫�ä�[[ ]]�Ǥ����ä�ʸ����⡢
1236 YukiWiki�Υڡ���̾�ˤʤ�ޤ���
1237 �礫�ä�����ˤϥ��ڡ�����ޤ�ƤϤ����ޤ���
1238 ���ܸ��Ȥ��ޤ���
1239
1240 =back
1241
1242 =item *
1243
1244 ��Ƭ�����ڡ����䥿�֤ǻϤޤäƤ���ȡ�
1245 ����������Ѥߤ�����C<< <pre> >>�Ȥ��ư����ޤ���
1246 �ץ�������ɽ���ʤɤ˻Ȥ��������Ǥ���
1247
1248
1249 =item *
1250
1251 �Ԥ� > �ǤϤ����ȡ�
1252 ����ʸC<< <blockquote> >>���񤱤ޤ���
1253 >�ο���¿���ȥ���ǥ�Ȥ������ʤ�ޤ���3��٥�ޤǡˡ�
1254
1255 >ʸ��
1256 >ʸ��
1257 >>����ʤ����
1258 >ʸ��
1259
1260 =back
1261
1262 =head1 ��������
1263
1264 =over 4
1265
1266 =item *
1267
1268 2001ǯ10��20����Version 1.6.6��
1269
1270 �����ξ����к���
1271 ���ڡ����δ�ñ�ʥ����å�������äƤ�����
1272 �������˥����å��������Ӥ��롣
1273 �����Ľ��digest�Ȥ���ʸ����򸡺������ʬ���롣
1274 �����MD5�ʤɤǤ����Ȥ�ä����������Τ�����ɡ�
1275
1276 ���ͻ���ɽ��������å������ʤɤϡֶ˰��פ���Υڡ����򻲹ͤˤ�����
1277
1278 =item *
1279
1280 2001ǯ10��17����Version 1.6.5��
1281
1282 �ץ�ӥ塼���̤ǡ������ܥ���򲡤����Ȥ������������
1283 ��å����������Ƥ�input���Ǥ�type="hidden"��Ȥä�������Τ���롣
1284 ����ˡ�textarea���Ǥ�Ȥ���
1285 �ƥץ�ӥ塼�Ѥ�myspecial_��Ƴ�����Ǥ⤭�줤���к��ǤϤʤ���
1286
1287 =item *
1288
1289 2001ǯ8��30����Version 1.6.4��
1290
1291 URL�ǥ����쥯�Ȥ˥ڡ���̾����ꤷ�Ƥ⡢
1292 $WikiName��$BracketName�ʳ��Υڡ�������ʤ��褦�ˤ�����
1293 (is_valid_name��is_editable����)��
1294
1295 =item *
1296
1297 2001ǯ8��30����Version 1.6.3��
1298
1299 RecentChanges���Խ������Խ��ԲĤȤ�����
1300 �Խ��Բĥڡ�����@uneditable�˥ڡ���̾������롣
1301
1302 =item *
1303
1304 2001ǯ2��25����Version 1.6.1, 1.6.2��
1305
1306 ��ʬ��ǽ�ΥХ�������
1307 do_preview��'>'�������ʤ��Х�����
1308 �ʥ桼������λ�Ŧ�ˡ�
1309
1310 =item *
1311
1312 2001ǯ2��22����Version 1.6.0��
1313 ��ʬ��ǽ�����������
1314
1315 =item *
1316
1317 2001ǯ2��19����Version 1.5.4��
1318 �����ե�����ؤΥ�󥯤ϲ����ˤ��Ƥߤ���
1319
1320 =item *
1321
1322 2001ǯ2��19����Version 1.5.3��
1323 RecentChanges����˺�������ڡ���������Τ��᤿��
1324 use strict;�ǰ��ä�������ʬ�򾯤�����(�����ǤϤʤ�)��
1325
1326 =item *
1327
1328 2001ǯ2��16����Version 1.5.2��
1329 textarea��ɽ������ӥץ�ӥ塼�������� < �� > �� &lt; �� &gt; ���Ѵ�����
1330 (do_preview, editpage, print_preview_buttons)��
1331
1332 =item *
1333
1334 2000ǯ12��27����Version 1.5.1��
1335 �ץ�ӥ塼���̤�����������
1336
1337 =item *
1338
1339 2000ǯ12��22����Version 1.5.0��
1340 ����Ū�ˤ����֤��ľ������
1341 ���������Ӻ�������褦�ˤ���(do_list)��
1342 �񤭹������˳�ǧ���̤�Ф��褦�ˤ���(do_preview)��
1343 �ƥ����Ȥν������Խ����̤����줿(do_edit, do_reedit)��
1344 WhatsNew��RecentChanges��TopPage��FrontPage���ѹ�������
1345
1346 =item *
1347
1348 2000ǯ12��20����Version 1.1.0��
1349 tie�����Ѥ��ơ�dbmopen���Ȥ��ʤ����Ǥ�ư���褦�˽�����
1350 ���ѼԤ�1�ͤǤ���ֶ˰��פ��󤫤�
1351 ���äƤ��������������ɤ򸵤ˤ��Ƥ��ޤ���
1352
1353 =item *
1354
1355 2000ǯ9��5����Version 1.0.2��
1356 <body color=...> �� <body bgcolor=...>
1357 ���ѼԤ���λ�Ŧ�ˤ�롣���ա�
1358
1359 =item *
1360
1361 2000ǯ8��6����Version 1.0.1�������
1362 C MAGAZINE�ʥ��եȥХ󥯥ѥ֥�å��󥰡�
1363 2000ǯ10���Ϣ�ܵ������������ǡ�
1364 [[ ]] �κǸ夬��˾�פΤ褦�˥��ե�JIS��
1365 0x5D�ˤʤ���β����Ԥʤä���
1366
1367 =item *
1368
1369 2000ǯ8��5����Version 1.0.0�������
1370
1371 =item *
1372
1373 2000ǯ7��23����Version 0.82�������
1374 �Խ����Υ�󥯥ߥ���
1375 <textarea>��°���ѹ���
1376
1377 =item *
1378
1379 2000ǯ7��22����Version 0.81�������
1380 �������Ȥ߹��ࡣ
1381
1382 =item *
1383
1384 2000ǯ7��21����Version 0.80�������
1385 POD��CGI��˽񤭹��ࡣ
1386
1387 =item *
1388
1389 2000ǯ7��19����Version 0.70�������
1390 '''������å�'''�䡢--��---��>>��>>>�ʤɤ������
1391
1392 =item *
1393
1394 2000ǯ7��18����Version 0.60�������
1395 *����*��''����''���ѹ�
1396
1397 =item *
1398
1399 2000ǯ7��17����Version 0.50�������
1400
1401 =item *
1402
1403 2000ǯ7��17��������ˤ��������ɲä��롣
1404
1405 =item *
1406
1407 2000ǯ7��16�������������ɲá�
1408
1409 =item *
1410
1411 2000ǯ7��15����������
1412
1413 =back
1414
1415 =head1 TODO
1416
1417 - �ƥ�����ɽ���⡼��
1418 - Charset��������
1419 - textarea����Ĥ������б�
1420 - ��˥塼�αѸ�ɽ���յ�
1421 - �ץ�ӥ塼�Υܥ���ǡ�mymsg��input��value������Ƥ��뤬�����Ԥ򤽤Τޤ�value�ˤ���ƤϤ����ʤ��ΤǤϤʤ�����
1422 - �ֺ��Խ��פε�ǽ�ϥ֥饦���� back �ǽ�ʬ�ǤϤʤ������ץ�ӥ塼�Ϥ�äȥ���ץ�ˡ�
1423 - �ڡ��������ȥ��Wikiname�ˤ������ˤ�����褦�ˤ��롣
1424 - InterWiki���ε�ǽ��URL�򱣤��Ĥġ���󥯤�ĥ���
1425
1426 =head1 ���
1427
1428 Copyright (C) 2000 by Hiroshi Yuki.
1429 ���� <hyuki@hyuki.com>
1430 http://www.hyuki.com/
1431 http://www.hyuki.com/yukiwiki/
1432
1433 ���䡢�ո����Х����� hyuki@hyuki.com �˥᡼�뤷�Ƥ���������
1434
1435 =head1 ���۾��
1436
1437 YukiWiki�ϡ�
1438 GNU General Public License�ˤƸ������ޤ���
1439
1440 YukiWiki�ϥե꡼���եȤǤ���
1441 ����ͳ�ˤ��Ȥ�����������
1442 ��ʬ���ߤ�YukiWiki������褦�˥���ץ�ˤ��Ƥ���ޤ���
1443
1444 =head1 �ռ�
1445
1446 �ܲȤ�WikiWiki���ä�Cunningham & Cunningham, Inc.��
1447 ���դ��ޤ���
1448
1449 YukiWiki��ڤ���ǻȤäƤ�������
1450 �ͥåȾ�������˴��դ��ޤ���
1451
1452 YukiWiki�Υ�����ǥ����󤷤Ƥ������ä��������व��
1453 http://city.hokkai.or.jp/~reina/
1454 �˴��դ��ޤ���
1455
1456 tie��Ȥä��Ǥθ��ˤʤ륳���ɤ����äƤ������ä�
1457 �ֶ˰��פ���˴��դ��ޤ���
1458
1459 =head1 ���ȥ��
1460
1461 =over 4
1462
1463 =item *
1464
1465 YukiWiki�ۡ���ڡ���
1466 http://www.hyuki.com/yukiwiki/
1467
1468 =item *
1469
1470 �ܲȤ�WikiWiki
1471 http://c2.com/cgi/wiki?WikiWikiWeb
1472
1473 =item *
1474
1475 �ܲȤ�WikiWiki�κ��(Cunningham & Cunningham, Inc.)
1476 http://c2.com/
1477
1478 =item *
1479
1480 YukiWiki�Υ����ǥ�����򤷤Ƥ������ä��������व��Υڡ���
1481 http://city.hokkai.or.jp/~reina/
1482
1483 =back
1484
1485 =cut

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24  
Google Analytics is used in this page; Cookies are used. 忍者AdMax is used in this page; Cookies are used. Privacy policy.