【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part16
レス数が900を超えています。1000を超えると表示できなくなるよ。
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/ >>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に設定してあるですー ということで、>>867 の bbr のところの &foxDNSquery の第2引数は、
"206.223.147.41"を指定してくださいです。
bbxのところは従来どおりでいいはず。(変更してないので) >>882
了解です。
であれば、準備完了のはず。 再確認ですが、bbr.2ch.net にはどういうフォーマットでquery飛ぶんだっけか。 &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)
"206.223.147.41"
);
どうやって書いたらいいのかな?
これじゃ まずそうだし、 で、こいつ(BBR)にも同じ「止まっています」チェックを入れる必要があるのかなと。 >>886
ううむ、sprintfが中に入ってるですか。
$FOX->{BBR} と ${CHOST} を作って、
${CHOST} に sprintf の中身でやってることをいれて、
BBSやBBYと同じようにするのが、よいと思います。 ようは、「広告投稿」をトリガにした、BBYみたいなのがもう一つ増えるだけなんで、
プログラム側もそのように組むのが、よろしいかと。 &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)
),
"206.223.147.41"
);
ですー♪
第2引数があるのですね（汗） >>891
えっと、他のと合わせたほうがよいので、
${CHOST} ってのを my して、そこにその第一引数を代入して、
呼ぶようにするサンプルをつくってあげてくださいです。
こんなかんじで。
my $CHOST = (ここにsprintfなんちゃら);
if($FOX->{BBR}) {$FOX->{BBR} = &foxDNSquery($CHOST,"206.223.147.41") ; はいー♪
my $CHOST =
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($FOX->{BBR}) { $FOX->{BBR} = &foxDNSquery($CHOST, "206.223.147.41") } >>896
どもです。これでよいはず。
こんなかんじのがDNSにとぶですか。
MD5-2029c3d6fe6b6924113b938852f77bf5.1.1.2.3.4.05001234567890-mb.1102087698.operate.qb5.2ch.net.bbr.2ch.net >>897
しむら、キーがとなりとなりー。
あとは、動作確認かしら。 dnsq コマンドで ex7 から手で DNS query してみた。
DNS(器)側は問題ないみたい。
%dnsq a MD5-2029c3d6fe6b6924113b938852f77bf5.1.1.2.3.4.05001234567890-mb.1102087698.operate.qb5.2ch.net.bbr.2ch.net 206.223.147.411 md5-2029c3d6fe6b6924113b938852f77bf5.1.1.2.3.4.05001234567890-mb.1102087698.operate.qb5.2ch.net.bbr.2ch.net:
170 bytes, 1+0+1+0 records, response, authoritative, nxdomain
query: 1 md5-2029c3d6fe6b6924113b938852f77bf5.1.1.2.3.4.05001234567890-mb.1102087698.operate.qb5.2ch.net.bbr.2ch.net
authority: bbr.2ch.net 2560 SOA a.ns.bbr.2ch.net 2ch.2ch.net 1106406759 16384 2048 1048576 0 >>898
そですー
でもって、
data
には、
+*.bbr.2ch.net:127.0.0.2:
の1行だけで桶かと。 >>902
お、データ見てるですか。
いれときます。 >>902 入れました。
「直接投げ」なのでキャッシュ効かないから、TTLはみないはず。
今はデフォルト(86400)。 >>901
う、小文字になっちゃうでぃすかー（汗）
ちょとｺﾞﾆｮｺﾞﾆｮしますm(_ _)m >>905
DNSに届くところまでは文字種は保存されている、はずですが、
安全を見るなら、大文字で来ても小文字で来ても大丈夫なように、
組んでおくとよいです。 bbrfilter.pl を書き換えたので、~/bbr/ から cp をおながいしますm(_ _)m ちとしくっていたので、>>907 やりなおし & done. >>906
承知しましたー
あと、tai64形式のタイムスタンプも先頭にくっついているのでしょうか？ >>910
multilogする前にくべてるから、
BBX同様、それはないはず。 う、bbrfilter.pl が機能していないいよかん、、、
ちょと調査してみるですm(_ _)m >>912
ん、query まだ来てないみたいですけど。 DNSの器のほうはOK(ブロックしないはず)なので、>>912 の調整ができれば、
入れてOKなんではないかしら。
広告投入しようとすると、BBXに加えてBBRも追加で呼ぶようになる、ってことすよね。ようは。 MD5が同じのやつは、同じ広告を投入しようとしてはじかれた、ってことなのかな。 あ、溜まってきたいよかん♪
でも何でだろう、、、（汗）
とりあえず、BBR_gatherさんを動かします。 そういえば、妙なバッファリングが起こったので、
bbxgatherの時は私が微妙にいじった記憶があるです。
今見ると、bbxgatherにはこんなコメントが。
# selectはwhileの前でやらないとうまく出力されない模様なので、
# 以下の行を前に持ってきた。
# ０．
# multilog へパイプをパイプパイプパイプ
# 本稼働の時にコメントアウトしてみりる。
# pipe to multilog
my $oldfh = select MULTILOG;
$| = 1;
select $oldfh; 今の時間でこのぐらいの問い合わせ数なら、システムの負荷的には問題ないですね。
誤差の範囲かと。 で、bbr.2ch.netの2ch.netのDNSサーバへの登録は、このスレで別途依頼します。
Net::DNSを使って直接queryする方法を導入したので親ドメインへのDNS登録は
必ずしも必要ではなくなりましたが、
運用上の覚え書きとして、登録をしておきたいなと。 えっと、DNSに _ のままで query が飛んできてるみたいです。
0700（ふせふせ)_me っていうのを今見ました。 BBMのほうは _ => - に変換してから DNS 呼んでいるので、
こっちも、そのようにしたほうがよいのではないかと。 う、、、（汗）
my $SubNo = $GB->{IDNOTANE}; # _ → - 変換しなきゃかもなので。
$SUBNO =~ tr/_/-/;
my $CHOST =
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アドレス（ひっくり返さなくてもいぃことにしよう♪）
$SubNo !~ /\./ ? $SubNo : '0', # サブスクライバじゃないみたいときには '0' にしておく。
$GB->{FORM}->{'key'}, # スレッド番号
$GB->{FORM}->{'bbs'}, # 板名（ディレクトリ名）
$ENV{SERVER_NAME}, # 鯖名(FQDN)
;
if($FOX->{BBR}) { $FOX->{BBR} = &foxDNSquery($CHOST, "206.223.147.41") }
これで桶かな？ >>928
$SUBNO =~ tr/_/-/; ×
$SubNo =~ tr/_/-/; ○
でしたm(_ _)m
危うくSambaされるところだった（苦笑） BBMのところは、こうやってるみたい。
$idnotane =~ s/\_/\-/g; >>930
んーエスケープする必要がないのと、trの方が高効率って事で（苦笑） レス数が900を超えています。1000を超えると表示できなくなるよ。
