【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part16

**root▲ ★** · 04/12/04 00:28:18

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/

**root▲ ★** · 05/01/21 22:51:31

>>832
お、bbs.cgiも変えないとだめですかね。

とすると >>830 のうち一番コスト少なそうなのは、どれかしら。

**未承諾広告※** ◆TWARamEjuA · 05/01/21 23:09:24

>>829
ふむふむ。_←→- ですね。
今RFCを読み直して確認もしてみたです。

ってことで、送りつけるDNSクエリは >>786 のフォーマットで進めてみるです。

あとちょと気になったのが、SpeedyCGIでのRockリストファイルの振る舞い。
キャッシュするのならば、
IPC::SharedCache ( http://search.cpan.org/~samtregar/IPC-SharedCache-1.3/SharedCache.pm )
が使えるかなぁって。
ファイルの更新チェックが出来るようなので、リストが更新されていたら読み直してくれそうな♪

>>833
古典的？に、10分ごとにcronしちゃうとかとか。

**root▲ ★** · 05/01/21 23:13:10

>>834
cronするぐらいなら、f22に組み込むすね。
でもf22大臣はいま大事な時を迎えているし。

**動け動けウゴウゴ２ちゃんねる** · 05/01/21 23:23:11

ちなみに「アンダーバー」というのは日本独特の呼び方。
英語圏では"underscore"と呼ぶ。

野球の"hit by the pitch"を「デッドボール」というようなもんだね。

**動け動けウゴウゴ２ちゃんねる** · 05/01/22 01:26:08

アンスコ↓
ttp://www.fuji-sports.com/shop/badminton/game_Tshirts/a75rs100-.jpg

**動け動けウゴウゴ２ちゃんねる** · 05/01/22 01:32:59

俺的には、Low Lineの方がしっくり来る
ttp://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP932.TXT

**root▲ ★** · 05/01/22 01:33:42

さて、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

ちょっぴり。でも使ってはいると。

**FOX ★** · 05/01/22 05:32:09

>>833
一番簡単なのは
設定変更のcgiをごにょごにょするだけになんだが、、
待ちかと、

**未承諾広告※** ◆TWARamEjuA · 05/01/22 16:07:17

root★さんへ
BBR（もう仮称じゃないかな？（苦笑））ですが、bbrfilter.pl ができあがりました。
~/bbr/ に oklist（共通？）とともに置いてありますので、
BBRのセッティングの際に所定の位置へcpしていただけるとありがたいです。
（ln -s は、まずいですよね？（苦笑））

FOX★さんへ
bbs.cgiの現状のRock54に関する部分をメールで送って頂けるとありがたいです。
当方にて、BBR対応に書き換えたいと思います。

それではよろしくおながいいたしますm(_ _)m

**root▲ ★** · 05/01/22 16:11:14

>>841
了解です。

機能追加なので、アカウント/バーチャルホストを一つbanana238に作ろうかと。

rock54.2ch.net <=> bbx.2ch.net に相当する、
??????.2ch.net <=> bbr.2ch.net の ?????? のよさげな名前を決めていただければ、
それで作ろうかなと。

**動け動けウゴウゴ２ちゃんねる** · 05/01/22 16:26:22

>1. 新たにRock54キック用のサブドメインBBR（仮名）を設ける。

Kick(X9)～という名前を勝手に考えてみたりするﾃｽﾂ。
"キ"にあたる数字が……_|￣|○

◆tuboBGQODY · 05/01/22 17:50:50

Kick81？

それだとBoo81とかぶるんだよなあ。

**FOX ★** · 05/01/22 17:56:40

ここに貼っちゃおう

1) 本体からの呼び出し -> Rock54サブルーチン

&BBXcheck($GB);#Rock54 (広告爆撃を迎撃)

**FOX ★** · 05/01/22 18:00:51

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;
}

**FOX ★** · 05/01/22 18:03:44

IsKoukoku　回りまで必要な場合は教えてくださいー

**未承諾広告※** ◆TWARamEjuA · 05/01/22 18:19:04

>>847
846 に追記するだけで逝けそうですーm(_ _)m深謝

あと、鯖名と、スレッド番号を得たいのですけれども、ハシュキーは何になるのでしょうか？
$GB->{FORM}->{'bbs'} は、板名（ディレクトリ名）ですねー♪
スレッド番号は $GB->{FORM}->{'thread'} かなー？
鯖名は $GB->{FORM}->{'host'} かなー？

**FOX ★** · 05/01/22 18:19:33

one moment

**FOX ★** · 05/01/22 18:25:19

