#!/usr/bin/perl
#
# Script to generate an HTML Calendar
#
# htcal <month> <year>
#

$month = shift(@ARGV);
$year = shift(@ARGV);

$caltext = `cal $month $year`;

@calary = split(/\n/,$caltext);

$title = @calary[0];

print <<EOT;
<TABLE width="100%" border="1">
<TR valign="top">
 <TD colspan=7><TABLE width="100%" border="0"><TR>
  <TD align="left">
  <TD align="center"><H2>$title</H2>
  <TD align="right"><a href=".shtml"></a>
  </TR></TABLE>
</TR>
<TR>
 <TH width="14%" bgcolor="#E0E0E0">Sunday
 <TH width="14%" bgcolor="#E0E0E0">Monday
 <TH width="14%" bgcolor="#E0E0E0">Tuesday
 <TH width="14%" bgcolor="#E0E0E0">Wednesday
 <TH width="14%" bgcolor="#E0E0E0">Thursday
 <TH width="14%" bgcolor="#E0E0E0">Friday
 <TH width="14%" bgcolor="#E0E0E0">Saturday
</TR>

EOT

$line = 2;
while (@calary[$line]) {
   print "<TR valign=\"top\">\n";
   @days = split(' ',@calary[$line]);
   $count = $#days;
   if ($line == 2 && $count < 6) {
      for (1 .. 6-$#days) {
         print " <TD width=\"14%\" bgcolor=\"#E7E7E7\">\n";
      }
   }
   for (0..$count) {
      $day = shift(@days);
      print <<EOT;
 <TD width="14%" bgcolor="#F0F0F0">
        <TABLE border="0" cellpadding="0"><TR><TD>$day</TR>
        <TR><TD bgcolor="#F0F0F0"><small>&nbsp;</small><P></TR>
        <TR><TD bgcolor="#F0F0F0"><small>&nbsp;</small><P></TR>
        </TABLE>
EOT
   }
   if ($line > 2 && $count < 6) {
      for (1 .. 6-$count) {
         print " <TD width=\"14%\" bgcolor=\"#E7E7E7\">\n";
      }
   }
   print "</TR>\n\n";
   $line++;
}

print "</TABLE>\n\n";