その七 - 同じアドレスで携帯でも「index.cgi」

仕様変更〜
googleがモブログをインデックスしてしまうようなので、
「携帯はコッチそれ以外はコッチ」にしました。

#!/usr/bin/perl

#====================
# Name: index.cgi
# 仕様: PCと携帯の振分け
#====================

@user_agent = split(/\//,$ENV{'HTTP_USER_AGENT'});

# 携帯電話などはコッチ
if ($user_agent[0] eq 'ASTEL' || $user_agent[0] eq 'UP.Browser'
|| $user_agent[0] =~ /^KDDI/
|| $user_agent[0] eq 'PDXGW'
|| $user_agent[0] eq 'DoCoMo'
|| $user_agent[0] eq 'J-PHONE'
|| $user_agent[0] eq 'L-mode'){

print "Location: mt4i.cgi\n\n";

# それ以外はコッチ
} else {

print "Location: index.html\n\n";

}

exit;