スレッド番号は $GB->{FORM}->{'key'}　にしてくださいー
鯖名は $ENV{'SERVER_NAME'} をそのまま使っています

**未承諾広告※** ◆TWARamEjuA · 05/01/22 18:31:16

>>850
ありがとうございますですー
ではさっそくｺﾞﾆｮｺﾞﾆｮ＠お酒はおあずけ

**未承諾広告※** ◆TWARamEjuA · 05/01/22 19:02:50

>>842
> rock54.2ch.net <=> bbx.2ch.net に相当する、
> ??????.2ch.net <=> bbr.2ch.net の ?????? のよさげな名前を決めていただければ、
> それで作ろうかなと。
えー、rock54とbbxとbbrは三角関係なので、アカウントはそのまま（Rock54だけ）でも大丈夫ですー

**root▲ ★** · 05/01/22 19:04:55

>>852
なるほど。rock54の権限でbbrも操作できるようにすればいいのかな。

では、bbrの器をつくります。
これから外出なので、しばらくあとで。

**未承諾広告※** ◆TWARamEjuA · 05/01/22 19:05:12

# このようにそれぞれに値が代入されます。
# $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,"ＥＲＲＯＲ！","さくらが咲いてますよ。");
}

**未承諾広告※** ◆TWARamEjuA · 05/01/22 19:15:26

こんな感じでおながいしますー（さくらﾀﾝも採取したいのでので）

>>853
bbr さんは、Rock54さんに目がけてやってきたクエリを、ファイルを経由して渡すだけなのですー

**未承諾広告※** ◆TWARamEjuA · 05/01/22 19:20:46

> >>853
> bbr さんは、Rock54さんに目がけてやってきたクエリを、ファイルを経由して渡すだけなのですー
bbr さんは、Rock54さんへ、やってきたクエリを、ファイルを経由して渡すだけなのですー

訂正しますm(_ _)m

**FOX ★** · 05/01/22 20:00:47

まずは　入れてみます　@qb6

**動け動けウゴウゴ２ちゃんねる** · 05/01/22 20:10:30

> 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

**FOX ★** · 05/01/22 20:13:05

いれてみましたー　@qb6

テスト　するするー

**動け動けウゴウゴ２ちゃんねる** · 05/01/22 20:31:26

◯qa
×qb6
激しく誤爆されそう。

**FOX ★** · 05/01/22 20:38:34

ex7 にも入れてみましたー

**FOX ★** · 05/01/22 20:49:26

現状 @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;

**未承諾やや酩酊※** ◆TWARamEjuA · 05/01/22 21:12:00

>>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

**FOX ★** · 05/01/22 21:13:24

ぁぁ

なるほど、、、
改修してきます

**未承諾やや酩酊※** ◆TWARamEjuA · 05/01/22 21:14:28

あ、
846 をそっくりそのまま書き換えた方が良さそうですよね。
ではちょとゴソゴソ。。。

**FOX ★** · 05/01/22 21:17:38

答えいらない系は foxDNSquery なんでそっちにします

**FOX ★** · 05/01/22 21:19:59

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;

**未承諾やや酩酊※** ◆TWARamEjuA · 05/01/22 21:21:10

こんな感じになるかとー

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] にはフラグ

※つづく（改行大杉（滂沱））

**FOX ★** · 05/01/22 21:22:54

全サーバ　入れなおした

**未承諾やや酩酊※** ◆TWARamEjuA · 05/01/22 21:23:55

>>867
あ、（汗）
それで桶だと思うですー

あとはroot★さんのおかえりを待つだけですー

**root▲ ★** · 05/01/22 23:43:25

戻りました。これから作業入ります。

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 00:05:06

>>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
（実験中の規制入りは心許ないかと思いまして（苦笑））

そこである程度だめ出しが出来たら、
変更部分を元に戻して全鯖へ配布がよいかと♪

**root▲ ★** · 05/01/23 00:05:59

bbr.2ch.net な DNS サーバは、 206.223.147.41 で立ち上げる予定です。
「答え要らない系」なので、このIPアドレスを指定した上で query 出すようにしてください。

2ch側のDNSサーバの設定変更が必要ですが、
DNS設定変更の前にbbs.cgiを変更できます。
(直接queryを投げているので)

query出す準備ができたら、ここでお知らせします。

**FOX ★** · 05/01/23 00:19:08

if(!$FOX->{BBX}){return 0;}
#my $SPAM = &foxDNSquery2($AHOST);
my $SPAM = '127.0.0.0';

