456:荒巻＠管理人 ★
2011/01/09(日) 18:09:25.87 ID:???
Vodaの判別と禿電話とあいぽんぽんの判別が甘いなぁ
めも：
# SB
if($remo =~ /jp-.\.ne\.jp/)
{
#Jフォン東日本
if($remo =~ /jp-d\.ne\.jp/){return "北海道";}
if($remo =~ /jp-h\.ne\.jp/){return "東北・新潟";}
if($remo =~ /jp-t\.ne\.jp/){return "関東・甲信越";}
#Jフォン西日本
if($remo =~ /jp-k\.ne\.jp/){return "関西";}
if($remo =~ /jp-r\.ne\.jp/){return "北陸";}
if($remo =~ /jp-s\.ne\.jp/){return "四国";}
if($remo =~ /jp-n\.ne\.jp/){return "中国";}
if($remo =~ /jp-q\.ne\.jp/){return "九州・沖縄";}
#Ｊフォン東海 jp-c.ne.jp
if($remo =~ /jp-c\.ne\.jp/){return "東海";}
return 77;
}
# AU
if($remo =~ /\.ezweb\.ne\.jp/)
{
if($GB->{IDNOTANE} =~ /^0500101/) {return "関東";}
if($GB->{IDNOTANE} =~ /^0500103/) {return "東海";}
if($GB->{IDNOTANE} =~ /^0500401/) {return "関東・甲信越";}
if($GB->{IDNOTANE} =~ /^0500403/) {return "東海";}
if($GB->{IDNOTANE} =~ /^0500405/) {return "-長野";}
if($GB->{IDNOTANE} =~ /^050/) {return "東海・関東";}
if($GB->{IDNOTANE} =~ /^0700/) {return "関西・北陸";}
if($GB->{IDNOTANE} =~ /^0701/) {return "九州";}
if($GB->{IDNOTANE} =~ /^07022/) {return "山陽";}
if($GB->{IDNOTANE} =~ /^0702/) {return "中国・四国";}
if($GB->{IDNOTANE} =~ /^0703/) {return "新潟・東北";}
if($GB->{IDNOTANE} =~ /^0704/) {return "北陸地方";}
if($GB->{IDNOTANE} =~ /^0705/) {return "北海道";}
if($GB->{IDNOTANE} =~ /^0706/) {return "四国";}
if($GB->{IDNOTANE} =~ /^0707/) {return "九州・沖縄";}
if($GB->{IDNOTANE} =~ /^070/) {return "au-関東以外";}
854Res/198.54 KB
↑[8] 前[4] 次[6]
書[5]
板[3] 1-[1] l20
