ぜろちゃんねるスクリプト総合質問スレ Part8

546 ：名無しさん＠ぜろちゃんねる：2008/04/23(水) 10:02:58 ID:SU3qjnUY0

GetAgentModeだけ直しても端末固有情報よこせ言われるがな。
GetProductInfoがDoCoMoしか対応してねぇんだもの。

sub GetProductInfo
{
my ($oConv,$agent) = @_;
my $product = undef;

if($agent =~ /DoCoMo/){
$agent =~ /(ser[a-zA-Z0-9]+)/;
$product = $1;
}
elsif($agent =~ /^J-PHONE|^Vodafone|^SoftBank/){
$agent =~ /\/SN([A-Za-z0-9]+)\ /;
$product = $1;
}
else{
$product = $oConv->GetRemoteHost();
}
return $product;
}