#!/usr/bin/perl
$_=(split'=',$ENV{QUERY_STRING})[1];tr/+/ /;s/%([\da-f]{2})/pack'H2',$1/ieg;
s/\0//g;s/&/&/g;s/</</g;s/>/>/g;s/"/"/g;s/'/'/g;$l='bbs';
open F,'+'.((-e$l)?'<':'>').$l;flock F,2;@d=<F>;if($_){$_.='/'.localtime."\n";
unshift@d,$_;seek F,0,0;print F join'',@d[0..19];truncate F,tell F;}close F;
print"Content-Type:text/html;charset=euc-jp\n\n<html><body><form><input type=".
"text name=n><input type=submit></form>".join('<hr>',@d)."</body></html>";
拡張子をcgiにして実行権限をつければ一応動きます。
2009年7月29日水曜日
[Perl] 480bytes BBS
昔作ったBBSのコード
登録:
コメントの投稿 (Atom)
0 件のコメント:
コメントを投稿