<% cgiPage -%>BBS about hake<%--%>
<%% import EhsTools %%>
<%% import System.Time(getClockTime) %%>
modified at <%==$ getClockTime %>
<%--%>
$ENV{REQUEST_URI} =~ /\/([^\/\.]+)[^\/]*$/;
$filename = $1 . ".txt";
sub input2str {
$str = $_[0];
$str =~ s/.+?=//;
$str =~ s/%(..)/chr hex $1/ge;
$str =~ s/\+/ /g;
$str =~ s/\r\n//g;
return $str;
}
if ($ENV{CONTENT_LENGTH} != 0) {
<> =~ /(.+)&(.+)/;
$date = `LANG=C date`;
$name = input2str($1);
$cont = $2;
open CONT, ">>" . $filename;
flock CONT, 2;
if ($cont =~ /%3C/) {
print CONT "", $date, $name, "
You should use <.
";
} elsif ($cont =~ /http/) {
print CONT "", $date, $name, "
You can't write 'http'.
";
} else {
print CONT "", $date, $name, "
\n", input2str($cont), "
\n";
}
close CONT;
}
open CONT, $filename;
flock CONT, 1;
print ;
close CONT;
<%-%>