#!/usr/bin/perl

############################################
##                                        ##
##                 WebCal                 ##
##           by Darryl Burgdorf           ##
##       (e-mail burgdorf@awsd.com)       ##
##                                        ##
##             version:  1.00             ##
##         last modified:  1/5/98         ##
##           copyright (c) 1998           ##
##                                        ##
##    latest version is available from    ##
##        http://awsd.com/scripts/        ##
##                                        ##
############################################

# COPYRIGHT NOTICE:
#
# Copyright 1998 Darryl C. Burgdorf.  All Rights Reserved.
#
# This program may be used and modified free of charge by anyone, so
# long as this copyright notice and the header above remain intact.  By
# using this program you agree to indemnify Darryl C. Burgdorf from any
# liability.
#
# Selling the code for this program without prior written consent is
# expressly forbidden.  Obtain permission before redistributing this
# program over the Internet or in any other medium.  In all cases
# copyright and header must remain intact.

# VERSION HISTORY:
#
# 1.00  01/05/98  Initial "public" release

$cgiurl = "http://www.elgonquin.com/lunchdates/index.cgi";
$datafile = "/home/elgonquin/WebSite/lunchdates/cal.data";

$bodyspec = "BGCOLOR=#ffffff TEXT=#333300 LINK=#00327E VLINK=#A89453";
$header_file = "header.txt";
$footer_file = "footer.txt";

# NOTHING BELOW THIS LINE NEEDS TO BE ALTERED!

@months =
  (January,February,March,April,May,June,
  July,August,September,October,November,December);
@shortmonths =
  (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
@days =
  (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);
@shortdays =
  (Sun,Mon,Tue,Wed,Thu,Fri,Sat);
$version = "1.00";

print "Content-type: text/html\n\n";

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$INPUT{$name} = $value;
}

$time = time;
($mday,$month,$year) = (localtime($time))[3,4,5];
$month = $month+1;
$year = $year+1900;

unless ($INPUT{'Month'}) { $INPUT{'Month'} = $month; }
unless ($INPUT{'Year'}) { $INPUT{'Year'} = $year; }
unless ($INPUT{'Type'}) { $INPUT{'Type'} = "Table"; }

if (($INPUT{'Year'} < 1601) || ($INPUT{'Year'} > 2899)) {
	&Header("Date Out of Range!");
	print "<H1 ALIGN=CENTER>Date Out of Range!</H1>\n";
	print "<P ALIGN=CENTER>The date you provided is out of range.";
	print "<BR>It must be between 1601 and 2899 A.D.</P>\n";
	&Footer;
	exit;
}

open (DATA,$datafile);
@data = <DATA>;
close (DATA);

foreach $line (@data) {
	if ($line =~ /\n$/) { chop ($line); }
	($date,$desc,$URL) = split (/\|/, $line);
	($dateyear,$datemonth,$dateday) = 
	  $date =~ m#(\d\d\d\d)(\d\d)(\d\d)#o;
	if ((int($dateyear) == int($INPUT{'Year'}))
	  || (int($dateyear) < 1)) {
		if (int($datemonth) == int($INPUT{'Month'})) {
			if ($URL) {
				$Table{int($dateday)} .= "<BR><STRONG><FONT
COLOR=WHITE>";
				$Table{int($dateday)} .= "<A HREF=\"$URL\">";
				$Table{int($dateday)} .= "$desc</A></FONT></STRONG>";
				$Text{int($dateday)} .= "                    ";
				$Text{int($dateday)} .= "<A HREF=\"$URL\">";
				$Text{int($dateday)} .= "$desc</A>\n";
			}
			else {
				$Table{int($dateday)} .= "<BR><STRONG>";
				$Table{int($dateday)} .= "$desc</STRONG>";
				$Text{int($dateday)} .= "                    ";
				$Text{int($dateday)} .= "$desc\n";
			}
		}
	}
	$Text{int($dateday)} =~ s/^                    //;
}

&PerpetualCalendar(int($INPUT{'Month'}),1,int($INPUT{'Year'}));

$heading = "@months[int($INPUT{'Month'})-1] $INPUT{'Year'}";
&Header("$heading");

