#!/usr/bin/perl
#
# minichat.txt は minichat.cgi に名前変更してください。
$max = '30';
$method = 'POST';
$body = 'Bgcolor=#E0D090 text=#000000 onLoad="document.MainForm.chat.focus();"';
$chat_file = './chat.dat';
$chat_file2 = './log.dat';
require './jcode.pl';
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$date_now = sprintf("%02d日%02d時%02d分",$mday,$hour,$min);
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis');
$value =~ s/$chat ($date)\n";
}
print "
\n";
print "[戻る]\n";
# このスクリプトの著作権表示（かならず表示してください）
print "
\n";
print "