#! /usr/bin/perl
#
# calen.cgi
#
# 1.003 : 1/29/07 : テーブルのHTMLを修正
# 1.002 : 12/8/06 : charsetを正しく設定
# 1.001 : 11/27/06 : 一ヶ月表示の幅を修正
# 1.0 : 11/26/06 : Initial revision.
#
# http://www.hidekik.com
#
# Copyright(c) 2006-2007, Hideki Kanayama All Rights Reserved

use CGI::Carp qw(fatalsToBrowser);
use CGI;
use Time::Local;
use File::Basename;

my $version = "1.003";
my $lastupdatedyear = "2007";
my $script = basename($0);

# Use localtime?
my $localtime_en = 0;

# Offset from GMT if $localtime_en = 0
my $offset = 9;

my $title = 'プリントアウト用カレンダー';
my $backlink = "calen.html";
my $backname = "解説ページへ";

my $charset = "Shift_JIS";

my $now = time;

my $q = new CGI;
my $cgierror = $q->cgi_error;
&error($cgierror) if ($cgierror);
my $reqyear = $q->param('yearset');
my $reqmon = $q->param('monset');
my $yearormon = $q->param('yearormon');

my @weekname = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
my @monname = qw(January February March April May June July August September October November December);

if ($yearormon ne ''){
    &gencalen;
} else {
    &inputform;
}

sub inputform {
    &htmlhead($title);

    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
	$localtime_en ? localtime($now) : gmtime($now + $offset * 3600);

    print "<center>\n";
    print "<a href=\"$backlink\">$backname</a><p>\n";
    print "<form actoin=\"$script\" method=\"post\">\n";
    print "<select name=\"yearset\">\n";
    foreach (1970 .. 2037){
	my $num=$_-1900;
	my $checked;
	if ($year == $num) {$checked = 'selected';}
	print qq(<option value="$num" $checked>$_\n);
    }
    print "</select>年\n";
    print "<select name=\"monset\">\n";
    foreach (1 .. 12){
	my $num=$_-1;
	my $checked;
	if ($mon == $num) {$checked = 'selected';}
	print qq(<option value="$num" $checked>$_\n);
    }
    print "</select>月\n";
    print "<p>\n";
    print qq(<input type="radio" name="yearormon" value="mon" checked>一ヶ月表\示\n);
    print qq(<input type="radio" name="yearormon" value="year">一年表\示\n);
    print "<p>\n";
    print qq(<input type="submit" name="makecal" value="カレンダー作成">\n);
    print "</center>\n";

    &htmltail;
}

sub gencalen {
    &htmlhead;

    if ($yearormon eq 'year'){
	&yeargen;
    } else {
	&monthgen($reqmon);
    }
    print "</body>";
    print "</html>";
    exit;
}

sub yeargen {
    my $tmp = $reqyear+1900;
    print "<center><h2>$tmp</h2></center><p>\n";
    print "<table cols=3 border=0 width=100% cellspacing=20>\n";
    foreach my $row (0 .. 3){
	print "<tr>\n";
	foreach my $col (0 .. 2){
	    print "<td align=center valign=top>\n";
	    my $mon = $col+$row*3;
	    print "$monname[$mon]\n";
	    &monthgen($mon);
	    print "</td>\n";
	}
	print "</tr>\n";
    }
    print "</table>\n";
}

sub monthgen {
    my $reqmon = shift;
    my $starttime = $localtime_en ? timelocal(0,0,0,1,$reqmon,$reqyear) : timegm(0,0,0,1,$reqmon,$reqyear);
    my ($ssec,$smin,$shour,$sday,$smon,$syear,$swday,$syday,$sisdst) = 
	$localtime_en ? localtime($starttime) : gmtime($starttime);
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);

    my $tmp = $reqyear+1900;
    if ($yearormon eq 'mon'){
	print "<center><h2>$monname[$smon], $tmp</h2></center><p>\n";
    }
    my $border;
    my $align;
    if ($yearormon eq 'mon') {
	$border=1;
	$align = "right";
    } else {
	$border=0;
	$align = "center";
    }
    print "<table cols=7 border=$border width=100%>\n";
    foreach my $week (-1 .. 5) {
	my $sunday = $starttime - $swday * 86400 + $week * 7 * 86400;
	my ($sunsec,$sunmin,$sunhour,$sunmday,$sunmon,$sunyear,$sunwday,$sunyday,$sunisdst) = 
	    $localtime_en ? localtime($sunday) : gmtime($sunday);
	last if ($week == 5 and $sunmon != $reqmon and $week >= 0);
	print "<tr>\n";
	foreach my $day (0 .. 6){
	    if ($week == -1){
		print "<td align=center width=\"14%\">";
		if ($yearormon eq 'mon'){
		    print "$weekname[$day]";
		} else {
		    print substr($weekname[$day],0,1);
		}
		print "</td>\n";
	    } else {
		print "<td align=$align>";
		if ($week == 0 and $day >= $swday or $week != 0){
		    my $today = $starttime + ($day - $swday + $week * 7) * 86400;
		    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
			$localtime_en ? localtime($today) : gmtime($today);
		    if ($mon == $reqmon){
			if ($yearormon eq 'mon'){
			    print "<font size=\"+1\">$mday</font><br><br><br><br><br>";
			} else {
			    print "$mday";
			}
		    } else {
			print "&nbsp;";
		    }
		} else {
		    print "&nbsp;";
		}
		print "</td>\n";
	    }
	}
	print "</tr>\n";
    }
    print "</table>";
}

sub htmlhead {
    my $title = shift;
    print $q->header(-charset=>"$charset");
    print "<html>";
    print <<HEADPRINT;
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=$charset">
   <META NAME="Author" CONTENT="Hideki Kanayama">
   <TITLE>$title</TITLE>
</head>
<body>
HEADPRINT
}

sub htmltail {
    my $mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang];
    print "<div align=\"right\"><i>calen.cgi $version<br>Copyright(c) 2006-$lastupdatedyear, <a href=\"$mysite\" target=\"_blank\">hidekik.com</a></i></div>\n";
    print "</body>";
    print "</html>";
    exit;
}

sub error {
  my ($msg) = shift;
  &htmlhead($msg);
  print "<br><center>$msg</center>\n";
  &htmltail;
  exit;
}