;
close(IN);
($no,$tim,$hos) = split(/<>/, $num);
$no++;
# 重複投稿チェック
$time = time;
# 同一ホスト連続投稿チェック
if ($host eq $hos && $wait > $time - $tim) {
&error("連続投稿はもうしばらく時間をおいて下さい");
}
# 削除キー暗号化
if ($in{'pwd'} ne "") { $pwd = &encrypt($in{'pwd'}); }
# 日時取得
$date = &get_time($time, 'p');
# 絵文字処理
$in{'sub'} = &emoji($in{'sub'});
$in{'name'} = &emoji($in{'name'});
$in{'comment'} = &emoji($in{'comment'});
# &#xxxxx; を復元
$in{'sub'} =~ s/\&(#\d{5};)/\&$1/ig;
$in{'name'} =~ s/\&(#\d{5};)/\&$1/ig;
$in{'comment'} =~ s/\&(#\d{5};)/\&$1/ig;
# 独自形式を復元
$in{'sub'} =~ s/<(if[0-9a-f][0-9a-f][0-9a-f])>/<$1>/ig;
$in{'name'} =~ s/<(if[0-9a-f][0-9a-f][0-9a-f])>/<$1>/ig;
$in{'comment'} =~ s/<(if[0-9a-f][0-9a-f][0-9a-f])>/<$1>/ig;
# 親記事の場合
if ($in{'res'} eq "") {
$i = 0;
$stop = 0;
foreach (@file) {
($no2,$reno2) = split(/<>/);
$i++;
if ($i > $max-1 && $reno2 eq "") { $stop=1; }
if (!$stop) { push(@data,$_); }
}
unshift(@data,"$no<><>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pwd<>$time<>$type<>0<>\n");
# レス記事の場合：トップソートあり
} elsif ($in{'res'} && $topsort) {
$f = 0;
$oyaChk = 0;
$match = 0;
@data = ();
@tmp = ();
foreach (@file) {
($no2,$reno2,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$tim,$typ,$res) = split(/<>/);
if ($in{'res'} == $no2) {
if ($reno2) { $f++; last; }
$res++;
$oyaChk++;
$match=1;
push(@data,"$no2<>$reno2<>$dat<>$nam<>$eml<>$sub<>$com<>$url<>$hos<>$pw<>$tim<>$typ<>$res<>\n");
} elsif ($in{'res'} == $reno2) {
push(@data,$_);
} elsif ($match == 1 && $in{'res'} != $reno2) {
$match=2;
push(@data,"$no<>$in{'res'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pwd<>$time<>$type<><>\n");
push(@tmp,$_);
} else { push(@tmp,$_); }
}
if ($f) { &error("不正な返信要求です"); }
if (!$oyaChk) { &error("親記事が存在しません"); }
if ($match == 1) {
push(@data,"$no<>$in{'res'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pwd<>$time<>$type<><>\n");
}
push(@data,@tmp);
# レス記事の場合：トップソートなし
} else {
$f = 0;
$oyaChk = 0;
$match = 0;
@data = ();
foreach (@file) {
($no2,$reno2,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$tim,$typ,$res) = split(/<>/);
if ($in{'res'} == $no2) {
$oyaChk++;
$res++;
$_ = "$no2<>$reno2<>$dat<>$nam<>$eml<>$sub<>$com<>$url<>$hos<>$pw<>$tim<>$typ<>$res<>\n";
}
if ($match == 0 && $in{'res'} == $no2) {
if ($reno2) { $f++; last; }
$match=1;
} elsif ($match == 1 && $in{'res'} != $reno2) {
$match=2;
push(@data,"$no<>$in{'res'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pwd<>$time<>$type<><>\n");
}
push(@data,$_);
}
if ($f) { &error("不正な返信要求です"); }
if (!$oyaChk) { &error("親記事が存在しません"); }
if ($match == 1) {
push(@data,"$no<>$in{'res'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pwd<>$time<>$type<><>\n");
}
}
# 更新
open(OUT,">$logfile") || &error("Write Error: $logfile");
print OUT @data;
close(OUT);
open(OUT,">$numfile") || &error("Write Error: $numfile");
print OUT "$no<>$time<>$host";
close(OUT);
# ロック解除
&unlock if ($lockkey);
# メール通知
if ($mailing == 1 || ($mailing == 2 && $in{'email'} ne $mailto)) { &mail_to; }
# 投稿後メッセージ
if ($type eq 'p') {
# クッキー記憶
&set_cookie($in{'cook'},$in{'name'},$in{'email'},$in{'url'},$in{'pwd'});
&header;
print "
\n";
print "投稿は正常に処理されました
\n";
print "\n";
print "
\n";
} else {
&header;
print "投稿完了
戻る\n";
}
print "