';
# ホームページ画像のアドレス
$browserimg = '
';
##################################### 記録ファイルの設定 ######################################
# パスワードの記録ファイルの設定
$pass = './pass.txt';
# 掲示板の内容が書き込まれる記録ファイルの設定と最大記録件数（ページ表示用）
$file = './minibbs.dat';
$def = 20; # １ページに表示する件数
$defmin = 1; # １ページに表示する最小件数
$defmax = 999; # １ページに表示する最大件数
$max = '10000'; # 最大記録件数
# アクセスログを記録するかどうか（記録しない: 1 記録する : 0）
$alog = 0;
$access_log = "log.dat";
$rescue = '3000';
# カウンターを表示するかどうか（表示しない: 1 表示する : 0）
$log = 0;
$countdate = '99.5.20'; # カウンター開始日付
# 指定ホスト排除機能のリスト記録ファイルの設定（排除するホスト名が書き込まれます）
# リストへの書き込みはminibbsの最下部セキュリティ設定から書き込みページにいけます
$hostlist = './a-men.dat';
# 投稿記事番号の記録ファイル
$log_number = './log_number.dat'; # 投稿記事番号を使う場合の記録ファイルの設定
# 日本語コード変換ライブラリ
# この jcode.pl を minibbs.cgi と違うディレクトリに設置する場合は相対的に設定すること
require 'jcode.pl';
####################################### 管理者設定 ########################################
# 騙り防止のため投稿者の認識ＩＤを投稿日の後ろに表示する（by /../氏 mm氏）
# （ＩＤは、削除パスワードとハンドル名の組み合わせで暗号化され固定されます）
# （管理者を明示したい場合は削除パスワード欄に管理パスワードを入れると[Master]と表示 by Yuumi氏）
# 表示しない : 0 表示する: 1
$DispID = 0;
# 管理者のハンドル名と使われたくない名前の設定（偽名拒否設定 by TTS氏）
# これを設定した場合、管理者が自分のハンドル名で書き込む際は名前入力欄に管理者パスワードを入力
# することで自動的にハンドル名に変換。ハンドル名でそのまま書くと飛ばされます（笑）
# 上記で「認識ＩＤを表示する」にしている場合はあんまり意味ありません。
# 偽名拒否設定しない : 0 する: 1
$gimei = 1;
# 偽名拒否設定する場合のあなたのハンドル名（管理パスワード入力で変換される）
# 全角のーが入ったハンドル（パール、かーる等）はなぜか誤作動するので使えません。諦めて下さい(^^;;
$master = "Captain";
# 偽名拒否設定するハンドル、名称の設定。（半角開けて複数指定可）
# ここにあなたのハンドル名を上記と同じ名前で書いておかないと偽名拒否の意味ありません。
$admin = "Captain";
######################################## 悪戯対策 #########################################
# 上記偽名を使った場合と排除指定したホストのジャンプするＵＲＬ デフォは文部省（笑）＜TTS氏
$jumpurl = "http://warez.com/";
##################################################
# プロクシ経由でのアクセス（閲覧）＆書き込みの許可（by カール＆dimdim氏）
# 許可する : 0 書き込みのみ拒否する（閲覧は可）: 1 閲覧、書き込み共に拒否: 2
$proxy = 0;
# プロクシ制限する場合のレベル（弱 : 1 強 : 2）
# ２にするとプロクシ変数をまったく吐かないＩＰ串以外はほとんど拒否します。
$plevel = 1;
# 上記プロクシ制限をした場合に善意のアクセス者（会社のFireWall等）を指定して許可する設定
# ホスト名を|で区切って複数指定可能。IPアドレスの場合は先頭の２つが適当？
# 設定例：$kyoka = "biglobe.be.jp|3web.ne.jp|202.124.|abc.com";
$kyoka = "";
##################################################
# ダブルポスト（同一内容連続投稿＆リロード）対策。何件前までチェックするか（by アリス氏）
$check = 0;
# 投稿内容の一部分を変えての連続投稿対策（例：...第１回目、...第２回目..）
# 投稿内容の先頭から指定した文字数の範囲内で同一内容か判断する（単位＝バイト）
$checklength = 1000;
##################################################
# 投稿内容に関わらず連続投稿を指定秒数内は拒否する設定（by カール）
# 同一ホストの場合のみ時間制限 : 0 ホストに関わらず時間制限: 1
$ctimer = 0;
# 制限する秒数（単位：秒）
$rtimer = 60;
# 上記調整用（上記$rtimerが60秒の場合は下記のまま、120秒以上は+80、という感じで60秒ごとに+40加算）
$timer = $rtimer + 40;
##################################################
# GabriDuke等のツール対策チェックコード生成用（100〜400までの３桁の任意の数字）※必ず変更すること
$num = 249;
# 生成されたチェックコードをさらにキーで暗号化（任意の文字列を暗号キーとする）※必ず変更すること
$key = "k932759q6";
##################################################
# 書き込み容量制限（大量カキコ対策 全角は２バイトです）
$max_s = 100; #タイトル文字数
$max_n = 100; #名前文字数
$max_e = 100; #メールアドレス文字数
$max_v = 100000; #投稿内容文字数
$max_url = 300; #URL文字数
$max_line = 1000; #投稿内容行数（上の文字数との兼ね合いを考えて）
##################################################
# タグを使えるようにするかどうかの設定
# 使える:1 使えない:0
$tag = 1;
##################################################
# ＣＧＩ二重起動防止ロック処理（データファイル消失防止）
#
# 通常は 1 に設定しますが、symlinkの使えない極一部のサーバでは常に「BUSY」になりますので、
# その場合は 2 に設定してください. 1 よりも 2 の方が処理が甘くなります.
# ※lockディレクトリのパーミッションを777に設定し忘れた場合も常に「BUSY」になります
# ※サーバーエラーで読み込み途中にエラーになると以後、常に「BUSY」になります。この場合はＦＴＰで
# lockディレクトリ内のcount.lockという自動生成されるファイルを削除して下さい。
# 負荷の高いサーバーの場合、ロック処理はおすすめできません。
#
# ロック処理しない：0 ロック処理(symlink)：1 ロック処理(open)：2
$lock_key = 0;
##################################################
# 海外サーバ等で時差が生じる場合は修正します
# 海外時間に＋９時間する場合 = localtime(time + 9*60*60);
# 海外時間に−９時間する場合 = localtime(time - 9*60*60);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
##################################################
# 入力形式の設定 標準入力:1(post) その他:0(get)
# 投稿ボタンを押して Method not implemented.. 等というエラーが出る場合は get で試すこと
# getの場合は文字制限がありますので長い文章等は途中で切れる可能性があります.
# POST:1 GET:0
$method = 1;
##################################################
#--- 必ずあなたの環境に合わせて書き替える項目 ここまで --------------------------------------#
@key = split(//,$key);
$lockfile = 'lock/count.lock';#２重起動防止ファイル（自動生成されるのでアップ不要）
$addr = $ENV{'REMOTE_ADDR'};
$host = $ENV{'REMOTE_HOST'};
if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; }
if ($kyoka eq ""){&hostcheck;}
elsif(!($host=~ /$kyoka/)){&hostcheck;}
$via = $ENV{'HTTP_VIA'};
$xfor = $ENV{'HTTP_X_FORWARDED_FOR'};
$for = $ENV{'HTTP_FORWARDED'};
$agent = $ENV{'HTTP_USER_AGENT'};
$trueip= &getip;
if (($kyoka eq "") && ( $proxy eq '2')){ &proxy;}
elsif((!($host=~ /$kyoka/)) && ( $proxy eq '2')){ &proxy;}
if ($lock_key == 1) { &lock; }
elsif ($lock_key == 2) { &lock2; }
$month = ($mon + 1);
if ($month < 10) { $month = " $month"; }
if ($mday < 10) { $mday = " $mday"; }
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
$y0="日"; $y1="月"; $y2="火"; $y3="水"; $y4="木"; $y5="金"; $y6="土";
$youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6) [$wday];
$date_now = "$month月$mday日($youbi)$hour時$min分";
$date_num = sprintf("%02d%02d%02d%02d%02d",$mon +1,$mday,$hour,$min,$sec); # <-変更禁止
if ($method eq '1' && $ENV{'QUERY_STRING'} ne '') { &error('x'); }
if ($method eq '1') { $method = 'post'; read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); }
else { $method = 'get'; $buffer = $ENV{'QUERY_STRING'}; }
@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;
&jcode'convert(*value,'sjis');
$value =~ s/(教え|おしえ|オシエ|ぉιぇ|oshie|osie)(.|\n)*/もらしてほしきゃ、\n下腹を押しながらピストンすりゃぁ、\nいくらでももらすぜ、女はよ。\nへへへ・・・\n「だめ〜オシッコ出ちゃう！」「だめ〜オシッコ出ちゃう！」「だめ〜オシッコ出ちゃう！」「だめ〜オシッコ出ちゃう！」「だめ〜オシッコ出ちゃう！」「だめ〜オシッコ出ちゃう！」「だめ〜オシッコ出ちゃう！」と言ってジョォ〜っと。暖かかったです。\nげへへへへへへへへ........ホントに良いねぇ。\n/gi;
$value =~ s/,/，/g;
$value =~ s//>/g;
$value =~ s/\r\n/\r/g;
$value =~ s/\n/\r/g;
@tags = split( /]*)>(.*)/$1/;
$tag =~s/^\/(.*)//;
$tag =~s/^([^\s]*).*/$1/;
}
$value.='>' if($value=~/<\/$/);
@tags = reverse( @tags );
foreach $tag ( @tags ){
next if($tag =~/(img|^hr$|^br$)/i);
$value.="" if($tag);
}
$value =~ s/\r//,$value); $value = ""; for (@t_value) { if ($_ =~ /^＠|^@/) { $value .= "$renamecolor$_
";} elsif ($_ =~ /^＞|^>/) { $value .= "$revalucolor$_
";} elsif ($_ =~ /^＃|^#/) { $value .= "$shvalucolor$_
";} else { $value .= "$_
"; } } print "$ncolor
[$log_count] ";
if ($name ne '') {
if ($email ne '') { print "名前:$name$letterimg\n"; }
else { print "名前:$name\n"; }
if (($homepage eq '') || ($homepage eq 'http://')) { print "\n"; }
else { print " ホームページ$browserimg\n"; }
}
else {
if ($email ne '') { print "名前:歴史資料館諜報部員$letterimg\n"; }
else { print "名前:歴史資料館諜報部員\n"; }
if (($homepage eq '') || ($homepage eq 'http://')) { print "\n"; }
else { print " ホームページ$browserimg\n"; }
}
print " \n$date\n\n";
if ($subject ne '') { print "
題名:$subject"; }
print "
\n";
print "\n$value\n
\n\n
\n"; } print "
\n"; $page_next = $page_end + 1; $i = $page + 1; $j = $page_end + 1; $p_now = $i + $def; if ($j + $def < $taccesses) {$p_next = $j + $def;} else {$p_next = $taccesses;} if ($page_end ne $accesses) { print "\n"; } else { print "投稿数 $taccesses 件\n"; } print "
\n"; print "\n"; print "
\n"; print "
\n"; &count; print "
\n"; print "This board service has presented by MiniBBS
"; print "Powered by ProxyCheckerz v8.3
"; print "E-Mail: history\@scenecritique.com
"; print "