現状 @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■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 第三者委員会の“ゼロ回答”に中居弁護士ブチギレも…「音声データじゃなく本人が生の声で発信すれば?」中居氏に会見求める声 [muffin★]
- 【芸能】永野芽郁と二股報道の『キャスター』共演俳優が意味深投稿「嘘をつかないで もう半分終わった」報道後初インスタ更新 [Ailuropoda melanoleuca★]
- 「やっぱ買うのやめた!」増殖するセルフレジ放置民 「現金使えない」「操作間違えた」会計途中で諦め商品置きっぱ…店側も対応苦慮 ★3 [ぐれ★]
- 【東京】線路にごみ投げ入れ疑い…電車遅延で5千人に影響 ネパール国籍の東京福祉大1年生マハタラ容疑者(25)逮捕「記憶にありません」 [樽悶★]
- 亀田和毅のボクシング世界戦に島田紳助氏がリング上にサプライズ登場 場内騒然 亀田興毅氏の涙にもらい泣き [muffin★]
- 【三重】学生寮で生徒3人にみだらな行為…元私立校教員の男5回目の逮捕「全く身に覚えがない」 [樽悶★]
- 【実況】博衣こよりのえちえちロックマンX5 🧪
- 🏡ホロライブ総合スレ ★6
- 【画像】女子大生YouTuber、すき焼き屋で下着姿みたいになって炎上🔥 [632966346]
- Twitter死んでない? [957955821]
- 俺「自分、電気電子工学を専攻しているんですよ」高卒親戚ババア「それを専攻して将来何になるの?」俺「」
- 【陰湿】日本人、誹謗中傷と開示が世界一位だったwwwwwwwww [834922174]