現状 @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,"ERROR!","さくらが咲いてますよ。");
}
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,"ERROR!","ERROR:ロックは人生だ。");
}
if($SPAM eq "127.0.0.0")
{
$FOX->{BBX} = 0;
}
return 0;
探検
【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part16
■ このスレッドは過去ログ倉庫に格納されています
862FOX ★
05/01/22 20:49:26ID:???0■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 【芸能】不倫疑惑の永野芽郁、モスバーガーがアニメCMに差し替えか…相次ぐCM“削除”でイメージ崩壊 [Ailuropoda melanoleuca★]
- 【コメ】JA全農、卸売業者への備蓄米出荷はまだ29%…落札した全量を売り渡すのは早くとも7月以降に 約6万トンは出荷見通し立たず [ぐれ★]
- 「他店の商品に自分のシール貼っただけ」割高価格で販売か 元ジャンポケ斉藤被告のバウムクーヘン店に辛辣な声 [Anonymous★]
- 【社会】暴力団会長ら4人、コインランドリー両替機の現金盗もうとした疑いで逮捕…栃木・茨城で被害多発 [シャチ★]
- 米が関税で「合意枠組み案」提示 車・鉄は交渉外の意向、日本反発 [蚤の市★]
- 【お笑い】ダウンタウン浜田雅功が活動再開 体調回復、2日深夜のラジオから/吉本興業発表全文 [征夷大将軍★]
- 【石破悲報】イギリス、極右政党「リフォームUK」が政権を取るとの情勢調査が出てしまう [705549419]
- 【反社】🇨🇳中国「アメリカは関税交渉して欲しかったら『誠意』見せろや!」 [481941988]
- 【実況】博衣こよりのえちえちモンハンワイルズ🧪
- ▶ガチで一番中身と結婚したいホロメンは?
- 【悲報】世界の右派政治家「助けて!私たちは『◯◯のトランプ』じゃないの!選挙負けるからやめて!」 [196352351]
- アキバカフェ運営の岸田メル、「客が臭い😲 [861717324]