#!/usr/bin/perl # Copyright (C) 2003 click-advance. # URL http://www.click-advance.com/ ### 設定 ###################################################################### # 各キャリアに対応したページのURLに変更して下さい。 $iURL = 'http://www.goken.com/diet_life/i/'; # iモード用ページ $vURL = 'http://www.goken.com/diet_life/j/'; # vodafone用ページ $eURL = 'http://www.goken.com/diet_life/ez/'; # ez-WAP(au新)用ページ $uURL = 'http://www.goken.com/diet_life/i/'; # ez-HDML(au旧/TU-KA)用ページ_ub.htm $pURL = 'http://www.goken.com/diet_life/i/'; # その他(PCなど)用ページ ############################################################################### @user_agent = split(/\//,$ENV{'HTTP_USER_AGENT'}); if ($user_agent[0] eq 'DoCoMo') { $URL=$iURL; } elsif ($user_agent[0] eq 'J-PHONE') { $URL=$vURL; } elsif ($user_agent[0] =~ /^KDDI/) { $URL=$eURL; } elsif ($user_agent[0] eq 'UP.Browser') { $URL=$uURL; } else { $URL=$pURL; } print "Location:$URL\n\n"; print "Content-type: text/html\n\n"; print "