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

[過去ﾛｸﾞ] 【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part16 (1001ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

846: FOX ★ [sage] 05/01/22 18:00:51 ID:???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] には フラグ

# このときに・・・
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;
}

http://qb5.5ch.net/test/read.cgi/operate/1102087698/846

862: FOX ★ [sage] 05/01/22 20:49:26 ID:???0

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

http://qb5.5ch.net/test/read.cgi/operate/1102087698/862

上下前次 1-新書関写板覧索設栞歴

あと 139 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.012s