;
close (MPASS);
($THREAD{'subject'},$THREAD{'FLAG'},$THREAD{'BBS'},$THREAD{'COUNT'}) = split(/\t/,$m_key);
}else{disperror("スレッド情報が見つかりません。");}
if ($THREAD{'FLAG'} =~ /stop/){disperror("指定されたスレッドには、書き込むことが出来ません。");}
}
#dat吐き出し
{
my $datafile = $SETTING{'DAT_DATA_PATH'} . "/" . $FORM{'key'} . ".dat";
open(OUT, ">> $datafile");
eval{flock(OUT,2);};
if ($THREAD{'S_FLAG'} ne "2"){
$THREAD{'COUNT'}++;
print OUT "$FORM{'FROM'}<>$FORM{'mail'}<>$DISP_DATE<> $FORM{'MESSAGE'} <>$FORM{'subject'}\n";}
if ($THREAD{'N_FLAG'} eq "1"){
$THREAD{'COUNT'}++;
print OUT "$THREAD{'N_FROM'}<>$THREAD{'N_MAIL'}<>$THREAD{'N_DATE'}<> $THREAD{'N_MSG'} <>\n";}
if ($THREAD{'S_FLAG'} eq "1"){
$THREAD{'COUNT'}++;
print OUT "$THREAD{'S_FROM'}<>$THREAD{'S_MAIL'}<>$THREAD{'S_DATE'}<> $THREAD{'S_MSG'} <>\n";}
if ($THREAD{'S_FLAG'} eq "2"){
$THREAD{'COUNT'}++;
print OUT "$THREAD{'S_FROM'}<>$THREAD{'S_MAIL'}<>$THREAD{'S_DATE'}<> $THREAD{'S_MSG'} <>\n";}
# Over 1000 Thread
if ($THREAD{'COUNT'} > 999) {
print OUT "LIMIT<><>LIMIT<> 1000突破！
続きは新しいスレッドで・・・。 <>\n";
$THREAD{'COUNT'}++;
$THREAD{'S_FLAG'} = "1";}
close(OUT);
}
#スレッドデータ書き出し
{
my ($m_pass,$m_key);
$m_pass = $SETTING{'DAT_SETTING_PATH'} . "/" . $FORM{'key'} . ".txt";
if ($THREAD{'S_FLAG'} eq "1"){$THREAD{'FLAG'}= $THREAD{'FLAG'} . " stop";}
open(MPASS,">$m_pass");
eval{flock(MPASS,2);};
print MPASS $THREAD{'subject'} . "\t" . $THREAD{'FLAG'} . "\t" . $THREAD{'BBS'} . "\t" . $THREAD{'COUNT'};
close (MPASS);
}
#サブジェクトとか作成
{
my $sub_flag = $SETTING{'ROOT_BBS'};
subject_output ("$current_bbs");
if ($sub_flag ne ""){
subject_output ("$sub_flag");
}
if ($disp_bbs ne $current_bbs){
subject_output ("$disp_bbs");
}
}
#統計データの書き込み
{
my $RES_LOG = $temp_path . "/resdata.dat";
open(RESLOG,">>$RES_LOG");
eval{flock(RESLOG,2);};
print RESLOG $NOWTIME . "\t" . $current_bbs . "\t" . $ID . "\n";
close(RESLOG);
}
#threaddata.datを使ってファイルアンロック
close(THLOG);
#インフォ表示
{
if ($ENV{'HTTP_USER_AGENT'} =~ /kage/){
print "Status: 302 Moved Temporarily\n";
print "Location: /$disp_bbs/index.html \n\n";}
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Katjusha/){
print "Status: 302 Moved Temporarily\n";
print "Location: /$disp_bbs/index.html \n\n";}
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Indy Lib/){
print "Content-Type: text/html;\n\n書きこみました。書きこみが終わりました。
画面を切り替えるまでしばらくお待ち下さい。
\n\n";exit;}
elsif ($ENV{'HTTP_USER_AGENT'} =~ /onazilla/){
print "Content-Type: text/html; charset=shift_jis\n\n書き込み終了 - $sc_name ■書き込みました。
Monazillaツールを検出しました。
書き込み確認：indexへ / 書き込んだスレッドへ。
[BBS.CGI] for $sc_name
Version : ".$version."
";exit;
}
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Hotzonu/){
print "Content-Type: text/html; charset=shift_jis\n\n書き込み終了 - $sc_name■書き込みました。
Hotzonuを検出しました。
書き込み確認：indexへ / 書き込んだスレッドへ。
";
if ($SETTING{'INDEX_AD_3'} ne ""){
open (IN,$SETTING{'INDEX_AD_3'});
while () { print; }
close (IN);}
print "
[BBS.CGI] for $sc_name
Version : ".$version."
";exit;
}
elsif ($imode_flag eq "1"){
print "Content-Type: text/html;\n\n書込終了■書込み終了
スレ一覧へ