#!/usr/bin/perl
require '../lib/cgi-lib.pl';
&ReadParse(*in);
$maxmessage = 50;
if (&MethPost()) {
foreach $x (%in) {
$value = $in{$x};
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s//>/g;
$in{$x} = $value;
}
}
$name = $in{'name'};
$mail = $in{'mail'};
$message = $in{'message'};
$color = $in{'color'};
$message =~ s/\n/
/g;
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
@dayname = ('日', '月', '火', '水', '木', '金', '土');
$month = $mon+1;
if ($name ne "" && $message ne "") {
$date = "$month月$mday日 (@dayname[$wday]) ";
$time = sprintf("%02d:%02d:%02d", $hour, $min, $sec);
$tmp = "$name,$mail, $date$time, $message\n";
open(FILE, "bbs2_2.dat");
@allbody = ;
close(FILE);
$num = unshift (@allbody, $tmp);
if($num > $maxmessage){
pop @allbody;
}
open(FILE, ">bbs2_2.dat");
print FILE @allbody;
close(FILE);
}
print "Content-type: text/html\n\n";
print "Thirab_ONE掲示板\n";
print "\n";
print "Thirab_ONE掲示板
\n
\n";
print "\n";
print "
";
open(FILE, "bbs2_2.dat");
@allbody = ;
foreach $line (@allbody){
($name, $mail, $date, $message)=split(/\,/,$line);
print "投稿者：";
if($mail ne ""){
print"$name \n";
} else {
print "$name \n";
}
print "$date\n";
print "$message
\n
\n";
}
close(FILE);
print "\n";
print "\n";
exit;