#!/usr/bin/perl

#******************************************************************************

#ma_lib.pl のパス
$ma_lib = './ma_lib.pl';

#******************************************************************************
#振り分けURL
# 各キャリアの振り分け先を設定してください。

$url[0] = 'http://www.euclidagency.com/i/art/zz.html';# i-mode
$url[1] = 'http://www.euclidagency.com/j/art/zz.html';# J-SKYWEB
$url[2] = 'http://www.euclidagency.com/e/art/zz.html';# EZweb
$url[3] = 'http://xxx.yyy.zzz/testd.html';# ドットi
$url[5] = 'http://www.euclidagency.com/zz/pc/';#PC

# H" 振り分け用ファイル
# 相対パスで指定。詳しい事は readme_h.txt をお読みください。
$url[4] = "./jump_h.txt";

#******************************************************************************
#端末別振り分け

#以下の例に従って、下のスペースに書き加えてください。
#ただし、H"系は端末情報が得られないため、設定できません。
#
# $termurl{'503i'} = 'http://www.euclidagency.com/i/art/zz.html';
# $termurl{'J-D04'} = 'http://www.euclidagency.com/j/art/zz.html';



#******************************************************************************


require $ma_lib;
@userdata = &ma_lib::terminal_check;

if ($termurl{$userdata[3]} ne ""){&jumpurl($termurl{$userdata[3]});}
else{&jumpurl($url[$userdata[1]]);}
exit;
#******************************************************************************
sub jumpurl{
if($userdata[1] == 4){
	print "Content-type:text/html\n\n";
	open(IN,$url[4]);
	while(<IN>){print;}
	close(IN);
	}else{
	print "Location: $_[0]\n\n";
	}
exit;
}
#******************************************************************************