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

638 ：637：2006/05/19(金) 04:43:28 ID:???0

sub GetProductInfo
{
my ($oConv,$agent,$subno) = @_;
my $product = undef;
my @ca = split(/\//,$agent);

if($agent =~ /DoCoMo/){
if($agent =~ /\/ser(\w{11})$/){$product = $1;}
elsif($agent =~ /;ser(\w{15});/){$product = $1;}
}
elsif($agent =~ /Vodafone/){
if($ca[3] !~ / /){$product = [split(/ /,$ca[4])]->[0];}
}
elsif($agent =~ /J-PHONE/){
if(@ca == 3){}
elsif($ca[2] !~ / /){$product = [split(/ /,$ca[3])]->[0];}
}
elsif($agent =~ /^MOT-/){}
elsif($agent =~ /UP\.Browser/){
$product = $subno;
}
else{
$product = $oConv->GetRemoteHost(); return $product;
}

if(!$product){return undef;}
$product =~ s/[^.-\w]//g;
$product = join(' ',$product,$oConv->GetRemoteHost());
return $product;
}