| CGIの書き方というか…アドバイスをお願いします。
DoCoMoの携帯電話端末情報utn属性を利用して擬似的クッキー機能をつけようとしています。 ログファイルにはutn:***********,name=***,url=***,mail=***,delkey=******.... となっています。 そこで読み取りの際
open(UTN,"$utn_file"); @utndata = <UTN>; close UTN;
foreach $utndata (@utndata) {
@pairs = split(/,/,$utndata); foreach $pair (@pairs) { ($utnname, $value) = split(/:/, $pair); $COOKIE{$utnname} = $value; } if(length($utn) == 11 && "$COOKIE{'utn'}" eq "$utn"){
if ($COOKIE{'delkey'}){$c_key =$COOKIE{'delkey'};} if ($COOKIE{'name'}) { $c_name =$COOKIE{'name'};} if ($COOKIE{'email'}){ $c_email=$COOKIE{'email'};} if ($COOKIE{'url'}){ $c_url=$COOKIE{'url'};} if ($COOKIE{'pub'}){ $c_pub=$COOKIE{'pub'};} if ($COOKIE{'sel'}){ $c_sel=$COOKIE{'sel'};} if ($COOKIE{'txt'}){ $c_txt=$COOKIE{'txt'};} last; }elsif(length($utn) == 15 && "$COOKIE{'utn'}" eq "$utn"){
if ($COOKIE{'delkey'}){$c_key =$COOKIE{'delkey'};} if ($COOKIE{'name'}) { $c_name =$COOKIE{'name'};} if ($COOKIE{'email'}){ $c_email=$COOKIE{'email'};} if ($COOKIE{'url'}){ $c_url=$COOKIE{'url'};} if ($COOKIE{'pub'}){ $c_pub=$COOKIE{'pub'};} if ($COOKIE{'sel'}){ $c_sel=$COOKIE{'sel'};} if ($COOKIE{'txt'}){ $c_txt=$COOKIE{'txt'};} last; }
}
とやったのですがログにないutnを持った端末にログから一番最後に読み込んだ内容が表示されてしまうようです。 なおutnの長さが11桁(PDC)と15桁(FOMA)があります。 $utnには固体識別情報utnが代入されています。
|