【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part16
■ このスレッドは過去ログ倉庫に格納されています
peko作戦について語るスレです。
サーバロケーションPIEに関する話題もこちらで。
＜現在の主要なテーマ＞
・read.cgiのmod_cgidso化によるパフォーマンスアップ
・bbs.cgiのSpeedyCGI化によるパフォーマンスアップ
・FreeBSD 5.3Rへのサーバ更新作業&さらなるチューニング
＜関連板・スレッド＞
また挑戦。＠2ch掲示板
http://dso.2ch.net/myanmar/
また挑戦２。＠2ch掲示板
http://dso.2ch.net/yangon/
bbs.cgi再開発プロジェクト４
http://qb5.2ch.net/test/read.cgi/operate/1101984763/
read.cgi再開発スレ
http://qb5.2ch.net/test/read.cgi/operate/1087199303/
＜関連サイト＞
レンタルサーバー maido3.com ２ちゃんねるの転送量: http://server.maido3.com/pie/
MRTGによる統計情報: http://mumumu.mu/mrtg/
２ちゃんねる/PINKちゃんねる 稼動中のサーバ一覧: http://mumumu.mu/serverlist.html
＜前スレ＞
【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part15
http://qb5.2ch.net/test/read.cgi/operate/1093068260/ >>782
1. がいいような。
で、DNS query発生するのは、該当ワードがあった時だけっすよね。
なら、器はbanana238でまかなえるんではないかなと。
(まだIPアドレス資源には余裕あります) 1. にするとすると、
a) bbr.2ch.net サブドメイン & DNSの器(tinydnsでよいのかな?)
b) BBR装置を入れる 何々.2ch.net のバーチャルホスト(bbr.2ch.netとペア)
がbanana238にあればよいのかしら。
(ただし、該当ワードがあった時のみのqueryなら、という条件で)。 あぁ、今ようやくわかたです。
BBXで「ひっかかったよ」というログを、BBYみたいにとっておきたいわけですか。
1. しかないんじゃないかしら。 →(まだIPアドレス資源には余裕あります)
238にてifconfigしてみて、たくさんあるのを確認しました（ｗ
→(ただし、該当ワードがあった時のみのqueryなら、という条件で)
該当ワードが存在したときに発生します。しかし、BBX,BBRと２回DNS問い合わせするので、
現状より増えるかと思われます。＠やや心配
--------------------------------------------------------------------------------
★現状（あくまでも想像です。）
# 本文を対象にワードのチェックをする。
my ($CHK_Rock54, $FLAG_Sakura) = &Rockのちぇっく(本文);
if ($CHK_Rock54 eq '無いとき') { 次のルーチンへ }
if ($FLAG_Sakura eq 'さくら') { 「さくらが咲いています」; exit; }
BBXに問い合わせる↓
if (３回目以上？) { 「書き込みました」; exit; }
kicklogに書き出し;
# 次のルーチン
★これから
# 本文を対象にワードのチェックをする。
my ($Rock54_MD5, $FLAG_Sakura) = &Rockのちぇっく(本文);
if ($Rock54_MD5 eq '空っぽ') { 次のルーチンへ }
BBR（仮称）に必要なクエリ(*)を送信。
if ($FLAG_Sakura eq 'さくら') { 「さくらが咲いています」; exit; }
BBXに問い合わせる↓
if (３回目以上？) { 「書き込みました」; exit; }
# 次のルーチン
--------------------------------------------------------------------------------
このような流れになるかと思います。
*) BBR（仮称）へ送りつけるクエリの詳細
MD5:該当ワードに付けられたmd5値.さくらフラグ.投稿者のIPアドレス.サブスクライバ.スレッド番号.板名.鯖名.bbr.2ch.net.
凡例：
MD5:2d2c9924000a31a5707bd613a4f9b48f.0.123.45.67.89.1105864300.news4vip.ex7.2ch.net.bbr.2ch.net
※このようなクエリ形式になるので、tinydnsが必要になるかと思いました。
返答は常に127.0.0.2で桶かな？
dataファイルには、
+*.bbr.2ch.net.:127.0.0.2:
の１行のみ記載 >>786
ふむふむ。
ひっかかったログをとりたいということですか。
BBYやBBSと同等の使い方なので、tinydnsですね。
いけるんじゃないですかね。
まずは例によって「困ったら考える」ということで、やってみましょうか。
ただ今日はちと忙しいんで、器作りは明日以降ということで。 >>787
> ひっかかったログをとりたいということですか。
根本はそこにあるです。
まとめ処では現在ログが溜まりすぎて一覧表示をさせるにも鯖に負荷が掛かってしまうのが現況であります。
http://qb5.2ch.net/test/read.cgi/operate/1083063122/475-
ということで今回のようないきさつになりました。 >>786
NGワードをMD5にする必要はあるんでしょうかね
まあ内緒ならわかりますが、それならSHAでもいいのかも・・・・否、
むしろMD5は怪しい(先刻話題になったあの問題がある)ので辞めたほうがいい悪寒 >>789
> NGワードをMD5にする必要はあるんでしょうかね
管理の際、NGワードで検索するよりもMD5(hex_digest)の方が楽なので（照）
ちなみにまったく同じNGワードであってもMD5値が重複しないようにしているつもりです（苦笑） >>790
>ちなみにまったく同じNGワードであってもMD5値が重複しないようにしているつもりです
初耳ですな、これ。同一ストリングで異なるMD5、か。
まーおおよそごにょごにょしているんでしょうけどw >>791
同一ストリングは「重複する」って事で登録出来ないようになっていたりとか、
重複する場合は、NGワードが「文字列として」は重複しないようにしているとか、
いろいろとやっていたりします（照）＠Rock54
それでも必ず「穴」はあると信じているので、自分とは違う目でチェックもしてもらえると、
嬉しかったりするんだけれども（苦笑） >>792
・・・と書いていたら穴を思いついたのでまた直しておきます（ｗ 携帯→2ch運用情報スレッド15
http://qb5.2ch.net/test/read.cgi/operate/1105850178/538
squidセキュリティパッチ出ているとのこと。
あと、5.3-RELEASE-p5が出ている模様。
http://lists.freebsd.org/pipermail/freebsd-announce/2005-January/000976.html
SMPカーネルでのpanicするバグの修正が入っているみたい。
これで、tigerサーバがたまにpanicするのが直るのかな。 >>794
ex7(= tiger503)のバージョンを、まずは上げてみるか。
で、問題なければ他のサーバへと。
スケジュールは別途。 さて、これからぼちぼちいろんな転送量ログやらApache status log何やらを分析しようかなと。 www/www2はhttpdが、既に21:55の時点で売り切れでした。
スタティックコンテンツしかないからまだ増やせるので、増やしておこう。
ただ、いつもこんなに必要なわけじゃないから、やばい場合だけ増えるようにしておこう。
<IfModule prefork.c>
StartServers 128
MinSpareServers 128
MaxSpareServers 128
ServerLimit 128
MaxClients 128
MaxRequestsPerChild 1000000
</IfModule>
を
<IfModule prefork.c>
StartServers 128
MinSpareServers 128
MaxSpareServers 256
ServerLimit 256
MaxClients 256
MaxRequestsPerChild 1000000
</IfModule>
に変更。 携帯系は概ねいつもの倍ですね。
c-docomo系とc-others系は、まだゆとりあった模様。
c-au系は、ネットワークカードがvrでメモリが512Mしか入ってない
c-au3が数分間、苦しかったみたい。他の2台はそれなりに動作。
いずれの系もhttpdの数やPHPのチューニング具合は、
概ねうまく動いていた模様。
blackgoat3と4は、ともにネットワークが100M限界まで使われた。
特にnews系が入っている(?)方が、苦しめだったみたい。
blackgoatサーバそのものにはまだ余力があったので、
プライベート側ネットワークを100M→1Gにすれば、まだ耐えられると思います。
そのためには、スイッチに部品の増設(1個3万円ぐらいのを2つ)が必要。
総合的にみて携帯系は、設定変える必要ななさそう。 kouriがあるetc4にはアクセスが集中しましたが(etc4/game9で普段の倍)、サーバにはまだ余力があった模様。
ex7は山がそれなりに出てるけど、あんまり来なかったのでたいしたことなし。
game10も低いながら山あり。
hobby7も、こんなとこか。 banana238
headlineは普段の15倍ぐらい来ましたが、サーバはまだ大丈夫でした。
みんなして、bbynewsを見ていた模様。
stats/BBSは、バッファ溢れが起こった模様。
2005/01/18 21:55:00
686 dropped due to full socket buffers
↓
2005/01/18 22:05:00
935 dropped due to full socket buffers
これ以外は問題なさげ。 BBQのところのログとりがバグっていたので(計測プログラムがこんな大きい数を想定してなかった)、
直しました。
http://mumumu.mu/mrtg/mrtg-rrd.cgi/bbqbbx/bbq.html life7 memories は山ありなものの、問題なし。
live16 もこんなところか。 live8は、限界近くまで使われたように見えます。
httpd売り切れ状態で、22:00ごろに一瞬つながりにくくなった模様。
news19もhttpdが売り切れたけど、そこまで目いっぱいにはならなかった模様。
でも、かなり土俵際まで資源使われた感じ。
bbs.cgiのリミッターがうまく効いたか。
news18は蝗が大量襲来したけど、能力の範囲内でクリアした模様。 etc4(kouri) news18 news19 のread.cgi率の異常な高まりが、
蝗の襲来を如実に物語っているですね。
kouri移転しといて正解だったと(移転しといたのにschool4は仮死状態になったし)
http://mumumu.mu/mrtg/mrtg-rrd.cgi/read/
いじょ。 とりあえず、brief reportとしてはこんなかんじです。
・news19: 28Mbps(圧縮ありでは観測史上最大)
・live8: 22.7Mbps(read.cgiありでは観測史上最大級)
さっき「倍」って書いたけど、各種のグラフ見てると、
全体としては3倍に限りなく近かったみたい。 tiger503 = ex7
・FreeBSD 5.3R-p5 にバージョンアップ
・emのドライバをstableのものに(blackgoat3/4と同じ)
・speedy(bbs.cgi)を-M64から-M48に(どーん、の対策) そーいえば2245のカード問題は放置されたままでしょうかね Jimさんから返事が来ました。
インストール完了したとのこと。
dmesgをざっと見てみましたが、cardはちゃんと320-2のカードになっていて、
configurationも問題なくできている模様。
amr0: <LSILogic MegaRAID> mem 0xfe300000-0xfe30ffff irq 29 at device 1.0 on pci3
amr0: [GIANT-LOCKED]
amr0: <LSILogic MegaRAID SCSI 320-2> Firmware 1L19, BIOS 1.04, 64MB RAM
...
amrd0: <LSILogic MegaRAID logical drive> on amr0
amrd0: 34938MB (71553024 sectors) RAID 1 (optimal)
Mounting root from ufs:/dev/amrd0s1a ということで、
・cobra2245をBBQとdnscacheの2号機に仕立て上げる
・oyster243から機能を移す
・oyster243に同じRAIDカードを入れ、OSを入れ、セットアップする
・BBQ/dnscacheが2台体制に
・ｳﾏｰ
という手順で。 OSもちゃんと5.3R/amd64が入っていました。
Seanくんが作業した模様。 >>811
乙でした
で、dual channelにはなっていたんでしょうかね >>814
カードは確かに-2だけど、ひょっとしてかたっぽのchannelにディスクが2台つけてあるかも、
ということですね。
OSからわかるのかな?
camcontrolとかすればいいのかしら。 今日昼間のいいとも実況がらみでおちたっぽいex7ですが
>>808だったら落ちなかったんですかね
つかあの程度で落ちたのは事故? >>817
当時の状況を再現してみないと確証的なことはいえませんが、
多分耐えられたのではないかと。 >>817
syslogに残ってなかったすからね、、、。
カーネルデバッガとかで見れば、わかるのかも。でもそれをリモートでやるのはなかなかたいへん。 もう設定変わってしまいましたし
新設定で余力があるならいいかなと
ただ昼間なんでアクセスが携帯に寄ったせいで落ちたとか
そんな変な問題じゃなきゃいいなあと思いました はい。 >>822
いろいろやってみましたが、camcontrolでは出ないっぽいすね。
私のやり方がへぼいのかしら。
でもamrな構成だと、/devにpass0とかpass1がないしなぁ。
普通の構成(oyster243) ちゃんと出力
%camcontrol devlist -v
scbus0 on mpt0 bus 0:
<SEAGATE ST336753LW 0006> at scbus0 target 0 lun 0 (pass0,da0)
< > at scbus0 target -1 lun -1 ()
scbus1 on mpt1 bus 0:
<SEAGATE ST336753LW 0006> at scbus1 target 0 lun 0 (pass1,da1)
< > at scbus1 target -1 lun -1 ()
scbus-1 on xpt0 bus 0:
< > at scbus-1 target -1 lun -1 (xpt0)
%camcontrol periphlist 0:0
pass0: generation: 4 index: 1 status: MORE
da0: generation: 4 index: 2 status: LAST
%camcontrol periphlist 1:0
pass1: generation: 4 index: 1 status: MORE
da1: generation: 4 index: 2 status: LAST
RAID 1の構成(cobra2245) 出ない
%camcontrol devlist -v
scbus0 on amr0 bus 0:
scbus1 on amr0 bus 1:
scbus-1 on xpt0 bus 0:
< > at scbus-1 target -1 lun -1 (xpt0)
%camcontrol periphlist 0:0
camcontrol: cam_open_btl: no passthrough device found at 0:0:0
%camcontrol periphlist 1:0
camcontrol: cam_open_btl: no passthrough device found at 1:0:0 いずれにせよ構成には(概ね)問題ないと思われるので、
cobra2245の構築作業には影響ないかなと。 ですね。
jimさんがI had installed -2 card properlyといってくれるようならOKでしょう BBQ2(仮称)が先かな？
BBR(仮称)が先かな？
この週末は共に対応可能です♪
でもってBBRに関して。
送りつけるDNSクエリの中に、サブスクライバがあるのですが、これって大文字小文字の区別があるのかな？
あるとすると、DNS的には良くないような、、、
でもBBMではちゃんと動作しているんだっけ？ 浅薄な知識ですが、大文字は見たことありません。
数字_xxのハイフン以降は所属する鯖名だと思っておるので、
このような発言をいたします。
auには収容鯖という概念があるのですね。 >>826
BBMでは、DNSに入れるときに _ → - にして、
比較する側で _ → - にして比較しているはず。
ぼちぼち、やってみますか。
来週火曜からNYに出張なんで、それまでに土地とDNSのほうをば。 メモリディスクとやらについて。
普通に見ているのがメモリディスク上の物で、Z3の奴がHDD上に
保存されている、「実体」である、と言う理解でいいのかな。
板設定とかを変更しても、メモリディスク上だけの反映で、鯖を
再起動させる度に実体の古い方がメモリディスクに読み出されて、
その度に設定し直さなければならないのよね。
これはかなりどうにかしたい。
1、メモリ上とHDD上、両方の板設定を変更する（手動、又は変更CGIで対応）
2、メモリ上の各種設定ファイルを変更するとHDDにコピー（鯖で対応）
3、HDD上の板設定を変更するとメモリ上に反映（鯖で対応）
何か良い方法は無いかな。
関係するファイル
SETTING.TXT、head.txt、1000.txt
スレ立て規制用のファイルはどうだろう、
>>830
> Z3の奴がHDD上に保存されている、「実体」である、と言う理解でいいのかな。
ですね。
個人的には、このへんは(どうせ1つのspeedy_backendが1回しか読まないのだから)、
datのように通常ディスクの上に置けばいいんじゃないかなぁとか、
思ったりしています。
それには、メモリディスクを作るスクリプトを、変えればいいのかしら。 >>831
そうすると、
bbs.cgi
変更cgi x2
メモリ作るcgi の四個のcgiを改修する必要があるです >>832
お、bbs.cgiも変えないとだめですかね。
とすると >>830 のうち一番コスト少なそうなのは、どれかしら。 >>829
ふむふむ。_←→- ですね。
今RFCを読み直して確認もしてみたです。
ってことで、送りつけるDNSクエリは >>786 のフォーマットで進めてみるです。
あとちょと気になったのが、SpeedyCGIでのRockリストファイルの振る舞い。
キャッシュするのならば、
IPC::SharedCache ( http://search.cpan.org/~samtregar/IPC-SharedCache-1.3/SharedCache.pm )
が使えるかなぁって。
ファイルの更新チェックが出来るようなので、リストが更新されていたら読み直してくれそうな♪
>>833
古典的？に、10分ごとにcronしちゃうとかとか。 >>834
cronするぐらいなら、f22に組み込むすね。
でもf22大臣はいま大事な時を迎えているし。 ちなみに「アンダーバー」というのは日本独特の呼び方。
英語圏では"underscore"と呼ぶ。
野球の"hit by the pitch"を「デッドボール」というようなもんだね。 アンスコ↓
ttp://www.fuji-sports.com/shop/badminton/game_Tshirts/a75rs100-.jpg 俺的には、Low Lineの方がしっくり来る
ttp://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP932.TXT さて、ex7:
1)-M48→-M32
2)swap spaceを使うように設定
2)は具体的には、
#vm.defer_swapspace_pageouts=1
#vm.disable_swapspace_pageouts=1
を設定していたのをコメントアウト。
で、数時間経過。現在swap spaceはこんなかんじか。
Swap: 2048M Total, 276K Used, 2048M Free
ちょっぴり。でも使ってはいると。 >>833
一番簡単なのは
設定変更のcgiをごにょごにょするだけになんだが、、
待ちかと、 root★さんへ
BBR（もう仮称じゃないかな？（苦笑））ですが、bbrfilter.pl ができあがりました。
~/bbr/ に oklist（共通？）とともに置いてありますので、
BBRのセッティングの際に所定の位置へcpしていただけるとありがたいです。
（ln -s は、まずいですよね？（苦笑））
FOX★さんへ
bbs.cgiの現状のRock54に関する部分をメールで送って頂けるとありがたいです。
当方にて、BBR対応に書き換えたいと思います。
それではよろしくおながいいたしますm(_ _)m >>841
了解です。
機能追加なので、アカウント/バーチャルホストを一つbanana238に作ろうかと。
rock54.2ch.net <=> bbx.2ch.net に相当する、
??????.2ch.net <=> bbr.2ch.net の ?????? のよさげな名前を決めていただければ、
それで作ろうかなと。 >1. 新たにRock54キック用のサブドメインBBR（仮名）を設ける。
Kick(X9)〜という名前を勝手に考えてみたりするﾃｽﾂ。
"キ"にあたる数字が……_|￣|○ Kick81？
それだとBoo81とかぶるんだよなあ。 ここに貼っちゃおう
1) 本体からの呼び出し -> Rock54サブルーチン
&BBXcheck($GB);#Rock54 (広告爆撃を迎撃)
2) Rock54 サブルーチン
sub BBXcheck
{
my ($GB) = @_;
#以下の板はするー
if($GB->{FORM}->{'bbs'} eq "sec2chd"){return 0;}
if($GB->{FORM}->{'bbs'} eq "ad"){return 0;}
#★はスルー
if($GB->{FORM}->{'FROM'} =~ /★$/){return 0;}
#●はスルー
#if($GB->{MARU}){return 0;}
#広告かな?
my $NG_word = &IsKoukoku($GB);
if($NG_word eq ''){return 0;}
# それぞれの値を取り出したいときは、以下のようにデリファレンスすれば・・・
my @NG_word_status = @{$NG_word};
# このようにそれぞれに値が代入されます。
# $NG_word_status[0] には規制文字列 [Shift_JIS]
# $NG_word_status[1] には MD5 値
# $NG_word_status[2] には フラグ
# このときに・・・
if ($NG_word_status[2] == 1) # フラグが 1 のときは「いっぱつフラグ」なのでその時の処理。
{
&DispError2($GB,"ＥＲＲＯＲ！","さくらが咲いてますよ。");
}
my $HHH = $ENV{REMOTE_ADDR};
$HHH =~ s/(\d+)\.(\d+)\.(\d+)\.(\d+)/$4.$3.$2.$1/;
my $AHOST = "$HHH.bbx.2ch.net.";
#my $SPAM = gethostbyname($AHOST);
if(!$FOX->{BBX}){return 0;}
my $SPAM = &foxDNSquery2($AHOST);
if($SPAM eq "127.0.0.2")
{
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($GB->{NOWTIME});
$mon ++;
my $ehehehe = "内緒";
open(YAN1,">>ehehehe");print YAN1 "$GB->{DATE}\t$ENV{REMOTE_ADDR}\t$GB->{HOST4}\t$GB->{IDNOTANE}\t$NG_word_status[0]\n";close(YAN1);
endhtml($GB);#&DispError2($GB,"ＥＲＲＯＲ！","ＥＲＲＯＲ：ロックは人生だ。");
}
if($SPAM eq "127.0.0.0")
{
$FOX->{BBX} = 0;
}
return 0;
} IsKoukoku 回りまで必要な場合は教えてくださいー >>847
846 に追記するだけで逝けそうですーm(_ _)m深謝
あと、鯖名と、スレッド番号を得たいのですけれども、ハシュキーは何になるのでしょうか？
$GB->{FORM}->{'bbs'} は、板名（ディレクトリ名）ですねー♪
スレッド番号は $GB->{FORM}->{'thread'} かなー？
鯖名は $GB->{FORM}->{'host'} かなー？ スレッド番号は $GB->{FORM}->{'key'} にしてくださいー
鯖名は $ENV{'SERVER_NAME'} をそのまま使っています
>>850
ありがとうございますですー
ではさっそくｺﾞﾆｮｺﾞﾆｮ ＠お酒はおあずけ >>842
> rock54.2ch.net <=> bbx.2ch.net に相当する、
> ??????.2ch.net <=> bbr.2ch.net の ?????? のよさげな名前を決めていただければ、
> それで作ろうかなと。
えー、rock54とbbxとbbrは三角関係なので、アカウントはそのまま（Rock54だけ）でも大丈夫ですー >>852
なるほど。rock54の権限でbbrも操作できるようにすればいいのかな。
では、bbrの器をつくります。
これから外出なので、しばらくあとで。 # このようにそれぞれに値が代入されます。
# $NG_word_status[0] には規制文字列 [Shift_JIS]
# $NG_word_status[1] には MD5 値
# $NG_word_status[2] には フラグ
# BBR へ送信（NGワード追跡装置？） @2005/01/22 by 未承諾広告※
# MD5-該当ワードに付けられたmd5値.さくらフラグ.投稿者のIPアドレス.サブスクライバ.スレッド番号.板名.鯖名.bbr.2ch.net.
# 返り値はいらないけれどもTimeOut処理が要りそうだからNet::DNSを使った方がよいかな？
gethostbyname(
sprintf qq|MD5-%s.%d.%s.%s.%d.%s.%s.bbr.2ch.net.|,
$NG_word_status[1], # MD5値
$NG_word_status[2] ? 1 : 0, # さくらフラグ。空っぽだとイヤンなので
$ENV{REMOTE_ADDR}, # IPアドレス（ひっくり返さなくてもいぃことにしよう♪）
$GB->{IDNOTANE} !~ /\./ ? $GB->{IDNOTANE} : '0', # サブスクライバじゃないみたいときには '0' にしておく。
$GB->{FORM}->{'key'}, # スレッド番号
$GB->{FORM}->{'bbs'}, # 板名（ディレクトリ名）
$ENV{SERVER_NAME}, # 鯖名(FQDN)
);
# このときに・・・
if ($NG_word_status[2] == 1) # フラグが 1 のときは「いっぱつフラグ」なのでその時の処理。
{
&DispError2($GB,"ＥＲＲＯＲ！","さくらが咲いてますよ。");
} こんな感じでおながいしますー（さくらﾀﾝも採取したいのでので）
>>853
bbr さんは、Rock54さんに目がけてやってきたクエリを、ファイルを経由して渡すだけなのですー > >>853
> bbr さんは、Rock54さんに目がけてやってきたクエリを、ファイルを経由して渡すだけなのですー
bbr さんは、Rock54さんへ、やってきたクエリを、ファイルを経由して渡すだけなのですー
訂正しますm(_ _)m > 189 名前：ひろゆき＠どうやら管理人 ★ [] 投稿日：05/01/22(土) 18:58:53 ID:d/yZXs4H ?##
> http://live14.2ch.net/argue/をqa.2ch.netに移転したかったりするのですが、
> 最近は、誰に頼めばいいんでしょうか？
質問・雑談スレ96＠運用情報板
http://qb5.2ch.net/test/read.cgi/operate/1106316059/189 現状 @qb6,ex7
#広告かな?
my $NG_word = &IsKoukoku($GB);
if($NG_word eq ''){return 0;}
# それぞれの値を取り出したいときは、以下のようにデリファレンスすれば・・・
my @NG_word_status = @{$NG_word};
# このようにそれぞれに値が代入されます。
# $NG_word_status[0] には規制文字列 [Shift_JIS]
# $NG_word_status[1] には MD5 値
# $NG_word_status[2] には フラグ
# BBR へ送信（NGワード追跡装置？） @2005/01/22 by 未承諾広告※
# MD5-該当ワードに付けられたmd5値.さくらフラグ.投稿者のIPアドレス.サブスクライバ.スレッド番号.板名.鯖名.bbr.2ch.net.
# 返り値はいらないけれどもTimeOut処理が要りそうだからNet::DNSを使った方がよいかな？
my $AHOST = sprintf(qq|MD5-%s.%d.%s.%s.%d.%s.%s.bbr.2ch.net.|,
$NG_word_status[1], # MD5値
$NG_word_status[2] ? 1 : 0, # さくらフラグ。空っぽだとイヤンなので
$ENV{REMOTE_ADDR}, # IPアドレス（ひっくり返さなくてもいぃことにしよう♪）
$GB->{IDNOTANE} !~ /\./ ? $GB->{IDNOTANE} : '0', # サブスクライバじゃないみたいときには '0' にしておく。
$GB->{FORM}->{'key'}, # スレッド番号
$GB->{FORM}->{'bbs'}, # 板名（ディレクトリ名）
$ENV{SERVER_NAME} # 鯖名(FQDN)
);
# このときに・・・
if ($NG_word_status[2] == 1) # フラグが 1 のときは「いっぱつフラグ」なのでその時の処理。
{
&DispError2($GB,"ＥＲＲＯＲ！","さくらが咲いてますよ。");
}
if(!$FOX->{BBX}){return 0;}
my $SPAM = &foxDNSquery2($AHOST);
if($SPAM eq "127.0.0.2")
{
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($GB->{NOWTIME});
$mon ++;
endhtml($GB);#&DispError2($GB,"ＥＲＲＯＲ！","ＥＲＲＯＲ：ロックは人生だ。");
}
if($SPAM eq "127.0.0.0")
{
$FOX->{BBX} = 0;
}
return 0;
>>862
えぇーっと、BBXとBBRは別物なので、別々に呼び出して欲しいですーm(_ _)m
でもって、
&foxDNSquery2(DNSクエリ);
っていうのが、新しいDNS問い合わせ屋さんなのでしょうか？
でしたら・・・
# BBR へ送信（NGワード追跡装置？） @2005/01/22 by 未承諾広告※
# MD5-該当ワードに付けられたmd5値.さくらフラグ.投稿者のIPアドレス.サブスクライバ.スレッド番号.板名.鯖名.bbr.2ch.net.
# 返り値はいらないけれどもTimeOut処理が要りそうだからNet::DNSを使った方がよいかな？
&foxDNSquery2(
sprintf qq|MD5-%s.%d.%s.%s.%d.%s.%s.bbr.2ch.net.|,
$NG_word_status[1], # MD5値
$NG_word_status[2] ? 1 : 0, # さくらフラグ。空っぽだとイヤンなので
$ENV{REMOTE_ADDR}, # IPアドレス（ひっくり返さなくてもいぃことにしよう♪）
$GB->{IDNOTANE} !~ /\./ ? $GB->{IDNOTANE} : '0', # サブスクライバじゃないみたいときには '0' にしておく。
$GB->{FORM}->{'key'}, # スレッド番号
$GB->{FORM}->{'bbs'}, # 板名（ディレクトリ名）
$ENV{SERVER_NAME}, # 鯖名(FQDN)
);
と、差し替えて頂ければm(_ _)m あ、
846 をそっくりそのまま書き換えた方が良さそうですよね。
ではちょとゴソゴソ。。。 答えいらない系は foxDNSquery なんでそっちにします my $NG_word = &IsKoukoku($GB);
if($NG_word eq ''){return 0;}
# それぞれの値を取り出したいときは、以下のようにデリファレンスすれば・・・
my @NG_word_status = @{$NG_word};
# このようにそれぞれに値が代入されます。
# $NG_word_status[0] には規制文字列 [Shift_JIS]
# $NG_word_status[1] には MD5 値
# $NG_word_status[2] には フラグ
# BBR へ送信（NGワード追跡装置？） @2005/01/22 by 未承諾広告※
# MD5-該当ワードに付けられたmd5値.さくらフラグ.投稿者のIPアドレス.サブスクライバ.スレッド番号.板名.鯖名.bbr.2ch.net.
# 返り値はいらないけれどもTimeOut処理が要りそうだからNet::DNSを使った方がよいかな？
&foxDNSquery(
sprintf qq|MD5-%s.%d.%s.%s.%d.%s.%s.bbr.2ch.net.|,
$NG_word_status[1], # MD5値
$NG_word_status[2] ? 1 : 0, # さくらフラグ。空っぽだとイヤンなので
$ENV{REMOTE_ADDR}, # IPアドレス（ひっくり返さなくてもいぃことにしよう♪）
$GB->{IDNOTANE} !~ /\./ ? $GB->{IDNOTANE} : '0', # サブスクライバじゃないみたいときには '0' にしておく。
$GB->{FORM}->{'key'}, # スレッド番号
$GB->{FORM}->{'bbs'}, # 板名（ディレクトリ名）
$ENV{SERVER_NAME}, # 鯖名(FQDN)
);
# このときに・・・
if ($NG_word_status[2] == 1) # フラグが 1 のときは「いっぱつフラグ」なのでその時の処理。
{
&DispError2($GB,"ＥＲＲＯＲ！","さくらが咲いてますよ。");
}
my $HHH = $ENV{REMOTE_ADDR};
$HHH =~ s/(\d+)\.(\d+)\.(\d+)\.(\d+)/$4.$3.$2.$1/;
my $AHOST = "$HHH.bbx.2ch.net.";
if(!$FOX->{BBX}){return 0;}
my $SPAM = &foxDNSquery2($AHOST);
if($SPAM eq "127.0.0.2")
{
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($GB->{NOWTIME});
$mon ++;
endhtml($GB);#&DispError2($GB,"ＥＲＲＯＲ！","ＥＲＲＯＲ：ロックは人生だ。");
}
if($SPAM eq "127.0.0.0")
{
$FOX->{BBX} = 0;
}
return 0; こんな感じになるかとー
2) Rock54 サブルーチン
sub BBXcheck
{
my ($GB) = @_;
#以下の板はするー
if($GB->{FORM}->{'bbs'} eq "sec2chd"){return 0;}
if($GB->{FORM}->{'bbs'} eq "ad"){return 0;}
#★はスルー
if($GB->{FORM}->{'FROM'} =~ /★$/){return 0;}
#●はスルー
#if($GB->{MARU}){return 0;}
#広告かな?
my $NG_word = &IsKoukoku($GB);
if($NG_word eq ''){return 0;}
# それぞれの値を取り出したいときは、以下のようにデリファレンスすれば・・・
my @NG_word_status = @{$NG_word};
# このようにそれぞれに値が代入されます。
# $NG_word_status[0] には規制文字列 [Shift_JIS]
# $NG_word_status[1] には MD5 値
# $NG_word_status[2] には フラグ
※つづく（改行大杉（滂沱）） >>867
あ、（汗）
それで桶だと思うですー
あとはroot★さんのおかえりを待つだけですー >>871
おつですーm(_ _)m
BBRが動き出しましたら、
if(!$FOX->{BBX}){return 0;}
my $SPAM = &foxDNSquery2($AHOST);
を一旦、
if(!$FOX->{BBX}){return 0;}
my $SPAM = '127.0.0.0';
にして、
qb6だけに配布をおながいしますーm(_ _)m
（実験中の規制入りは心許ないかと思いまして（苦笑））
そこである程度だめ出しが出来たら、
変更部分を元に戻して全鯖へ配布がよいかと♪ bbr.2ch.net な DNS サーバは、 206.223.147.41 で立ち上げる予定です。
「答え要らない系」なので、このIPアドレスを指定した上で query 出すようにしてください。
2ch側のDNSサーバの設定変更が必要ですが、
DNS設定変更の前にbbs.cgiを変更できます。
(直接queryを投げているので)
query出す準備ができたら、ここでお知らせします。 if(!$FOX->{BBX}){return 0;}
#my $SPAM = &foxDNSquery2($AHOST);
my $SPAM = '127.0.0.0';
にしました @qb6 >>873
実は全鯖に配布済みの悪寒です（汗）＠bbs.cgi >>876
あわわ、これは失礼しましたm(_ _)m BBRのところは配布したんじゃないの
BBXを聞かなくしたのはqb6のみ >>874 は qb6 のみ
他のサーバのは先祖がえりの予感、、
どっかと作業かぶった? banana238側の設定中、、、。
これって、rock54のオーナーで動かないとだめなのかな。
ファイル作ってるみたいなんで。 パーミッション的には、そうでなくても大丈夫なのかな。
ちょっと確認してみるです。 >>881
Rock54側で消せるように、chmod 0666に設定してあるですー ■ このスレッドは過去ログ倉庫に格納されています
