ぜろちゃんねるスクリプトを改造するスレ Part2

93 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 23:39:54 ID:A4LQ6o/M0

GetAgentModeが古かったので、こっちに差し替えたほうがいいかも
sub GetAgentMode
{
my $this = shift;
my ($UA) = @_;

$_ = $UA;
if (m/DoCoMo/){ return 1; } # docomo携帯
if (m/SoftBank|Vodafone|J-PHONE/){ return 2; } # J-Phone携帯
if (m/KDDI/){ return 3; } # au携帯
if (m/WILLCOM|DDIPOCKET|MobilePhone|Windows CE|/){ return 4; } # willcom
if (m/jig browser/){ return 5; } # jigブラウザ
if (m/ibisBrowser/){ return 6; } # ibisBrowser
if (m/OpenBrowser/){ return 7; } # e-mobile
return 0;
}