#!/usr/local/bin/perl
# BraBBS Ver 1.01
#
# 17.May.98 -Mototaka Kakihara-
#
# CODE henkan script wo soubi!(w
#
require './jcode.pl';
#
# BODY TAG INIT.
#
$tmp = "\n";
#
# Number file
#
$nofile = "num.dat";
#
# COOKIE
#
sub getCookie { if ($ENV{'HTTP_COOKIE'} ne "") {
for $yy (split(/; */, $ENV{'HTTP_COOKIE'})) {
($info, $value) = split(/=/, $yy);
$value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
$COOKIE{$info} = $value;
}
$ENV{'HTTP_COOKIE'} = "";
}
return($COOKIE{$_[0]});
}
#
# index file
#
$idxfile = "index.dat";
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
&Parse_form_rtn; # 引数取得処理
if ($F{'KBN'} eq 'INPUT') {
&Display_form_rtn; # 入力フォーム表示処理
exit;
}
elsif ($F{'KBN'} eq 'WRITE') {
&Check_input_rtn; # 入力項目チェック処理
&Get_no_rtn; # 記事Ｎｏ取得処理
&Add_index_rtn; # 索引情報追加処理
&Create_detail_rtn; # 明細ファイル作成処理
}
}
#
# LOG wo Hyouji.
#
&Print_LOG;
sub Parse_form_rtn {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\t//g;
&jcode'convert(*value,'sjis');
$F{$name} = $value;
}
$resnum = $F{'RES'};
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon++;
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
if ($mon < 10) { $mon = "0$mon"; }
if ($mday < 10) { $mday = "0$mday"; }
$today = "$year/$mon/$mday $hour:$min:$sec";
}
sub Display_form_rtn {
$info = &getCookie("InfoBraBBS");
@namemail = split(/,/, $info);
print "Content-type: text/html\n\n";
print "\n";
print "$tmp\n";
print "\n";
print "\n";
}
sub Check_input_rtn {
if ($F{'TITLE'}) { $title = $F{'TITLE'}; }
else { &Error_rtn(ERR001); }
if ($F{'NAME'}) { $name = $F{'NAME'}; }
else { &Error_rtn(ERR002); }
if ($F{'MAIL'}) { $mail = $F{'MAIL'}; }
else { &Error_rtn(ERR003); }
if ($F{'DETAIL'}) { $detail = $F{'DETAIL'}; }
else { &Error_rtn(ERR004); }
#
# COOKIE no SET.
#
if (($COOKIE{'InfoBraBBS'} eq "") || ($COOKIE{'InfoBraBBS'} ne $name)) {
print "Set-Cookie: ";
print "InfoBraBBS=$name,$mail;";
print "expires=Thu, 1-Jan-2030 00:00:00 GMT; ";
print "\n";
}
}
sub Error_rtn {
local($errcd) = $_[0];
print "Content-type: text/html\n\n";
print "\n";
print "$tmp\n";
print "エラー
\n";
print "以下の項目は省略できません！\n";
if ($errcd eq 'ERR001') { print "タイトル
\n"; }
elsif ($errcd eq 'ERR002') { print "氏名
\n"; }
elsif ($errcd eq 'ERR003') { print "E-mail
\n"; }
elsif ($errcd eq 'ERR004') { print "内容
\n"; }
print "[戻る]で戻って内容を確かめて下さい。\n";
print "
\n";
print "