#! /usr/local/bin/perl
#
# HL-imgdiary 携帯-PC振り分けツール
# by phk@heartlogic.jp
# http://www.heartlogic.jp/
#-----------------------------------------------------------------------------
#　デフォルト設定では、次のようなディレクトリ構成を想定しています
#
#　┬ /cgi/		……edit.cgi、pdv.cgi、diary_ex.cgi
#　│ 
#　└ /diary/ ─ /data/	……データ保存用
#	      テンプレートファイル、レイアウト用画像ファイル
#-----------------------------------------------------------------------------
#

#現在の日時取得
($sec,$min,$hour,$day,$month,$year,$week,$isdst) = localtime(time);
$year += 1900;
$month++;

#日記を作成する日付の設定
if($DAT{'date'} ne ''){
	#日付指定
	($w_year,$w_month,$w_day) = split(/\//,$DAT{'date'});
	$w_year = sprintf("%.4d",$w_year);
	$w_month = sprintf("%.2d",$w_month);
	$w_day = sprintf("%.2d",$w_day);
	$w_date = "$w_year\/$w_month\/$w_day";
	$w_time = "$w_year\.$w_month\.$w_day";
}else{
	#作成する日付=今日
	$w_time = "$year\.$month\.$day";
	$w_date = "$year\/$month\/$day";
	$w_year = sprintf("%.4d",$year);
	$w_month = sprintf("%.2d",$month);
	$w_day = sprintf("%.2d",$day);
}
if($w_year%4 == 0){$max_day[2]=29;}
else{$max_day[2]=28;}

#■端末判定&ページ切り替え
$agent = $ENV{'HTTP_USER_AGENT'};
if($agent =~ /DoCoMo/){		#iモード
	print "Location: http://www.heavysick.co.jp/zero/cgi-bin/schedule/sfs6_diary/sfs6_diary/$w_year$w_month.html#$w_month$w_day\n\n";
}elsif($agent =~ /J-PHONE/){		#Jフォン
	print "Location: http://www.heavysick.co.jp/zero/cgi-bin/schedule/sfs6_diary/sfs6_diary/$w_year$w_month.html#$w_month$w_day\n\n";
}elsif($agent =~ /UP\.Browser/){	#UP.Browser（たぶんezWeb）
	print "Location: http://www.heavysick.co.jp/zero/cgi-bin/schedule/sfs6_diary/sfs6_diary/$w_year$w_month.html#$w_month$w_day\n\n";
}else{					#PC、その他
	print "Location: http://www.heavysick.co.jp/zero/cgi-bin/schedule/sfs6_diary/sfs6_diary/$w_year$w_month.html#$w_month$w_day\n\n";
}