#!/usr/local/bin/perl
# 自分自身のファイル名を取得
$script_name = $ENV{SCRIPT_NAME};
$script_name =~ s|.*/([^/]+)$|$1|;
# jcode.pl をロード
require 'jcode.pl';
# 引数解析
foreach ( split('&',$ENV{QUERY_STRING}) ){
($key,$value) = split('=',$_);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
&jcode::convert(\$value,'euc');
$value =~ s/&/&/g;
$value =~ s//>/g;
$value =~ s/\r\n|\r|\n/
/g;
if ( $key eq 'FROM' ){
$from = $value;
} elsif ( $key eq 'MESSAGE' ){
$message = $value;
}
}
print "Content-type: text/html\n\n";
print <
掲示板
掲示板
END
# 引数が設定されていたら、それを表示
if ( $from ne '' ){ print "発言者: $from\n" }
if ( $message ne '' ){ print "$message
\n" }
print <