#!/usr/local/bin/perl
use CGI;
require "ctime.pl";
$query = new CGI;

print $query->header;
print $query->start_html("Miosachan");

if ($query->param) {
  $Month =  $query->param("mios");
  $Year = $query->param("bliadhna");
  print "<PRE>";
#--------------------------------
if ($Month<1 || $Month>12) {
  print "Feumaidh am mìos a bhith eadar 1 agus 12\n";
  print "Feuch a rithist\n<HR>";
  goto FOIRM;
} 
if ($Year<1901) {
  print "Chan eil am program a deiligeadh ri bhliadhna roimh 1901\n";
  print "Feuch a rithist\n<HR>";
  goto FOIRM;
}
if ($Year>2099) {
  print "Chan eil am program a deiligeadh ri bhliadhna as deidh 2099\n";
  print "Feuch a rithist\n<HR>";
  goto FOIRM;
}

$NewYearsDay1900 = 7; #IGNORING SPECIAL RULE FOR CENTURY YEARS
#IN PROGRAM 1 = MONDAY .... 7 = SUNDAY
$LastLeapYear = $Year - $Year%4;
$NewYearsDayLastLeapYear = 5* ($LastLeapYear - 1900)/4;
$NewYearsDay = $NewYearsDayLastLeapYear;
if ($Year != $LastLeapYear) {
  $NewYearsDay = $NewYearsDay + $Year - $LastLeapYear +1;
}
$NewYearsDay = $NewYearsDay%7;

@MonthNames = ("", "Am Faoilleach", "An Gearran", "Am Mairt", "An Giblean", 
    "An Ceitean", "An t-Og Mhios", "An t-Iuchar", "An Lùnasdal", 
    "An t-Sultain", "An Dàmhair", "An t-Samhainn", "An Dùbhlachd");
@DaysInMonths = (0, 31,28,31, 30,31,30, 31,31,30, 31,30,31);
if ($Year%4 == 0) {$DaysInMonths[2] = 29};
@FirstDays[1] = $NewYearsDay;
for ($i=2; $i<=12; $i++)  {
  $FirstDays[$i] = ($FirstDays[$i-1] + $DaysInMonths[$i-1])%7;
  if ($FirstDays[$i] == 0) {$FirstDays[$i] = 7}
}

$DaysInMonth = $DaysInMonths[$Month];
$FirstDay = $FirstDays[$Month];

&PrintMonthName($MonthNames[$Month]);
print "  L  M  C  D  A  S LS\n";

for ($DayOfWeek = 1; $DayOfWeek < $FirstDay; $DayOfWeek++) {print "   "}

$DayOfWeek = $FirstDay;
for ($DayOfMonth = 1; $DayOfMonth <= $DaysInMonth; $DayOfMonth++) {
   printf ("%3d",$DayOfMonth);
   $DayOfWeek++;
   if ($DayOfWeek == 8) {
      print "\n"; 
      $DayOfWeek = 1;
   }
}
print "\n";


sub PrintMonthName {
  local($MonthName) = $_[0];
  $space = 21 - length($MonthName);
  $space = ($space - $space%2)/2;
  for ($i=1; $i<=$space; $i++) {print " "};
  print $MonthName, "\n";
}
#--------------------------------
  print "</PRE>";
}

FOIRM:
print $query->startform;
print "Mios:";
print $query->textfield('mios',"",2),"<BR><BR>\n";
print "Bliadhna:";
print $query->textfield('bliadhna',"",4),"<BR><BR>\n";
print $query->submit("Thèid air adhart");
print $query->reset('Glan seo agus tòisich às ùr');
print $query->endform;

print <<'DEIREADH';
<HR>
<A HREF="/"><IMG SRC="/icons-smo/smo-tog.gif" ALT="SMO"></A>
1996-06-23 <A HREF="/~94-arp/">ARP</A>
</BODY>
</HTML>
DEIREADH