if ($INPUT{'Type'} eq "Text") {
	print "<H1 ALIGN=CENTER>$heading</H1>\n";
	print "<P><PRE>\n";
	foreach $key (1..$perp_eom) {
		if ($key < 10) { print "0"; }
		print "$key ";
		print "@shortmonths[$INPUT{'Month'}-1] ";
		print "$INPUT{'Year'} ";
		$weekday = ($key+$perp_dow)-(int(($key+$perp_dow)/7)*7);
		if ($weekday < 1) { $weekday = 7; }
		print "(@shortdays[$weekday-1])   ";
		if ($Text{$key}) { print "$Text{$key}"; }
		else { print "\n"; }
		if (($weekday == 7) && !($key == $perp_eom)) {
			print "\n                    ---------------\n\n";
		}
	}
	print "</PRE></P>\n";
}
else {
	print "<P><CENTER><TABLE BORDER=1 CELLPADDING=2><TR>\n";

	print "<TH COLSPAN=7><TABLE WIDTH=\"100%\"
BORDER=0><TR><TD COLSPAN=1
ALIGN=LEFT>";
$LastYear = int($INPUT{'Year'});
$LastMonth = int($INPUT{'Month'})-1;
if ($LastMonth == 0) {
        $LastMonth = 12;
        $LastYear -= 1;
}
print "<FORM METHOD=POST ACTION=$cgiurl>";
print "<INPUT TYPE=HIDDEN NAME=Month VALUE=$LastMonth>";
print "<INPUT TYPE=HIDDEN NAME=Year VALUE=$LastYear>";
print "<INPUT TYPE=HIDDEN NAME=Type VALUE=$INPUT{'Type'}>";
print "<INPUT TYPE=IMAGE SRC=last.gif BORDER=0 WIDTH=73 HEIGHT=34 ALT=Next
VALUE=\"Last Month\">";
print "</FORM></TD>\n";

	print "<TH><H1><FONT FACE=\"arial, helvetica\" SIZE=6>$heading</FONT></H1></TH>";

	print "<TD COLSPAN=1 ALIGN=RIGHT>";
$NextYear = int($INPUT{'Year'});
$NextMonth = int($INPUT{'Month'})+1;
if ($NextMonth == 13) {
        $NextMonth = 1;
        $NextYear += 1;
}
print "<TD><FORM METHOD=POST ACTION=$cgiurl>";
print "<INPUT TYPE=HIDDEN NAME=Month VALUE=$NextMonth>";
print "<INPUT TYPE=HIDDEN NAME=Year VALUE=$NextYear>";
print "<INPUT TYPE=HIDDEN NAME=Type VALUE=$INPUT{'Type'}>";
print "<INPUT TYPE=IMAGE SRC=next.gif BORDER=0 WIDTH=73 HEIGHT=34 ALT=Last
VALUE=\"Next Month\">";
print "</FORM></TD>\n";

	print "</TABLE></TH></TR>";
	foreach $key (1..7) {
		print "<TD CELLPADDING=0 WIDTH=14% ALIGN=CENTER>";
		print "<BIG><FONT FACE=\"arial, helvetica\" SIZE=3
COLOR=#990000><STRONG>@days[$key-1]</STRONG></BIG></TH>";
	}
	print "\n</TR><TR>\n";
	if ($perp_dow > 0) {
		print "<TD COLSPAN=$perp_dow>";
		print "<P>&nbsp</TD>";
	}
	foreach $key (1..$perp_eom) {
		print "<TD VALIGN=TOP WIDTH=14% ALIGN=CENTER>";
		if (($INPUT{'Year'} == $year)
		  && ($INPUT{'Month'} == $month)
		  && ($key == $mday)) {
			print "<P><FONT FACE=\"arial, helvetica\"><BIG><STRONG><BLINK>$key</BLINK></STRONG></BIG>";
		}
		else {
			print "<P><FONT FACE=\"arial, helvetica\"><BIG><STRONG>$key</STRONG></BIG>";
		}
		print "<SMALL>($perp_sofar/$perp_togo)</SMALL>";
		$perp_sofar++;
		$perp_togo -= 1;
		if ($Table{$key}) { print "$Table{$key}"; }
		else { print "<P>&nbsp;"; }
		print "</TD>";
		$weekday = ($key+$perp_dow)-(int(($key+$perp_dow)/7)*7);
		if (($weekday == 0) && !($key == $perp_eom)) {
			print "\n</TR><TR>\n";
		}
	}
	if ($weekday > 0) {
		$leftover = 7-$weekday;
		print "<TD COLSPAN=$leftover>";
		print "<P>&nbsp;</TD>";
	}
	print "</TR></TABLE></CENTER></P>\n";
}


&Footer;
exit;

sub Header {
	($title) = @_;
	print "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n";
	print "<BODY $bodyspec>\n";
	if ($header_file) {
		open (HEADER,"$header_file");
		@header = <HEADER>;
		close (HEADER);
		foreach $line (@header) {
			if ($line =~ /<!--InsertAdvert\s*(.*)-->/i) {
				&insertadvert($1);
			}
			else {
				print "$line";
			}
		}
	}
}

sub Footer {
	print "<HR WIDTH=50%>\n";
	print "<FORM METHOD=POST ACTION=$cgiurl>\n";
	print "<P><CENTER>Month: <SELECT NAME=Month>";
	foreach $key (1..12) {
		print "<OPTION VALUE=$key";
		if ($INPUT{'Month'} eq $key) { print " SELECTED"; }
		print ">@months[$key-1]";
	}
	print "</SELECT> ";
	print "Year: <INPUT TYPE=TEXT NAME=Year ";
	print "VALUE=$INPUT{'Year'} SIZE=4> ";
	print "Type: <SELECT NAME=Type>";
	print "<OPTION VALUE=Table";
	if ($INPUT{'Type'} eq "Table") { print " SELECTED"; }
	print ">Table";
	print "<OPTION VALUE=Text";
	if ($INPUT{'Type'} eq "Text") { print " SELECTED"; }
	print ">Text";
	print "</SELECT>\n";
	print "<P><INPUT TYPE=SUBMIT VALUE=\"Get Calendar\">\n";
	print "</CENTER></P></FORM>\n";
	print "<HR><P ALIGN=CENTER><SMALL>";
	print "Maintained with a modified version of <STRONG>";
	print "<A HREF=\"http://awsd.com/scripts/webcal/\">";
	print "WebCal $version</A></STRONG>.</SMALL></P>\n";
	if ($footer_file) {
		open (FOOTER,"$footer_file");
		@footer = <FOOTER>;
		close (FOOTER);
		foreach $line (@footer) {
			if ($line =~ /<!--InsertAdvert\s*(.*)-->/i) {
				&insertadvert($1);
			}
			else {
				print "$line";
			}
		}
	}
	print "</BODY></HTML>\n";
}

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; }
	$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;
			}
		}
	}
}

sub insertadvert {
	require "/u2/www/users/dburgdor/scripts/ads/ads_display.pl";
	$adverts_dir = "/u2/www/users/dburgdor/scripts/ads/ads";
	$display_cgi = "http://awsd.com/scripts/ads/ads.pl";
	$advertzone = $_[0];
	$ADVUseBackup = 1;
	$ADVUseLocking = 1;
	$NonSSI = 0;
	$ADVNoPrint = 1;
	&ADVsetup;
}