UserAgentによる振り分け。
index.cgiについて。googleで検索して見つけたスクリプトを流用。
Location の行末にnnを付け加えないと、Internal Server Errorになる。
忘れないようにメモしておく。
セキュリティ上の問題は多分ないので、全文そのまま。
もしも流用するときは、URIの書き換えが必要かと。

index.cgi
——————————————-
#!/usr/bin/perl

$agent = $ENV{‘HTTP_USER_AGENT’};

if($agent =~ /DoCoMo/){
print “Location: http://nobuatsu.com/index_k.htmlnn”;
exit;
}
elsif($agent =~ /UP.Browser/){
print “Location: http://nobuatsu.com/index_k.htmlnn”;
exit;
}
elsif($agent =~ /J-PHONE/){
print “Location: http://nobuatsu.com/index_k.htmlnn”;
exit;
}
elsif($agent =~ /Vodafone/){
print “Location: http://nobuatsu.com/index_k.htmlnn”;
exit;
}
else{
print “Location: http://nobuatsu.com/blog/nn”;
exit;
}
——————————————-

/ でアクセスしたときに何を表示するか。

.htaccess
——————————————-
DirectoryIndex index.cgi index.html
——————————————-

参考：
http://japan.internet.com/column/webtech/20040929/8.html
http://www.shtml.jp/htaccess/directoryindex.html