#!/usr/bin/perl

# ブラウザ(アクセス端末)情報を取得
$browser = $ENV{'HTTP_USER_AGENT'};


# キャリア判定
### docomo ###
if ($browser =~ /^docomo/i)
{
	$url = "/m/i/index.htm";
}
### au ###
elsif (($browser =~ /^UP.Browser/i) || ($browser =~ /^KDDI/i))
{
	$url = "/m/ez/index.htm";
}
### Vodafone ###
elsif (($browser =~ /^J-PHONE/i) || ($browser =~ /^Vodafone/i))
{
	$url = "/m/j/index.htm";
}
### H" ###
#elsif ($browser =~ /^PDXGW/i)
### ASTEL ###
#elsif ($browser =~ /^ASTEL/i)
### L-mode ###
#elsif ($browser =~ /^L-mode/i)
elsif ($browser =~ /\(PSP/i)
{
	$url = "/psp/top.html";
}
### PC ###
else
{
	$url = "/top.html";
}

$base_url = "http://www.acquire.co.jp/ninja/homura";
$jump = "Location: " . $base_url . $url . "\n\n";
print $jump;

#デバッグ確認用
#print "content-type:text/html\n\n";
#print $jump;