にしました @qb6

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 00:21:34

>>873
実は全鯖に配布済みの悪寒です（汗）＠bbs.cgi

**FOX ★** · 05/01/23 00:25:30

配布してないけど?

見てきます、

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 00:27:11

>>876
あわわ、これは失礼しましたm(_ _)m

**動け動けウゴウゴ２ちゃんねる** · 05/01/23 00:29:32

BBRのところは配布したんじゃないの

BBXを聞かなくしたのはqb6のみ

**FOX ★** · 05/01/23 00:31:53

>>874　は qb6 のみ

他のサーバのは先祖がえりの予感、、
どっかと作業かぶった?

**root▲ ★** · 05/01/23 00:35:18

banana238側の設定中、、、。

これって、rock54のオーナーで動かないとだめなのかな。
ファイル作ってるみたいなんで。

**root▲ ★** · 05/01/23 00:39:01

パーミッション的には、そうでなくても大丈夫なのかな。
ちょっと確認してみるです。

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 00:39:44

>>881
Rock54側で消せるように、chmod 0666に設定してあるですー

**root▲ ★** · 05/01/23 00:46:01

ということで、>>867 の bbr のところの &foxDNSquery の第2引数は、
"206.223.147.41"を指定してくださいです。

bbxのところは従来どおりでいいはず。(変更してないので)

**root▲ ★** · 05/01/23 00:46:19

>>882
了解です。
であれば、準備完了のはず。

**root▲ ★** · 05/01/23 00:46:48

再確認ですが、bbr.2ch.net にはどういうフォーマットでquery飛ぶんだっけか。

**FOX ★** · 05/01/23 00:49:34

&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"
);

どうやって書いたらいいのかな?
これじゃ　まずそうだし、

**root▲ ★** · 05/01/23 00:49:38

で、こいつ(BBR)にも同じ「止まっています」チェックを入れる必要があるのかなと。

**FOX ★** · 05/01/23 00:50:26

>>887
それは　ぼちぼち

**root▲ ★** · 05/01/23 00:53:59

>>886
ううむ、sprintfが中に入ってるですか。

$FOX->{BBR} と ${CHOST} を作って、
${CHOST} に sprintf の中身でやってることをいれて、
BBSやBBYと同じようにするのが、よいと思います。

**root▲ ★** · 05/01/23 00:55:02

ようは、「広告投稿」をトリガにした、BBYみたいなのがもう一つ増えるだけなんで、
プログラム側もそのように組むのが、よろしいかと。

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 00:57:37

&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引数があるのですね（汗）

**FOX ★** · 05/01/23 00:58:21

りょうかいー >>891

**FOX ★** · 05/01/23 00:59:43

>>891 やりました　@qb6

**root▲ ★** · 05/01/23 01:00:55

>>891
えっと、他のと合わせたほうがよいので、

${CHOST} ってのを my して、そこにその第一引数を代入して、
呼ぶようにするサンプルをつくってあげてくださいです。

こんなかんじで。

my $CHOST = (ここにsprintfなんちゃら);

if($FOX->{BBR}) {$FOX->{BBR} = &foxDNSquery($CHOST,"206.223.147.41") ;

**root▲ ★** · 05/01/23 01:02:59

お、 } を閉じてないすね。上のやつ。

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 01:07:36

はいー♪

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") }

**FOX ★** · 05/01/23 01:10:36

みみまで　対応した @qb6

**root▲ ★** · 05/01/23 01:11:46

>>896
どもです。これでよいはず。

こんなかんじのがDNSにとぶですか。

MD5-2029c3d6fe6b6924113b938852f77bf5.1.1.2.3.4.05001234567890-mb.1102087698.operate.qb5.2ch.net.bbr.2ch.net

**root▲ ★** · 05/01/23 01:12:40

>>897
しむら、キーがとなりとなりー。

あとは、動作確認かしら。

**FOX ★** · 05/01/23 01:13:43

はげしく　ﾜﾗﾀ

**root▲ ★** · 05/01/23 01:15:28

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

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 01:15:39

>>898
そですー
でもって、
data
には、
+*.bbr.2ch.net:127.0.0.2:
の1行だけで桶かと。

**root▲ ★** · 05/01/23 01:16:42

>>902
お、データ見てるですか。

いれときます。

**root▲ ★** · 05/01/23 01:18:29

>>902 入れました。

「直接投げ」なのでキャッシュ効かないから、TTLはみないはず。
今はデフォルト(86400)。

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 01:19:16

