振り分け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;

No.1 回答者： MOMON12345 回答日時： 2009/05/31 00:02

これはそのページに飛ばすのではなく、そのページの内容を表示するcgiですので、ファイル名を書き換えてもダメです。

ジャンプさせるように変更すれば良いのですが、そうすると現在使っているhtmlファイルの内容を少し変える必要があります。

sub go {
print "Content-type: text/html\n\n";
open(IN, $lct);
while (<IN>) {
print;
}
close(IN);

}

これを

sub go {
print "Location:http://{サイトのURL}/$lct";
}

とでもすればいいのですが…

No.2 回答者： zxcv0000 回答日時： 2009/05/31 08:26

沢山の条件に影響されるのでうまくいくかどうかはわかりませんが、以下の様にすればできるかも。

sub go{
if( $lct =~ m/\.cgi/ ) {
require $lct;
exit;
}
print "Content-type: text/html\n\n";
open(IN, $lct);
print <IN>;
close(IN);
}