_EOF_ # ↑ この _EOF_ は必要です。 $html_info=<<"_EOF_"; # HTML 文の設定（案内）
|
くれぐれも荒らさないように！ |
_EOF_ # ↑ この _EOF_ は必要です。 # ---------------------------------------------------------- # クッキー、ファイル、セキュリティー関連 # 書き換える必要がある場合を除いては変更してはいけません。 # ---------------------------------------------------------- $base_url = ""; # ここにこのCGIの正確な URL (http://〜) を書いておくと # 他サイトから不正に投稿されたものを拒否できます。 $cookie_name = 'fbbspro'; # クッキーのＩＤ $jcode = './jcode.pl'; # jcode.pl のある場所 (URLじゃないよ) $logfile = './flashbbs.log'; # 記録用ファイル (URLじゃないよ) $countfile = './flashbbs.cnt'; # カウンタファイル (URLじゃないよ) $lock1 = './fbbs1.lock'; # 鍵ファイル(1) (URLじゃないよ) $lock2 = './fbbs2.lock'; # 鍵ファイル(2) (URLじゃないよ) $lock_flag = 1; # 鍵ファイルの 1:使用 0:不使用 # ////////////////////////////////////////////////////////// # // オプションの設定変更はここまでです。 // # ////////////////////////////////////////////////////////// # [ メイン処理 ] # $ID = $FORM{'id'}; &check_code; &read_form; &get_cookie; &check_cookie; @logs = &read_file($logfile); if ($FORM{'md'} eq 'reg') { ®ist; } elsif ($FORM{'md'} eq 'del') { &delete; } elsif ($FORM{'md'} eq 'viw') { &view; } elsif ($FORM{'md'} eq 'new') { &html_header("新規投稿");print"
_EOF_ } # [ 著作権等の表示（必ず著作権を表示すること） ] # sub html_footer { print<<"_EOF_";
\n";
$end_tree = $tree + $max_tree;
if ($end_tree > @logs) { $end_tree = @logs; }
for ($i=$tree;$i<$end_tree;$i++) {
print"
";
@datas = ÷_log($logs[$i]);
foreach (@datas) {
local($no,$res,$lx,$tn,$title,$name,$email,$date,$act) = ÷_data($_);
if ($res eq 'root') {
print "![](\"$gif_allnews\")
";
} else {
local($space_width) = $gif_width+$tree_width*$lx;
print "![](\"$gif_space\")
";
}
print "";
if ($no > $count - $new_kiji) {
print "![](\"$gif_new_news\")
";
} else {
print "![](\"$gif_news\")
";
}
print "$title : ";
if ($COOKIE{'name'} eq $name) {
print "$name";
} else { print $name; }
print " ($date)\n";
}
}
print"\n";
}
# [ 個別で記事の内容を表示する ]
#
sub view {
&html_header("記事($FORM{'no'})");
@kiji_datas = ÷_log(&search_no2data($FORM{'tn'},@logs));
$kiji_data = &search_no2data($FORM{'no'},@kiji_datas);
print"[この記事の元になった記事です。 ]$parent
[この記事に対する返事です。]$children
_EOF_
@kiji_datas = ÷_log(&search_no2data($FORM{'tn'},@logs));
foreach (@kiji_datas) {
local($no,$res,$lx,$tn,$title,$name,$email,$date,$act) = ÷_data($_);
$no = int($no);
$reply[$res] .= "$no-";
if ($res eq 'root') {
print "";
} else {
local($space_width) = $gif_width+$tree_width*$lx;
print "";
}
print "$title : $name($date)\n";
}
foreach $data (@kiji_datas) {
local($no,$res,$lx,$tn,$title,$name,$email,$date,$act,$pwd,$rhost,$ipad,$comment) = ÷_data($data);
$no = int($no);
print<<"_EOF_";
| $no | _EOF_ if ($res eq 'root') { print" Root\n"; } else { $res = int($res); print"▲[$res]\n"; } print" | \n"; if (!$reply[$no]) { print"なし\n"; } else { chop($reply[$no]); local(@replys) = split(/-/,$reply[$no]); foreach (@replys) { print"▼[$_]\n"; } } print" |
| \n"; &kiji_view($data); print<<"_EOF_"; | ||
| _EOF_ &kiji_view($data); print<<"_EOF_"; |
| $title |
|
$name($date)
$comment
|
ツリー掲示板の性質上、完全には削除されない場合があります（レス等がある場合）
完全に削除することを望む場合は管理者にお伝え下さい。
_EOF_
}
# [ データ処理関連汎用サブ ]
#
sub divide_log {
local($data) = $_[0];
chop($data);
return split(/<#>/,$data);
}
sub divide_data {
return split(/<>/,$_[0]);
}
sub search_no2data {
local($no,@datas) = @_;
local($data);
foreach $data (@datas) {
if ($no == (split(/<>/,$data))[0]) { return $data; }
}
return 0;
}
# [ フォームからデータ取得 ]
#
sub read_form {
local($pair,$buffer);
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; }
local(@pairs) = split(/&/,$buffer);
foreach $pair (@pairs) {
local($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$FORM{$name} = &change_code($value);
}
}
# [ クッキー処理 ]
#
sub check_cookie {
local($text);
foreach $text ('font','sort','tree','form','new_mail','res_mail') {
if (($FORM{$text} ne '') && ($COOKIE{$text} ne $FORM{$text})) { $COOKIE{$text} = $FORM{$text}; }
}
}
sub get_cookie {
local($pair,%DUMMY);
local($cookies) = $ENV{'HTTP_COOKIE'};
local(@pairs) = split(/;/,$cookies);
foreach $pair (@pairs) {
local($name,$value) = split(/=/,$pair);
$name =~ s/ //g;
$DUMMY{$name} = $value;
}
@pairs = split(/,/,$DUMMY{$cookie_name});
foreach $pair (@pairs) {
local($name,$value) = split(/:/,$pair);
$COOKIE{$name} = &change_code($value);
}
}
sub set_cookie {
local($cook) = "name\:$COOKIE{'name'}\,email\:$COOKIE{'email'}\,pwd\:$COOKIE{'pwd'}\,font\:$COOKIE{'font'}\,sort\:$COOKIE{'sort'}\,tree\:$COOKIE{'tree'}\,form\:$COOKIE{'form'}\,new_mail\:$COOKIE{'new_mail'}\,res_mail\:$COOKIE{'res_mail'}";
$ENV{'TZ'} = "GMT"; # 国際標準時の取得
local($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time + 30*24*60*60);
if ($year < 99) { $year += 100; }
$year += 1900;
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
if ($mday < 10) { $mday = "0$mday"; }
$mon = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mon];
$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wday];
$date_gmt = "$youbi, $mday\-$mon\-$year $hour:$min:$sec GMT";
print "Set-Cookie: $cookie_name=$cook; expires=$date_gmt\n";
}
# [ 文字コード関連 ]
#
sub check_code {
if (!(-r $jcode)) { &error(1,"jcode.pl がありません"); }
require $jcode;
local($text) = ord(substr("中澤重人＝じゃわ(^-^;;",0,1));
if ($text == 0xc3) { $mojicode = "euc"; $charset_code = "x-euc-jp"; }
elsif ($text == 0x92) { $mojicode = "sjis";$charset_code = "x-sjis"; }
else { &error(1,"サポートしてない文字コードです"); }
}
sub change_code {
local($text)=$_[0];
&jcode'convert(*text,$mojicode);
if ($mojicode eq 'sjis') { &jcode'h2z_sjis(*text); }
if ($mojicode eq 'euc') { &jcode'h2z_euc(*text); }
$text =~ s//>/g;
return $text;
}
# [ 日付取得 ]
#
sub get_date {
$ENV{'TZ'} = "JST-9"; # TimeZone (日本時間 = 国際標準時(JST) - 9時間)
local($sec,$min,$hour,$day,$mon,$year) = localtime();
if ($year < 99) { $year += 100; }
$year += 1900;
$year = substr($year,length($year)-2,2);
$mon++;
if ($date_type) {
if ($sec < 10) { $sec = "0$sec"; } # 秒の修正
if ($min < 10) { $min = "0$min"; } # 分 〃
if ($hour < 10) { $hour = "0$hour"; } # 時 〃
if ($date_type > 1) {
if ($mon < 10) { $mon = "0$mon"; } # 月 〃
if ($day < 10) { $day = "0$day"; } # 日 〃
}
}
$date =~ s/year/$year/ig;
$date =~ s/mon/$mon/ig;
$date =~ s/day/$day/ig;
$date =~ s/hour/$hour/ig;
$date =~ s/min/$min/ig;
$date =~ s/sec/$sec/ig;
}
# [ 記録ファイルの処理 ]
#
sub read_file {
local($logfile) = $_[0];
&lock_file($lock1);&lock_file($lock2);
if ($lock_error) { &error(1,"ロックファイルを検出しました。時間をおいてご利用下さい。"); }
if (!open(IN,$logfile)) { &unlock_file; &error(1,"記録ファイルの読み込み不可"); }
local(@files) =
_EOF_
exit;
}
エラー:$err_msg