>>901
う、小文字になっちゃうでぃすかー（汗）
ちょとｺﾞﾆｮｺﾞﾆｮしますm(_ _)m

**root▲ ★** · 05/01/23 01:22:52

>>905
DNSに届くところまでは文字種は保存されている、はずですが、
安全を見るなら、大文字で来ても小文字で来ても大丈夫なように、
組んでおくとよいです。

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 01:23:12

bbrfilter.pl を書き換えたので、~/bbr/ から cp をおながいしますm(_ _)m

**root▲ ★** · 05/01/23 01:24:03

>>907
done.

**root▲ ★** · 05/01/23 01:25:57

ちとしくっていたので、>>907 やりなおし & done.

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 01:27:05

>>906
承知しましたー
あと、tai64形式のタイムスタンプも先頭にくっついているのでしょうか？

**root▲ ★** · 05/01/23 01:28:52

>>910
multilogする前にくべてるから、
BBX同様、それはないはず。

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 01:40:21

う、bbrfilter.pl が機能していないいよかん、、、
ちょと調査してみるですm(_ _)m

**root▲ ★** · 05/01/23 01:42:58

>>912
ん、query まだ来てないみたいですけど。

**FOX ★** · 05/01/23 01:43:48

どっかにいれますか?

**root▲ ★** · 05/01/23 01:46:27

DNSの器のほうはOK(ブロックしないはず)なので、>>912 の調整ができれば、
入れてOKなんではないかしら。

広告投入しようとすると、BBXに加えてBBRも追加で呼ぶようになる、ってことすよね。ようは。

**FOX ★** · 05/01/23 01:47:59

>>874 の状態を全サーバに投入。

**root▲ ★** · 05/01/23 01:51:31

bbr への query きはじめました。

**root▲ ★** · 05/01/23 01:55:18

MD5が同じのやつは、同じ広告を投入しようとしてはじかれた、ってことなのかな。

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 01:56:19

あ、溜まってきたいよかん♪
でも何でだろう、、、（汗）

とりあえず、BBR_gatherさんを動かします。

**root▲ ★** · 05/01/23 01:56:41

>>919
$| 問題 ?

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 02:01:28

うぅむ、もちょと様子を見てみるです。。。

**root▲ ★** · 05/01/23 02:07:50

そういえば、妙なバッファリングが起こったので、
bbxgatherの時は私が微妙にいじった記憶があるです。

今見ると、bbxgatherにはこんなコメントが。

# selectはwhileの前でやらないとうまく出力されない模様なので、
# 以下の行を前に持ってきた。

# ０．
# multilog へパイプをパイプパイプパイプ
# 本稼働の時にコメントアウトしてみりる。
# pipe to multilog
my $oldfh = select MULTILOG;
$| = 1;
select $oldfh;

**root▲ ★** · 05/01/23 02:11:58

雑談スレ見てると、よさげなのかな。

質問・雑談スレ96＠運用情報板
http://qb5.2ch.net/test/read.cgi/operate/1106316059/560-

**root▲ ★** · 05/01/23 02:15:16

今の時間でこのぐらいの問い合わせ数なら、システムの負荷的には問題ないですね。
誤差の範囲かと。

**root▲ ★** · 05/01/23 02:19:19

で、bbr.2ch.netの2ch.netのDNSサーバへの登録は、このスレで別途依頼します。

Net::DNSを使って直接queryする方法を導入したので親ドメインへのDNS登録は
必ずしも必要ではなくなりましたが、
運用上の覚え書きとして、登録をしておきたいなと。

**root▲ ★** · 05/01/23 02:21:06

えっと、DNSに _ のままで query が飛んできてるみたいです。

0700（ふせふせ)_me っていうのを今見ました。

**root▲ ★** · 05/01/23 02:25:15

BBMのほうは _ => - に変換してから DNS 呼んでいるので、
こっちも、そのようにしたほうがよいのではないかと。

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 02:29:16

う、、、（汗）

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") }

これで桶かな？

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 02:35:59

>>928
$SUBNO =~ tr/_/-/; ×
$SubNo =~ tr/_/-/; ○

でしたm(_ _)m

危うくSambaされるところだった（苦笑）

**root▲ ★** · 05/01/23 02:37:41

BBMのところは、こうやってるみたい。

$idnotane =~ s/\_/\-/g;

**未承諾酩酊※** ◆TWARamEjuA · 05/01/23 02:44:52

>>930
んーエスケープする必要がないのと、trの方が高効率って事で（苦笑）

**root▲ ★** · 05/01/23 02:45:44

>>931
了解です。Perl書けない人。