/\n\n/g;
$headbuf = $head;
}
### スイッチ処理
# 削除キー入力欄
if($sw_ppr){
$pprcase = ($sw_ppr == 2) ? "（必須）" : "書かない場合発言の削除ができません";
$html_pphrase = "
削除キー：
※ 発言削除用のパスワード。$pprcase
";
}
# プレビューボタン
$html_submitlabel = "発言";
if($sw_preview == 1){
$html_preview = "";
}
# 常にプレビュー
elsif($sw_preview == 2){
$html_submitlabel = "プレビュー";
$html_prehidden = "\n";
}
# 発言タイトル入力欄
if($sw_head){
$html_head = "
";
$htmlbuf;
}
########## 管理フォーム
sub html_form_admin{
local($bgc, $fnc);
local($fm1, $fm0, $pv1, $pv0, $pp1, $pp0, $sc1, $sc0);
local($hd1, $hd0, $hs1, $hs0, $rp1, $rp0, $rp2, $sd1, $sd0);
$bgc = "#6666FF";
$fnc = "#FFFFFF";
### スイッチ処理
($sw_form) ? ($fm1 = "CHECKED") : ($fm0 = "CHECKED");
($sw_preview) ? ($pv1 = "CHECKED") : ($pv0 = "CHECKED");
($sw_ppr) ? ($pp1 = "CHECKED") : ($pp0 = "CHECKED");
($sw_search) ? ($sc1 = "CHECKED") : ($sc0 = "CHECKED");
($sw_head) ? ($hd1 = "CHECKED") : ($hd0 = "CHECKED");
($sw_host) ? ($hs1 = "CHECKED") : ($hs0 = "CHECKED");
($sw_reply) ? ($rp1 = "CHECKED") : ($rp0 = "CHECKED");
($sw_showdel) ? ($sd1 = "CHECKED") : ($sd0 = "CHECKED");
($sw_anobar) ? ($an1 = "CHECKED") : ($an0 = "CHECKED");
if($sw_reply == 2){
$rp1 = "";
$rp2 = "CHECKED";
}
if($sw_ppr == 2){
$pp1 = "";
$pp2 = "CHECKED";
}
if($sw_preview == 2){
$pv1 = "";
$pv2 = "CHECKED";
}
### タグ殺し
$ktitle = &killtag($title);
$kheadline = &killtag($headline);
$kcomment = &killtag($comment);
"
";
}
#################### クッキーの処理
########## メイン
sub deal_cookie{
# 名前が空欄ならクッキーの取得
($name) || &get_cookie;
# 発言の際指定されたらクッキーの保存
($cook && $name && $cont && !$F{'chk'}) && &set_cookie;
}
########## クッキーを取り出す
sub get_cookie{
local($cookbuf);
# 現在のBOOK向けクッキーがなければ終了
(($cookbuf) = $ENV{'HTTP_COOKIE'} =~ m|$book=([^;]+)|) || return;
$cookbuf =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
($name, $mail, $url, $ppr) = split("\t", $cookbuf);
$cook = 1;
}
########## クッキーの発行
sub set_cookie{
local($expires, $path, $value);
$expires = &get_time_GMT($^T + 60 * 60 * 24 * $cookie_lifetime);
if($enable_cookiepath){
($path) = $ENV{'SCRIPT_NAME'} =~ m|^(.+/)[^/]+$|;
$path = "path=" . $path;
}
$value = "$name\t$mail\t$url\t$ppr";
$value =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
$cookieline = "Set-Cookie: $book=$value; expires=$expires; $path\n";
}
########## 日本語のデコード
sub decode{
local($w, $frag) = @_;
$w =~ tr/+/ /;
$w =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
unless($frag){
$w =~ s//>/g;
$w =~ s/"/"/g;
$w =~ s/'/'/g;
}
$w =~ s/\t//g;
$w =~ s/\cM//g;
$w =~ s/\n{2,}//g;
$w =~ s/\n/
/g;
&jcode'convert(*w, $code);
$w;
}
##### タグを殺す
sub killtag{
local($w) = @_;
$w =~ s//>/g;
$w =~ s/"/"/g;
$w =~ s/'/'/g;
$w;
}
##### スパムキーワードをチェック
$spam_pattern = "";
sub check_spamword
{
(@spamwords) || return;
local($chkstr) = @_;
# キーワードの初期化処理
if(!$spam_pattern)
{
foreach(@spamwords)
{
s/(\W)/\\$1/g;
$spam_pattern .= $_ . "|";
}
chop($spam_pattern);
}
# スパムワードがあったら1を、なかったら0を返す
if($chkstr =~ /$spam_pattern/)
{
return 1;
}
return 0;
}
##### 現在の時刻を得る
sub get_time{
local($stime) = @_;
$stime += $time_fix * 60 * 60;
local($sec, $min, $hour, $mday, $mon, $year) = localtime($stime);
$mon++;
$year += 1900;
return sprintf("%04d/%02d/%02d %02d:%02d", $year, $mon, $mday, $hour, $min);
}
###### ファイルを開いて、中身を配列に代入する
sub openfile{
local ($filename, *buf) = @_;
open(FILE, "$filename") || &error(1, $filename);
@buf = ;
close(FILE);
}
###### ファイルを更新する
sub updatefile{
local ($filename, *buf, $frag) = @_;
# フラグあり→追加、なし→更新
if($frag){
open(FILE, ">>$filename") || &error(1, $filename);
}
else{
open(FILE, ">$filename") || &error(1, $filename);
}
print FILE @buf;
close(FILE);
}
##### ＧＭＴを得る（クッキー用）
sub get_time_GMT{
local($tsec) = @_;
local($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime($tsec);
$wday = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat')[$wday];
$mon = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')[$mon];
$year += 1900;
return sprintf("$wday, %02d-$mon-$year %02d:%02d:%02d GMT", $mday, $hour, $min, $sec);
}
##### ロック
sub lock{
$try = 0;
while(!mkdir($lockfile, 0700))
{
(++$try > 3) && &error(0);
sleep(1);
}
}
##### ロック解除
sub unlock{
rmdir($lockfile);
}
##### エラーメッセージ
sub error{
local ($id, $msg) = @_;
local (@sts) = lstat($lockfile);
local ($tn) = time();
$fmid[0] = 0; $msg[0] = 'ロック中です';
$fmid[1] = 1; $msg[1] = 'ファイルが開けません';
$fmid[2] = 1; $msg[2] = 'ファイルに書き込めません';
$fmid[3] = 0; $msg[3] = 'book が指定されていません';
$fmid[4] = 0; $msg[4] = 'book が不正です';
$fmid[5] = 0; $msg[5] = 'メールアドレスが不正です';
$fmid[6] = 0; $msg[6] = 'URLが不正です';
$fmid[7] = 0; $msg[7] = '親発言番号が不正です';
$fmid[8] = 0; $msg[8] = 'パスワードが間違っています';
$fmid[9] = 0; $msg[9] = '削除する番号が指定されていないか不正です';
$fmid[10] = 0; $msg[10] = "文章が長すぎます。全角で$max_words文字以下にして下さい";
$fmid[11] = 0; $msg[11] = "変数が不正です";
$fmid[12] = 0; $msg[12] = "返信は名前、コメント両方とも必須です";
$fmid[13] = 0; $msg[13] = "返信には管理パスワードが必要です";
$fmid[14] = 0; $msg[14] = "削除キーが入力されていません";
$fmid[15] = 0; $msg[15] = 'メッセージがスパム判定に引っかかりました。投稿できません';
$fmsg[0] = "Backを押して戻ってください。";
$fmsg[1] = "管理者に連絡してください。";
$fid = $fmid[$id];
($msg) && ($detail = "（$msg）");
print "Content-type: text/html\n\n";
print "
T-Note 4 - Error!!
エラー発生
$msg[$id] $detail
$fmsg[$fid]
管理者：$admin_email
※ ご一報の際には、サイトのＵＲＬ、症状等をお書き添え下さいますようお願いします。
";
($id) && &unlock; # ID が 0 以外の場合はロック解除
($tn - $sts[9] > 15) && &unlock; # 約15秒以上ロックが続いてたら自動解除
exit;
}