【携帯ブラウザ】べっかんこ

[1 だるまたんマン_FromTheBarrel ◆damaru5/aw 2011/03/02(水) 00:32:42.31 ID:Tec23Tuf0]

なくなってたから立てた

[924 動け動けウゴウゴ２ちゃんねる 2011/04/11(月) 15:49:36.95 ID:JE4L6KwD0]

sub GoodKeitai
{
my ($GB) = @_;
my $career = "";
my $newthread = "";
my $idnotane = "";

my $AHOST = "";
my $SPAM = "";

#以下の板はスルー
if(&KiseiOFF($GB)) {return 0;}
# if($GB->{FORM}->{'bbs'} eq "campus") {return 1;}

# 現在BBMありかどうかが、トップページでわかるように
$GB->{version} .= " +BBM";

#携帯以外はするー
if(!($GB->{KEITAI} || $GB->{KEITAIBROWSER})) {return 1;}

#IDの種(固有番号)をDNSクエリ用に変換
$idnotane = $GB->{IDNOTANE};
$idnotane =~ s/\_/\-/g;
# DoCoMoでは「小文字フラグ情報」を付加してからBBMを呼ぶ
if(length($idnotane) eq 7 && ($GB->{KEITAI} || $GB->{KEITAIBROWSER}))
{
$idnotane = &MakeImodeIDforDNS($idnotane);
}

#携帯キャリアごとに変更
if ($GB->{KEITAI} eq 1) { $career = "docomo"; }
elsif($GB->{KEITAI} eq 2) { $career = "au"; }
elsif($GB->{KEITAI} eq 3) { $career = "vodafone"; }
elsif($GB->{KEITAI} eq 5) { $career = "emobile"; }
else { $career = "others"; }

#新スレッドかどうかの判定
if($GB->{FORM}->{'subject'} ne "") { $newthread = "b"; }
else { $newthread = "a"; }

# $AHOST = "$GB->{NOWTIME}.$$.$idnotane.A.B.C.D.X.bbm.2ch.net.";
$AHOST = "$GB->{NOWTIME}.$$.c.$GB->{FORM}->{'bbs'}.$GB->{FORM}->{'key'}.$newthread.B.C.D.$career.$idnotane.bbm.2ch.net.";

#BBM異常時はするー
if(!$FOX->{BBM}) {return 1;}
#BBMへの問い合わせ
$SPAM = &foxDNSquery2($AHOST);
#$SPAM = "127.0.0.0";
#焼かれているやつ、書きこみだめー
if($SPAM eq "127.0.0.2") {return 0;}
#BBMが止まっています判定
elsif($SPAM eq "127.0.0.0") { $FOX->{BBM} = 0; }

#ここまで来たものは特に問題なし
return 1;
}

[925 動け動けウゴウゴ２ちゃんねる 2011/04/11(月) 15:50:18.06 ID:JE4L6KwD0]

#############################################################################
# BBQ/BBM/BBX/BBN/BBE
#############################################################################
sub foxDNSquery2
{
my ($host) = @_ ;
# $host .= "bbs.timeout.peko.2ch.net.";

use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->tcp_timeout(3);
$res->udp_timeout(3);
$res->retry(4);
my $query = $res->query($host) ;

if($query)
{
my @ans = $query->answer;
foreach(@ans)
{
return $_->address ;
}
}
if($res->errorstring eq 'query timed out') {return "127.0.0.0";}

return "127.0.0.1";
}