";
print "\n";
print "\n";
foreach $key (1..$perp_eom) {
next unless ($SmallTable{$key});
print "| ";
print "";
$xshortmonth = @shortmonths[$INPUT{'Month'}-1];
print "$key $xshortmonth ";
print "$INPUT{'Year'} ";
$weekday =
($key+$perp_dow)-(int(($key+$perp_dow)/7)*7);
if ($weekday < 1) { $weekday = 7; }
$xshortday = @shortdays[$weekday-1];
print "($xshortday):";
print " | ";
print " ";
$color = $BgColor_Cell{int($key)};
print "| ";
print "";
print "$SmallTable{$key} | ";
print " ";
}
print " ";
print " | \n";
}
print "\n";
print "| ";
print "";
print "$heading | \n";
print " \n";
foreach $key (1..7) {
print "| ";
print "";
$xshortday = @shortdays[$key-1];
print "$xshortday | ";
}
print "\n \n";
if ($perp_dow > 0) {
print "| ";
print " | ";
}
foreach $key (1..$perp_eom) {
print ""; }
else { print "$bgcolor_normal\">"; }
if (($INPUT{'Year'} == $year)
&& ($INPUT{'Month'} == $month)
&& ($key == $mday)) {
print "";
print " $key";
}
else {
print "";
print "$key";
}
print " | ";
$weekday = ($key+$perp_dow)-(int(($key+$perp_dow)/7)*7);
if (($weekday == 0) && !($key == $perp_eom)) {
print "\n \n";
}
}
if ($weekday > 0) {
$leftover = 7-$weekday;
print "| ";
print " | ";
}
print "
\n";
}
print "\n";
$LastYear = int($INPUT{'Year'});
$LastMonth = int($INPUT{'Month'})-1;
if ($LastMonth == 0) {
$LastMonth = 12;
$LastYear -= 1;
}
print " | \n";
$NextYear = int($INPUT{'Year'});
$NextMonth = int($INPUT{'Month'})+1;
if ($NextMonth == 13) {
$NextMonth = 1;
$NextYear += 1;
}
print " | \n";
print "
\n";
&Footer;
exit;
sub PerpetualCalendar {
# This perpetual calendar routine provides accurate day/date
# correspondences for dates from 1601 to 2899 A.D. It is based on
# the Gregorian calendar, so be aware that early correspondences
# may not always be historically accurate. The Gregorian calendar
# was adopted by the Italian states, Portugal and Spain in 1582,
# and by the Catholic German states in 1583. However, it was not
# adopted by the Protestant German states until 1699, by England
# and its colonies until 1752, by Sweden until 1753, by Japan
# until 1873, by China until 1912, by the Soviet Union until 1918,
# and by Greece until 1923.
($perp_mon,$perp_day,$perp_year) = @_;
%day_counts =
(1,0,2,31,3,59,4,90,5,120,6,151,7,181,
8,212,9,243,10,273,11,304,12,334);
$perp_days = (($perp_year-1601)*365)+(int(($perp_year-1601)/4));
$perp_days += $day_counts{$perp_mon};
$perp_days += $perp_day;
$perp_sofar = $day_counts{$perp_mon};
$perp_sofar += $perp_day;
$perp_togo = 365-$perp_sofar;
if (int(($perp_year-1600)/4) eq (($perp_year-1600)/4)) {
$perp_togo++;
if ($perp_mon > 2) {
$perp_days++;
$perp_sofar++;
$perp_togo -= 1;
}
}
foreach $key (1700,1800,1900,2100,2200,2300,2500,2600,2700) {
if ((($perp_year == $key) && ($perp_mon > 2))
|| ($perp_year > $key)) {
$perp_days -= 1;
}
}
$perp_dow = $perp_days - (int($perp_days/7)*7);
if ($perp_dow == 7) { $perp_dow = 0; }
if ($MonSunWeek) {
$perp_dow -= 1;
if ($perp_dow == -1) { $perp_dow = 6; }
}
$perp_eom = 31;
if (($perp_mon == 4) || ($perp_mon == 6)
|| ($perp_mon == 9) || ($perp_mon == 11)) {
$perp_eom = 30;
}
if (($perp_mon == 2)) {
$perp_eom = 28;
}
if ((int(($perp_year-1600)/4) eq (($perp_year-1600)/4))
&& ($perp_mon == 2)) {
$perp_eom = 29;
}
foreach $key (1700,1800,1900,2100,2200,2300,2500,2600,2700) {
if ($perp_year == $key) {
if ($perp_mon == 1) {
$perp_togo -= 1;
}
elsif ($perp_mon == 2) {
$perp_togo -= 1;
$perp_eom = 28;
}
else {
$perp_sofar -= 1;
}
}
}
}
|