12chBBS★タカヒロ＠みちのく掲示板スレッド
81 ：書込み確認画面２－１：2006/10/25(水) 19:00:19 ID:???
【Step2】lib.pl の最下部に下記を追加
#--------------------------------------------
#書き込み＆クッキー確認画面
#
sub Agree_12ch {
my $dem = '.';
$comment_agree = $FORM{comment};
$comment_agree =~ s/\0/\n/g;
print <<"EOF";
Content-type: text/html
<html>
<head>
<title>書き込み＆クッキー確認画面</title>
<meta http-equiv="content-type" content="text/html; charset=$charcode">
<SCRIPT LANGUAGE="JavaScript"><!--
function setCookie(formobj) {
var newname = formobj.elements["name"].value;
var newmail = formobj.elements["mail"].value;
kigen = new Date();
kigen.setTime(kigen.getTime() + (1 * 1000 * 60 * 60 * 24));
stkigen = kigen.toGMTString();
var getdate = "expires=" + stkigen + "; path=/;";
document.cookie = "NAME=" + escape(newname) + "; " + getdate;
document.cookie = "MAIL=" + escape(newmail) + "; " + getdate;
document.cookie = "KAKUNIN=" + escape("OK") + "; " + getdate;
return(true);}
//--></SCRIPT>
</head>
#--------------------------------------------
#書き込み＆クッキー確認画面
#
sub Agree_12ch {
my $dem = '.';
$comment_agree = $FORM{comment};
$comment_agree =~ s/\0/\n/g;
print <<"EOF";
Content-type: text/html
<html>
<head>
<title>書き込み＆クッキー確認画面</title>
<meta http-equiv="content-type" content="text/html; charset=$charcode">
<SCRIPT LANGUAGE="JavaScript"><!--
function setCookie(formobj) {
var newname = formobj.elements["name"].value;
var newmail = formobj.elements["mail"].value;
kigen = new Date();
kigen.setTime(kigen.getTime() + (1 * 1000 * 60 * 60 * 24));
stkigen = kigen.toGMTString();
var getdate = "expires=" + stkigen + "; path=/;";
document.cookie = "NAME=" + escape(newname) + "; " + getdate;
document.cookie = "MAIL=" + escape(newmail) + "; " + getdate;
document.cookie = "KAKUNIN=" + escape("OK") + "; " + getdate;
return(true);}
//--></SCRIPT>
</head>
82 ：書込み確認画面２－２：2006/10/25(水) 19:02:26 ID:???
投稿が面倒なんで止めた。。
自分でやろうさ。 私はもう、このスレには書かない。
自分でやろうさ。 私はもう、このスレには書かない。
83 ：Name_Not_Found：2006/10/26(木) 09:58:41 ID:???
改造方法です。
自己責任でお願いします
●書込みました。しばらくお待ちください の表示
ttp://www.gankeijiban.com/12chPrg/Finish_12ch.txt
●書込み確認画面 の表示
*)確認画面で投稿内容の編集も可能
ttp://www.gankeijiban.com/12chPrg/Agreement.txt
自己責任でお願いします
●書込みました。しばらくお待ちください の表示
ttp://www.gankeijiban.com/12chPrg/Finish_12ch.txt
●書込み確認画面 の表示
*)確認画面で投稿内容の編集も可能
ttp://www.gankeijiban.com/12chPrg/Agreement.txt
84 ：Name_Not_Found：2006/11/21(火) 18:20:44 ID:gzUoyc1v
>>83を導入させてもらったんだけど携帯の書き込みもそういう風になるようにしようとしたんだけどだめだった・・・
どこをいじれば出来んのかな？
どこをいじれば出来んのかな？
85 ：Name_Not_Found：2006/12/06(水) 11:58:23 ID:d6dxXAhL
同じプロバだとIDがかぶるじゃないですか。
あれをどうにかしたいのですが、レベルが高すぎて私にはできません･･･。
どなたが腕の立つ方、お願いします。
あと携帯画面でスレ表示が１０になっているのを２０にしたいのですが。
併せてご教授お願いします。
あれをどうにかしたいのですが、レベルが高すぎて私にはできません･･･。
どなたが腕の立つ方、お願いします。
あと携帯画面でスレ表示が１０になっているのを２０にしたいのですが。
併せてご教授お願いします。
86 ：Name_Not_Found：2006/12/07(木) 09:24:04 ID:???
>>85
IDに関しては、下記で作っている
---------------------------------------------------
bbs.cgi で
$uid = $cid == 1 ? makeid($userhost) : $mail ne '' ? '???' : makeid($userhost);
で呼び出し
# ID作成
sub makeid {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
my $id = crypt (crypt ($_[0], $mon), $mday + 31);
return substr ($id, -8);
}
-----------------------------------------
$_[0]の$userhostは、ホスト名があればホスト名、なければIPが入る。
ホスト名が近すぎるのかもしれないです。
だから、多分、IP（$ENV{'REMOTE_ADDR'}）で作ればよいと思う
sub makeid {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
my ($ip1, $ip2, $ip3, $ip4) = split(/\./,$ENV{'REMOTE_ADDR'});
my $idkey = $ip1 + ($ip2 * 300) + ($ip3 * 5000) + ($ip4 * 12000);
my $id = crypt (crypt ($idkey, $mon), $mday + 31);
return substr ($id, -8);
}
ただ、携帯（特にFOMA）の場合、IPがころころ変わります
携帯の場合、$idkeyをIPではなく、UID（個体識別番号）でつくるべき。
UIDの取得、未登録拒否 が必要。ここらは携帯のUIDを取得しているいないで変わります
IDに関しては、下記で作っている
---------------------------------------------------
bbs.cgi で
$uid = $cid == 1 ? makeid($userhost) : $mail ne '' ? '???' : makeid($userhost);
で呼び出し
# ID作成
sub makeid {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
my $id = crypt (crypt ($_[0], $mon), $mday + 31);
return substr ($id, -8);
}
-----------------------------------------
$_[0]の$userhostは、ホスト名があればホスト名、なければIPが入る。
ホスト名が近すぎるのかもしれないです。
だから、多分、IP（$ENV{'REMOTE_ADDR'}）で作ればよいと思う
sub makeid {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
my ($ip1, $ip2, $ip3, $ip4) = split(/\./,$ENV{'REMOTE_ADDR'});
my $idkey = $ip1 + ($ip2 * 300) + ($ip3 * 5000) + ($ip4 * 12000);
my $id = crypt (crypt ($idkey, $mon), $mday + 31);
return substr ($id, -8);
}
ただ、携帯（特にFOMA）の場合、IPがころころ変わります
携帯の場合、$idkeyをIPではなく、UID（個体識別番号）でつくるべき。
UIDの取得、未登録拒否 が必要。ここらは携帯のUIDを取得しているいないで変わります
87 ：Name_Not_Found：2006/12/07(木) 09:48:51 ID:???
んじゃ、携帯のUIDの取得ってことで 、
取りあえず Docomo（UTN）は
read.cgiの携帯のフォームのトコに utn を入れる
「････name="mode" value="i"」ってトコが携帯の部分
<form action="bbs.cgi" method="POST">
を
<form action="bbs.cgi" method="POST" utn>
とする................
で、下記のようになる
-----------------------------------
<center>
<form action="bbs.cgi" method="POST" utn>
<input type="hidden" name="bbs" value="$bbs">
<input type="hidden" name="key" value="$key">
<input type="hidden" name="time" value="$maketime">
<input type="hidden" name="mode" value="i">
それと、携帯でスレ立てOKとしてるなら、
basei.htmlのスレたてのformに utn と入れる
取りあえず Docomo（UTN）は
read.cgiの携帯のフォームのトコに utn を入れる
「････name="mode" value="i"」ってトコが携帯の部分
<form action="bbs.cgi" method="POST">
を
<form action="bbs.cgi" method="POST" utn>
とする................
で、下記のようになる
-----------------------------------
<center>
<form action="bbs.cgi" method="POST" utn>
<input type="hidden" name="bbs" value="$bbs">
<input type="hidden" name="key" value="$key">
<input type="hidden" name="time" value="$maketime">
<input type="hidden" name="mode" value="i">
それと、携帯でスレ立てOKとしてるなら、
basei.htmlのスレたてのformに utn と入れる
88 ：Name_Not_Found：2006/12/07(木) 10:01:18 ID:???
UIDのが無い場合の投稿拒否は >>59 と
Ｄｏｃｏｍｏの場合、機種が503,FOMA以降でないと、投稿は出来なくなります
それ以前を投稿させたい場合は、機種で判定するなど必要。
## 携帯チェック################
if( index($userhost, "ezweb") >0 && $ENV{'HTTP_X_UP_SUBNO'}=='' )
{
Error('Ａｕさん：携帯情報が不足してますよ。');
}
elsif(($userhost =~/\.docomo\.ne\.jp/) && $ENV{'HTTP_USER_AGENT'} !~ /ser([a-zA-Z0-9]+)/i)
{
Error('Ｄｏｃｏｍｏさん：携帯情報が不足してますよ。');
}
elsif(($userhost =~/\.jp-[cdhknqrst]\.ne\.jp/) && $ENV{'HTTP_USER_AGENT'} !~ /\/SN([a-zA-Z0-9]+) /i)
{
Error('ＳｏｆｔＢａｎｋさん：携帯情報が不足してますよ。');
}
###############################
ＳｏｆｔＢａｎｋのとこは持ってないので不安があります。
動作報告まってます。
報告が無ければ、二度と私はこのスレに協力しません (o*。_。)oペコッ
Ｄｏｃｏｍｏの場合、機種が503,FOMA以降でないと、投稿は出来なくなります
それ以前を投稿させたい場合は、機種で判定するなど必要。
## 携帯チェック################
if( index($userhost, "ezweb") >0 && $ENV{'HTTP_X_UP_SUBNO'}=='' )
{
Error('Ａｕさん：携帯情報が不足してますよ。');
}
elsif(($userhost =~/\.docomo\.ne\.jp/) && $ENV{'HTTP_USER_AGENT'} !~ /ser([a-zA-Z0-9]+)/i)
{
Error('Ｄｏｃｏｍｏさん：携帯情報が不足してますよ。');
}
elsif(($userhost =~/\.jp-[cdhknqrst]\.ne\.jp/) && $ENV{'HTTP_USER_AGENT'} !~ /\/SN([a-zA-Z0-9]+) /i)
{
Error('ＳｏｆｔＢａｎｋさん：携帯情報が不足してますよ。');
}
###############################
ＳｏｆｔＢａｎｋのとこは持ってないので不安があります。
動作報告まってます。
報告が無ければ、二度と私はこのスレに協力しません (o*。_。)oペコッ
89 ：Name_Not_Found：2006/12/07(木) 15:04:09 ID:???
あと携帯画面でスレ表示が１０になっているのを２０にしたいのですが。
併せてご教授お願いします。
------------------------------------------
改造中 投稿日：2002/09/21(土) 16:49
変更内容：
「i.htmlで表示されるスレ数が上位１０件」
これを、２０件にしたい
変更箇所：
bbs.cgi の ３１０行目位からの
# imode用のHTMLﾌｧｲﾙ作成 のところ。
foreach (0 .. 9) {
変更内容：
９ を １９に変更する。
foreach (0 .. 19) {
http://bbs.mitinoku.jp/test/read.cgi/m_support/1009383798/61
併せてご教授お願いします。
------------------------------------------
改造中 投稿日：2002/09/21(土) 16:49
変更内容：
「i.htmlで表示されるスレ数が上位１０件」
これを、２０件にしたい
変更箇所：
bbs.cgi の ３１０行目位からの
# imode用のHTMLﾌｧｲﾙ作成 のところ。
foreach (0 .. 9) {
変更内容：
９ を １９に変更する。
foreach (0 .. 19) {
http://bbs.mitinoku.jp/test/read.cgi/m_support/1009383798/61
90 ：Name_Not_Found：2006/12/07(木) 15:17:57 ID:???
それだけじゃ足りなかった。次ページとかの処理
pageview.cgi
------------------------------------------
if ($FORM{mode} eq 'i') {
foreach ($startpage..$endpage) {
を、下記と変更
my $imaxthread= 20; # １ページ表示スレ数 20
my $istartpage = ($page - 1) * $imaxthread;
my $iendpage = ($istartpage + $imaxthread) - 1;
if ($FORM{mode} eq 'i') {
#foreach ($startpage..$endpage) {
foreach ($istartpage..$iendpage) {# 表示件数変更
------------------------------------------
それと、次 とかが変ならパス >>60
そもそも、pageview.cgiはバグが多いかも..
pageview.cgi
------------------------------------------
if ($FORM{mode} eq 'i') {
foreach ($startpage..$endpage) {
を、下記と変更
my $imaxthread= 20; # １ページ表示スレ数 20
my $istartpage = ($page - 1) * $imaxthread;
my $iendpage = ($istartpage + $imaxthread) - 1;
if ($FORM{mode} eq 'i') {
#foreach ($startpage..$endpage) {
foreach ($istartpage..$iendpage) {# 表示件数変更
------------------------------------------
それと、次 とかが変ならパス >>60
そもそも、pageview.cgiはバグが多いかも..
お返事が遅くなりました
ありがとうございますです。
取り入れてみたいと思います。
ありがとうございますです。
取り入れてみたいと思います。
92 ：Name_Not_Found：2007/01/13(土) 12:51:31 ID:lXMWlc9i
時々、ヘッダー部分が一切表示されなくなります。
それに呼応して、携帯の20件表示も元の10件に。
どうしたらよいのでしょうか？
それに呼応して、携帯の20件表示も元の10件に。
どうしたらよいのでしょうか？
93 ：Name_Not_Found：2007/01/13(土) 16:56:12 ID:???
>>92
１投稿毎に、PC用と携帯用のTOPページは作ってるから
リメイクに失敗してるってことだろうけど。。
作っているのは、bbs.cgiの sub makeindexfile 。
そこから、lib.plのsub Menuなどを呼んでる。
skinファイル（板毎のレイアウト）のHTMLが変だとか、
もうちょっと詳しくわからんか？
サーバーの不具合っぽいなぁ～。
以前、サーバー屋の仮想メモリが一杯になって、㌧だことはあるけど。
１投稿毎に、PC用と携帯用のTOPページは作ってるから
リメイクに失敗してるってことだろうけど。。
作っているのは、bbs.cgiの sub makeindexfile 。
そこから、lib.plのsub Menuなどを呼んでる。
skinファイル（板毎のレイアウト）のHTMLが変だとか、
もうちょっと詳しくわからんか？
サーバーの不具合っぽいなぁ～。
以前、サーバー屋の仮想メモリが一杯になって、㌧だことはあるけど。
94 ：Name_Not_Found：2007/01/14(日) 08:13:30 ID:5/TYumQ3
そもそも当のみちのく掲示板が使っていないという件について
95 ：Name_Not_Found：2007/01/22(月) 03:43:46 ID:lXmRpHGW
age
96 ：Name_Not_Found：2007/01/30(火) 18:41:52 ID:XrQUGuta
>>88
bbs.cgi無いならのどこらへんに置いとけばいいですか？
bbs.cgi無いならのどこらへんに置いとけばいいですか？
97 ：Name_Not_Found：2007/01/30(火) 18:46:23 ID:???
内のどこらへんですすいません
それと>>87ですけど取得した情報を管理画面にも表示できるようにならないんでしょうか？
それと>>87ですけど取得した情報を管理画面にも表示できるようにならないんでしょうか？
98 ：Name_Not_Found：2007/01/31(水) 11:51:28 ID:???
$userhostを設定した後なら、どこでも良いと思う
例えばline37位の下記の前
-----------------------
# ｽﾚ建て別画面
makeindexfile('ot') if $FORM{action} eq 'ot';
-----------------------
管理画面で観るならお手軽に、IPにくっ付ければよいです。
管理画面が横長になるけど、構わない。
でも、ＩＰを掲示板に表示してる場合は、
別に記録するか、表示の時に切るなどの処理は必要だろうけど。
ドコモとsoftbankはＵＡにくっ付いて来るから、
$userhost .= '_' .$ENV{'HTTP_USER_AGENT'};
$userhost .= '_' .$ENV{'HTTP_X_UP_SUBNO'}; //eZのサブスクライバ（必要なら
例えばline37位の下記の前
-----------------------
# ｽﾚ建て別画面
makeindexfile('ot') if $FORM{action} eq 'ot';
-----------------------
管理画面で観るならお手軽に、IPにくっ付ければよいです。
管理画面が横長になるけど、構わない。
でも、ＩＰを掲示板に表示してる場合は、
別に記録するか、表示の時に切るなどの処理は必要だろうけど。
ドコモとsoftbankはＵＡにくっ付いて来るから、
$userhost .= '_' .$ENV{'HTTP_USER_AGENT'};
$userhost .= '_' .$ENV{'HTTP_X_UP_SUBNO'}; //eZのサブスクライバ（必要なら
99 ：Name_Not_Found：2007/02/16(金) 16:42:03 ID:???
100 ：Name_Not_Found：2007/02/18(日) 14:50:42 ID:???
docomoの場合、個体番号を示す ser**** で作るといいよ。
1部だけ取り出すのが面倒なら、ser****以下を全部つかってもいい。
IDは本来、変わりうるものだけど これだとかなり固定になるから良いのか悪いのか。
アイデアとしては、セッションIDみたいなモノを、Getやhiddenで付回すってもある
そこら辺は、Perlの携帯ショッピングカート系からパチルとよいよ。
画面が進んでも一意を保ち続けてるだろ。
できたら、ここに紹介してね。私は要らないけど他の人が助かるかも。
1部だけ取り出すのが面倒なら、ser****以下を全部つかってもいい。
IDは本来、変わりうるものだけど これだとかなり固定になるから良いのか悪いのか。
アイデアとしては、セッションIDみたいなモノを、Getやhiddenで付回すってもある
そこら辺は、Perlの携帯ショッピングカート系からパチルとよいよ。
画面が進んでも一意を保ち続けてるだろ。
できたら、ここに紹介してね。私は要らないけど他の人が助かるかも。
101 ：Name_Not_Found：2007/03/28(水) 03:00:33 ID:niC264Qz
age
102 ：Name_Not_Found：2007/04/02(月) 01:54:42 ID:7DyM5KuA
>>86を試してみたけど、
ＰＣからの書き込みも毎回変わってしまいました・・・
ＰＣからの書き込みも毎回変わってしまいました・・・
103 ：Name_Not_Found：2007/04/15(日) 01:23:20 ID:Wg/16k3q
age
104 ：Name_Not_Found：2007/05/11(金) 02:35:18 ID:bjmJh6Au
あげ
105 ：Name_Not_Found：2007/05/20(日) 00:23:21 ID:???
106 ：Name_Not_Found：2007/05/26(土) 02:53:46 ID:0ZLwQqde
JANEで書き込みできないのですが、
どのように対策をほどこしたらよいのでしょうか？？？
かちゅは問題ないのですが。
--------------------
書込み中・・・
--------------------
Error
･｢･ｯ･ｻ･ｹﾀｩｸﾂ､ｵ､・ﾆ､､､・ﾛ･ｹ･ﾈ､ｫ､鬢ﾎﾅ・ﾆ､ﾇ､ｹ
こんなエラーがでます。
どのように対策をほどこしたらよいのでしょうか？？？
かちゅは問題ないのですが。
--------------------
書込み中・・・
--------------------
Error
･｢･ｯ･ｻ･ｹﾀｩｸﾂ､ｵ､・ﾆ､､､・ﾛ･ｹ･ﾈ､ｫ､鬢ﾎﾅ・ﾆ､ﾇ､ｹ
こんなエラーがでます。
107 ：Name_Not_Found：2007/06/04(月) 19:40:27 ID:cIdLb+xp
-----ＳＥＯ対策--------------------------
例えば
●～read.cgi?bbs=test&key=1126184864&ls=50 を ～read/test/1126184864/50とする
●read.cgi?bbs=test&key=1126184864&st=2&to=10 ～read/test/1126184864/2-10とする
●read.cgi?bbs=test&key=1126184864&to=10 ～read/test/1126184864/10とする
●read.cgi?bbs=test&key=1126184864 ～read/test/1126184864とする
【STEP1】 .htaccessに下記を追加
RewriteEngine on
RewriteRule ^read/(.*)/(.*)/l(.*) read.cgi?bbs=$1&key=$2&ls=$3 [L]
RewriteRule ^read/(.*)/(.*)/(.*)-(.*) read.cgi?bbs=$1&key=$2&st=$3&to=$4 [L]
RewriteRule ^read/(.*)/(.*)/(.*) read.cgi?bbs=$1&key=$2&to=$3 [L]
RewriteRule ^read/(.*)/(.*) read.cgi?bbs=$1&key=$2 [L]
【STEP2】
URL欄に ～read/test/1126184864/50 で表示できることを確認
【STEP3】
read.cgi で検索し、それらしいところを片っ端から修正する
例えば
newmenu .= "<a href=$dem/read.cgi?bbs=$bbs&key=$key&ls=$lslimit target=_blank>$cnt</a>:";
↓
$newmenu .= "<a href=$dem/read/$bbs/$key/l$lslimit target=_blank>$cnt</a>:";
----お薦めの検索ソフト、MiGrep---------------------------------------
http://www.vector.co.jp/soft/win95/util/se115023.html
例えば
●～read.cgi?bbs=test&key=1126184864&ls=50 を ～read/test/1126184864/50とする
●read.cgi?bbs=test&key=1126184864&st=2&to=10 ～read/test/1126184864/2-10とする
●read.cgi?bbs=test&key=1126184864&to=10 ～read/test/1126184864/10とする
●read.cgi?bbs=test&key=1126184864 ～read/test/1126184864とする
【STEP1】 .htaccessに下記を追加
RewriteEngine on
RewriteRule ^read/(.*)/(.*)/l(.*) read.cgi?bbs=$1&key=$2&ls=$3 [L]
RewriteRule ^read/(.*)/(.*)/(.*)-(.*) read.cgi?bbs=$1&key=$2&st=$3&to=$4 [L]
RewriteRule ^read/(.*)/(.*)/(.*) read.cgi?bbs=$1&key=$2&to=$3 [L]
RewriteRule ^read/(.*)/(.*) read.cgi?bbs=$1&key=$2 [L]
【STEP2】
URL欄に ～read/test/1126184864/50 で表示できることを確認
【STEP3】
read.cgi で検索し、それらしいところを片っ端から修正する
例えば
newmenu .= "<a href=$dem/read.cgi?bbs=$bbs&key=$key&ls=$lslimit target=_blank>$cnt</a>:";
↓
$newmenu .= "<a href=$dem/read/$bbs/$key/l$lslimit target=_blank>$cnt</a>:";
----お薦めの検索ソフト、MiGrep---------------------------------------
http://www.vector.co.jp/soft/win95/util/se115023.html
108 ：Name_Not_Found：2007/06/05(火) 01:51:36 ID:???
109 ：Name_Not_Found：2007/06/20(水) 17:47:31 ID:koOdh4JB
あげ
110 ：Name_Not_Found：2007/07/05(木) 11:40:58 ID:fvWKkhik
agex
111 ：Name_Not_Found：2007/08/18(土) 21:04:15 ID:fTudLCc0
112 ：Name_Not_Found：2007/10/29(月) 22:48:05 ID:???
今更だけど BBQを利用する:簡単設置
-------------------------------
Step1: bbs.cgi の一番下に下記を追加
#----------------------------------------
#BBQ あらしお断りシステム
#http://info.2ch.net/wiki/index.php?BBQ
sub checkProxyList
{
my $RADDR = $ENV{'REMOTE_ADDR'} ;
$RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $query_addr = "$4.$3.$2.$1.niku.2ch.net";
my $addr = join('.', unpack('C*', gethostbyname($query_addr)));
if ($addr eq '127.0.0.2')
{
Error("ＥＲＲＯＲ！公開ＰＲＯＸＹからの投稿は受け付けていません");
}
}
#----------------------------------------
Step2: bbs.cgi の
Error('GETでの投稿は禁止です') if "\U$ENV{'REQUEST_METHOD'}\E" ne "POST";
の上に・・下記を追加（他の場所でもOK お好みで）
checkProxyList(); #20071001
-------------------------------
Step1: bbs.cgi の一番下に下記を追加
#----------------------------------------
#BBQ あらしお断りシステム
#http://info.2ch.net/wiki/index.php?BBQ
sub checkProxyList
{
my $RADDR = $ENV{'REMOTE_ADDR'} ;
$RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $query_addr = "$4.$3.$2.$1.niku.2ch.net";
my $addr = join('.', unpack('C*', gethostbyname($query_addr)));
if ($addr eq '127.0.0.2')
{
Error("ＥＲＲＯＲ！公開ＰＲＯＸＹからの投稿は受け付けていません");
}
}
#----------------------------------------
Step2: bbs.cgi の
Error('GETでの投稿は禁止です') if "\U$ENV{'REQUEST_METHOD'}\E" ne "POST";
の上に・・下記を追加（他の場所でもOK お好みで）
checkProxyList(); #20071001
#################################################
BBQを利用する: 板別に設定したい場合
#################################################
#
##--Step1: admin/make.cgi --######################
#-------------------------------------------------------
ipcheck => $$form{ipcheck},
この下に 下記を追加
bbqcheck => $$form{bbqcheck}, #200710
#-------------------------------------------------------
<tr><td>■ 逆引き不可でｱｸｾｽ拒否</td><td>@{[chkbox('ipcheck',$ipcheck,'ON','OFF')]}</td></tr>
この下に 下記を追加
<tr><td>■ BBQあらしお断りシステムの使用</td><td>@{[chkbox('bbqcheck',$bbqcheck,'ON','OFF')]}</td></tr>
#-------------------------------------------------------
ipcheck => 0,
この下に 下記を追加
bbqcheck => 0, #200710
#-------------------------------------------------------
$ms .= "### 逆引き不可でｱｸｾｽ拒否設定 (0,OFF その他 ON)\n" . '$ipcheck = ' . $msd{ipcheck} . ";\n";
この下に 下記を追加
$ms .= "### BBQ:あらしお断りシステムの設定 (0,OFF その他 使用)\n" . '$bbqcheck = ' . $msd{bbqcheck} . ";\n"; #200710
BBQを利用する: 板別に設定したい場合
#################################################
#
##--Step1: admin/make.cgi --######################
#-------------------------------------------------------
ipcheck => $$form{ipcheck},
この下に 下記を追加
bbqcheck => $$form{bbqcheck}, #200710
#-------------------------------------------------------
<tr><td>■ 逆引き不可でｱｸｾｽ拒否</td><td>@{[chkbox('ipcheck',$ipcheck,'ON','OFF')]}</td></tr>
この下に 下記を追加
<tr><td>■ BBQあらしお断りシステムの使用</td><td>@{[chkbox('bbqcheck',$bbqcheck,'ON','OFF')]}</td></tr>
#-------------------------------------------------------
ipcheck => 0,
この下に 下記を追加
bbqcheck => 0, #200710
#-------------------------------------------------------
$ms .= "### 逆引き不可でｱｸｾｽ拒否設定 (0,OFF その他 ON)\n" . '$ipcheck = ' . $msd{ipcheck} . ";\n";
この下に 下記を追加
$ms .= "### BBQ:あらしお断りシステムの設定 (0,OFF その他 使用)\n" . '$bbqcheck = ' . $msd{bbqcheck} . ";\n"; #200710
#------------------------------------------
##--Step2: lib.pl --######################
#----------------------------------------
一番下に下記を追加
#BBQ あらしお断りシステム
#http://info.2ch.net/wiki/index.php?BBQ
sub checkProxyList
{
my $RADDR = $ENV{'REMOTE_ADDR'} ;
$RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $query_addr = "$4.$3.$2.$1.niku.2ch.net";
my $addr = join('.', unpack('C*', gethostbyname($query_addr)));
if ($addr eq '127.0.0.2')
{
Error("ＥＲＲＯＲ！公開ＰＲＯＸＹからの投稿は受け付けていません");
}
}
##--Step2: lib.pl --######################
#----------------------------------------
一番下に下記を追加
#BBQ あらしお断りシステム
#http://info.2ch.net/wiki/index.php?BBQ
sub checkProxyList
{
my $RADDR = $ENV{'REMOTE_ADDR'} ;
$RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $query_addr = "$4.$3.$2.$1.niku.2ch.net";
my $addr = join('.', unpack('C*', gethostbyname($query_addr)));
if ($addr eq '127.0.0.2')
{
Error("ＥＲＲＯＲ！公開ＰＲＯＸＹからの投稿は受け付けていません");
}
}
#------------------------------------------
##--Step3: bbs.cgi --######################
#----------------------------------------
Error('GETでの投稿は禁止です') if "\U$ENV{'REQUEST_METHOD'}\E" ne "POST";
の上に・・下記を追加（他の場所でもOK お好みで）
checkProxyList() if $bbqcheck != 0; #20071001
##--Step3: bbs.cgi --######################
#----------------------------------------
Error('GETでの投稿は禁止です') if "\U$ENV{'REQUEST_METHOD'}\E" ne "POST";
の上に・・下記を追加（他の場所でもOK お好みで）
checkProxyList() if $bbqcheck != 0; #20071001
116 ：Name_Not_Found：2007/10/30(火) 14:31:25 ID:???
BBQの利用は
●全ての投稿に適用するなら >>112
●サポート板だけは適用しないなど
板別に設定したい場合 >>113-115
お好みでどぞ！
他の防御システムの最後の最後に適用する方(最後の砦として）が良いかと...
●全ての投稿に適用するなら >>112
●サポート板だけは適用しないなど
板別に設定したい場合 >>113-115
お好みでどぞ！
他の防御システムの最後の最後に適用する方(最後の砦として）が良いかと...
117 ：Name_Not_Found：2008/02/13(水) 05:29:44 ID:Z3nP3h9M
age
118 ：Name_Not_Found：2008/06/16(月) 23:52:39 ID:NlolQ2AS
あげ
119 ：Name_Not_Found：2009/03/06(金) 11:01:32 ID:oFAPV7Ee
なんだかんだと、未だに最強
120 ：Name_Not_Found：2009/03/15(日) 21:52:47 ID:Pb6UHGsy
【毎月300円稼ぐだけで、300万円入金される方法】
会員登録するだけ！
あなたもノーリスクで８ヶ月で３００万円以上稼いでみませんか？
稼ぐノウハウだって差し上げます
THE GET THREE MEMBER 無料登録
http://www.getx3.net/top.cgi?sid=Say&gid=1222943393
..
会員登録するだけ！
あなたもノーリスクで８ヶ月で３００万円以上稼いでみませんか？
稼ぐノウハウだって差し上げます
THE GET THREE MEMBER 無料登録
http://www.getx3.net/top.cgi?sid=Say&gid=1222943393
..
121 ：Name_Not_Found：2009/09/24(木) 02:35:46 ID:/iDsMVxL
集まれー！！
122 ：tCOPCPrzYwkjVfpSbZ：2009/10/22(木) 23:42:38 ID:???
I looked at the cards and at the first glimpse my impression was: a reflecting pool, or mirror perhaps. ,
123 ：TumtcBZDIPyjCU：2009/10/23(金) 21:40:01 ID:???
He gave me a look which I deserved. ,
124 ：Name_Not_Found：2010/02/20(土) 09:31:42 ID:1oeKTUws
さてと！ 再開発すっかなー
125 ：Name_Not_Found：2010/02/20(土) 10:55:12 ID:???
126 ：Name_Not_Found：2010/02/25(木) 11:50:43 ID:???
127 ：Name_Not_Found：2010/08/09(月) 11:08:34 ID:lBAzPmii
128 ：Name_Not_Found：2010/08/09(月) 21:03:09 ID:???
age
129 ：Name_Not_Found：2010/08/12(木) 00:52:28 ID:oNMiIHs7
感謝 age!
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね