#!/usr/bin/perl

use strict;
use Fcntl;
use CGI;

my $cgi = new CGI;
my $date_dir = 'dates/';

# Check month & date params
###############################
unless($cgi->param('month') =~ /\w+/ && $cgi->param('date') =~ /\d{2}/){
     die "Invalid parameters!\n";
}

my $date_file = $date_dir . $cgi->param('month') . $cgi->param('date');

my $file_identifier = '### CALENDAR.PL DATE FILE ' . $cgi->param('month') . $cgi->param('date');

# Style sheet
#########################
my $cal_style= <<"EOT";
<!--
.wd 	{ color: #ffffff; }
.action	{
	text-decoration: none; 
	font-size: 8px; 
	}
-->
EOT

# Some color settings
##########################
my $time_bg_color = '#ff0000';
my $entry_bg_color = '#efefef';
my $alt_entry_bg_color = '#c0c0c0';

print $cgi->header(),
	$cgi->start_html(
		-title=>'Calendar',
		-BGCOLOR=>'#ffffff',
		-style=>{ -code=>$cal_style },
		);

print $cgi->h2(
	'Entries for ',
	$cgi->param('month'),'-',
	$cgi->param('date'),'-2000',
	);
	
# Read in old entries if any
#############################
my(@entries);
if(-e $date_file){
	sysopen(ENTRIES,$date_file,O_RDONLY) || 
		die "Cannot open $date_file: $!\n";
	flock(ENTRIES,1);
	@entries = <ENTRIES>;
	close(ENTRIES);

        
}

# Check to see if requested date file is valid
################################################
unless(splice(@entries,0,1) eq  $file_identifier){
     die "Not a valid date file!\n";
}

print '<table cellspacing=1 cellpadding=0 border=0><tr>';

# Start day at $time_count
##########################
my $time_count = 8;

for(;$time_count < 25; $time_count++){
	print '<tr><td class="wd" bgcolor="',
		$time_bg_color,
		'">&nbsp;&nbsp;',
		$time_count,
		':00&nbsp;&nbsp;</td>';
		
	# A different coloring for each line
	######################################
	print '<td width=400';
	if($time_count & 1){
		print ' bgcolor="',
			$entry_bg_color,
			'">&nbsp;';
	}
	else{
		print ' bgcolor="',
			$alt_entry_bg_color,
			'">&nbsp;';
	}
	foreach(@entries){
		if(/^$time_count:([^\n].+)/){
			print $1 . '&nbsp;&nbsp;';
			
		}
	}
	print '</td><td';
	
	if($time_count & 1){
                print ' bgcolor="',
			$entry_bg_color,
			'">&nbsp;';
        } 
	else{
		print ' bgcolor="',
			$alt_entry_bg_color,
			'">&nbsp;';
	}
	
	# A link to add an entry
	###############################
	print '[<a class="action" href="alterDate.pl?date=',
		 $cgi->param('date'),
		 '&month=',
		 $cgi->param('month'), 
		 '&time=',
		 $time_count,
		 '&action=add">ADD ENTRY</a> |';
	
	# ..and to remove one
	print '<a class="action" href="alterDate.pl?date=',
		 $cgi->param('date'),
		 '&month=',
		 $cgi->param('month'), 
		 '&time=',
		 $time_count,
		 '&action=rem"> REMOVE</a>]&nbsp;';
		 
	print '</tr>';
}

print '</table>';

print $cgi->p;
print '<a href="calendar.pl">Back to the calendar</a>';

print $cgi->end_html;