#!/usr/bin/perl
$boardfile = "board";
print "Content-type: text/html\n\n";
# POSTが実行(Submit)された場合にメッセージをファイルに書き込みます。
# CGIスクリプトが呼び出されただけの場合は、電子掲示板を表示するだけ
# です。
if ($ENV{'REQUEST_METHOD'} eq "POST") {
%form = &read_input;
$your_name = $form{'from'};
$your_message = $form{'message'};
open(BD, ">>$boardfile") || die "not board file";
print(BD "
\n");
print(BD "$your_name
\n");
print(BD "$your_message\n");
print(BD "\n");
close(BD);
&create_page;
}
else {
&create_page;
}
# ページ作成のサブルーチン
sub create_page
{
print "\n";
print "Electoric Board for WWW\n";
print "\n";
print "\n";
print "Electoric Board for WWW
\n";
print "\n";
print "
\n";
print "\n";
print "\n";
print "\n";
print "\n";
# メッセージファイルの読み込みと表示を行います。
open(BOARD, "$boardfile") || die "not board file";
while() {
print ;
}
close(BOARD);
print "\n";
print "\n";
}
sub read_input
{
local ($buffer, @pairs, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else
{
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
%FORM;
}