;
close(IN);
@DATA = reverse(@DATA);
foreach $data (@DATA) {
if ($data =~ /(.*)\,(.*)\,(.*)\,(.*)\,(.*)/) { $date = $1; $name = $2; $chat = $3; $email = $4; $host = $5; }
else { next; }
chop($email) if $email =~ /\n$/;
$chat =~ s/\0/\,/g;
if ($email =~ /(.*)\@(.*)\.(.*)/) { print "$name > $chat ($date $host)
\n"; }
else { print "$name > $chat ($date $host)
\n"; }
}
print "[$modoru_name]\n";
# このスクリプトの著作権表示（かならず表示してください）
print "
\n";
print "\n";
exit;
sub write {
if (!open(DB,"$chat_file")) { &error('システムエラー','チャットファイルが開けません.'); }
@lines = ;
close(DB);
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; }
$axs = @lines;
if ($axs >= $max) { shift(@lines); }
push(@lines,"$date_now\,$FORM{'name'}\,$FORM{'chat'}\,$FORM{'email'}\,$host\n");
if (!open(DB,">$chat_file")) { &error('システムエラー','チャットファイルへ記録できません.'); }
print DB @lines;
close(DB);
}
sub error {
print "$title\n";
print "$body\n";
print "$_[0]
\n";
print "$_[1]
\n";
print "ブラウザの[戻る]ボタンを押して前の画面に移動してください.\n";
print "\n";
exit;
}