非公開：小物

a_bbs

　シンプルさに重点を置いた掲示板。（その実、ちゃんとしたスクリプトを書くのがメンド臭くなった勢いでやっつけで書いたスクリプト）

ソース

・a.cgi

#!/usr/local/bin/perl
(undef,$a)=split(/=/,$ENV{"QUERY_STRING"});if((defined $a)&&($a ne"")){$a=~tr/+/ /;$a=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;$a=~s/\n//g;open A,"+<a.log";flock(A,2);@a=<A>;pop @a;if((length $a<128)&&("$a\n"ne$a[0])){truncate(A,0);seek(A,0,0);print A "$a\n";foreach(@a){print A}close A}}
$a="";open A,"a.log";while(<A>){$a.=$_}close A;$a=~s/&/&amp;/g;$a=~s/</&lt;/g;$a=~s/>/&gt;/g;$a=~s/\n/<hr>/g;open A,"+>a.htm";print A"<p>$a</p>";close A;print"Location:a.htm\n\n";

・index.htm（CGI呼び出しHTML）

<form method=GET action=a.cgi><input type=text name=a><input type=submit value=write></form><a href=a.htm>read</a>

ファイル配置

※カッコ内はパーミッション。（iswebの場合。サーバーによっては要変更）
※”a.log”はログ保存件数分の空行のテキストファイル。

a.cgi	(755)
a.log	(644)
index.htm	(644)

初出2006.02.16

△ページの先頭へ