#! /usr/bin/perl
#
# HL-imgdiary 携帯-PC振り分けツール
# by phk@heartlogic.jp
# http://www.heartlogic.jp/
#-----------------------------------------------------------------------------
#　デフォルト設定では、次のようなディレクトリ構成を想定しています
#
#　┬ /cgi/		……edit.cgi、pdv.cgi、diary_ex.cgi
#　│ 
#　└ /diary/ ─ /data/	……データ保存用
#	      テンプレートファイル、レイアウト用画像ファイル
#-----------------------------------------------------------------------------
#
#■端末判定&ページ切り替え
$agent = $ENV{'HTTP_USER_AGENT'};
if($agent =~ /DoCoMo/){		#iモード
	print "Location: http://www.asaikikaku.co.jp/blog/sekine_mari/cgi/pdv.cgi\n\n";
}elsif($agent =~ /J-PHONE/){		#Jフォン
	print "Location: http://www.asaikikaku.co.jp/blog/sekine_mari/cgi/pdv.cgi\n\n";
}elsif($agent =~ /UP\.Browser/){	#UP.Browser（たぶんezWeb）
	print "Location: http://www.asaikikaku.co.jp/blog/sekine_mari/cgi/pdv.cgi\n\n";
}else{					#PC、その他
	print "Location: http://www.asaikikaku.co.jp/blog/sekine_mari/diary/index.html\n\n";
}