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

203 ：194：2007/01/29(月) 17:18:08 ID:???0

解決しました。

bbs.cgiの最後の
---------------------
sub GetProductInfo
{
my ($oConv,$agent) = @_;
my $product = undef;

if($agent =~ /DoCoMo/){
$agent =~ /(ser[a-zA-Z0-9]+)/;
$product = $1;
}
else{
$product = $oConv->GetRemoteHost();
}
return $product;
}
---------------------
を
---------------------
sub GetProductInfo
{
my ($oConv,$agent) = @_;
my $product = undef;

$product = $oConv->GetRemoteHost();
return $product;
}
---------------------
に変更していたようです。