振り分けcgiについて
現在下記のように書かれているcgiでトップページの振り分けをしています。今までは各htmに飛ばしていたのですが、今度モバイルのみcgi
へ飛ばしたいのですが、i.htmの部分をmi.cgiと書き換えてもうまく飛びません。どうしたらcgiへ飛ぶようになるのでしょうか？
$vjump='.i.htm'; #SoftBank用
$ijump='./i.htm'; #i-MODE用
$ejump = './i.htm'; #EZWEB用
$pcjump = './index.htm'; #PC,その他
$USR = $ENV{'HTTP_USER_AGENT'};
if ($USR =~ /^DoCoMo/) { $lct = $ijump; }
elsif ($USR =~ /UP\.Browser/) { $lct = $ejump; }
elsif ($USR =~ /^SoftBank/ || $USR =~ /^Vodafone/ || $USR =~ /^J-PHONE/) { $lct = $vjump; }
else { $lct = $pcjump; }
&go;
exit;
sub go {
print "Content-type: text/html\n\n";
open(IN, $lct);
while (<IN>) {
print;
}
close(IN);
}
exit;
お礼
すごくわかりやすくてコピーするだけで出来ました。 ありがとうございます。