#!/usr/bin/perl
use Conference;
use CGI_Lite;
use Time::JulianDay;
use Time::ParseDate;
use Time::DaysInMonth;
use Time::CTime qw(:DEFAULT @MonthOfYear);
use DBI;
use Text::Template;
use strict;

my ($config, $cgi, $dbh, $form, %Actions, $routine,
	$template, $details,
	$fill_in, $filled,
	);

$config = new Conference;
$cgi = new CGI_Lite;
$dbh = DBI->connect($config->database, $config->DBI_username,
			$config->DBI_password, $config->DBI_arg);
$dbh->{'LongReadLen'} = 6000;

print "Content-type: text/html\r\n\r\n";
$form = $cgi->parse_form_data;

%Actions = (Default => \&Display,
			Display => \&Display,
			Details => \&Details,
			Jump    => \&Jump,
			Find    => \&Find,
			 );

$routine = (defined($Actions{$form->{action}})) ?
			 $Actions{$form->{action}} :
			 $Actions{Default} ;
($template, $details) = $routine->($config, $cgi, $form, $dbh);
$fill_in = new Text::Template ( TYPE => 'FILE',
		SOURCE => $config->templates . "/" . $template . ".html");
$filled = $fill_in->fill_in( HASH => [ $config, $form, $details ],
			DELIMITERS => [ '[##', '##]' ]
			);
print $filled;

$dbh->disconnect;
#############################

sub Display	{
	#  Display the events for 'today'.
	my ($config, $cgi, $form, $dbh) = @_;
	my ($template, $details, 
		@reservations, $reservation, 
		$room, $hour, $reserve,
		$duration, $Data, $todaytime, $i,
		%Table, @Times, %Rooms,
		$sth,
		);

	@Times = @{$config->Times};	
	$form->{today} ||= local_julian_day(time);
	$todaytime=jd_secondslocal($form->{today},0,0,0);

	$details->{reserve_link} = $config->base_url . "/" . $config->reserve.
		"?action=Reserve&today=$form->{today}";
	$details->{today_text} = 
		  strftime('%A, %B %o, %Y', localtime($todaytime));
	$details->{day} =  strftime('%d', localtime($todaytime));
	$details->{year} = strftime('%Y', localtime($todaytime));
	$details->{yesterday} = $form->{today}-1;
	$details->{tomorrow} = $form->{today}+1;
	$details->{script_name}= $config->user;

	#  Get all of today's reservations
	$sth=$dbh->prepare("select * from reservation
						where day=$form->{today}
						");
	$sth->execute;
	while ($Data = $sth->fetchrow_hashref)	{
		for ($Data->{start}..$Data->{end}-1)	{
			$Table{$Data->{room}}->{$_} = $Data;
		}  # End for
	} # Wend

	# Get the rooms
	$details->{table} = "<tr><th align=\"left\" bgcolor=\"FFFFFF\"><font color=\"gray\" size=\"1\"></font></td>\n";
	$sth=$dbh->prepare("select * from room2 order by room");
	$sth->execute;
	while ($Data = $sth->fetchrow_hashref)	{
		$Rooms{$Data->{room}} = $Data->{ID};
		$details->{table} .= 
		   qq~<th bgcolor=\"FFFFFF\"><font color=\"FFFFFF\" size=\"1\">$Data->{room}</font></th>\n~;
	}
	$details->{table} .= "</tr>\n";

	for $hour (0..@Times)	{
		$details->{select_time} .= "<option value=$hour>$Times[$hour]\n";

		$details->{table} .= "<td align=left bgcolor=\"FFFFFF\"><font color=\"white\"><small>$Times[$hour]</small></font></td>\n";
		for (sort(keys %Rooms))  {
			$room = $Rooms{$_};
			if (defined ($Table{$room}->{$hour}))	{
				if ($Table{$room}->{$hour}->{start} == $hour)	{
					$duration=($Table{$room}->{$hour}->{end}-$Table{$room}->{$hour}->{start});
					$details->{table} .= qq~
						<td align=middle rowspan=$duration bgcolor=\"FFFFFF\"><div class=thin>
					<a href="~ . $config->base_url . qq~/~ . $config->user . 
						    qq~?action=Details&id=$Table{$room}->{$hour}->{ID}">$Table{$room}->{$hour}->{title}</a></div></td>
					~;
				} else {
					# Do nothing
				} # End if ... else
			} else {
				$details->{table} .= "\n"
			}  #  End if defined

		} #  End for room

	}  #  End for hour

	$details->{month} = strftime('%m', localtime($todaytime));
	for ($i=1; $i<=12; $i++)	{
		$details->{months} .= "<option value=$i";
		$details->{months} .= " SELECTED" if ($i == $details->{month});
		$details->{months} .= ">$MonthOfYear[$i-1]\n";
	}  #  End for

	$template = 'coupons';
	return ($template, $details);
}	# end sub Display


sub Details	{
	#  Display details on a particular conference reservation
	my ($config, $cgi, $form, $dbh) = @_;
	my ($template, $details,
		$sth, $rv, $setup, $temp,
		);

	$sth = $dbh->prepare("select *
					from reservation
					where ID=$form->{id}
					");
	$rv = $sth->execute;
	$details = $sth->fetchrow_hashref;

	foreach (qw(setup setup2)) {
	    $setup = $details->{$_};
	    $details->{$_} = "";
	    if ($setup =~ /^[0-9,]+$/) {  #regex to make sure no cruft
		$sth = $dbh->prepare("select setup from $_ where ID in ($setup)");
		$sth->execute;
		$sth->bind_columns(\$temp);
		$details->{$_} .= "$temp, " while ($sth->fetch);
		$sth->finish;
		$details->{$_} =~ s/, $//; #strip off trailing comma and space
	    } else {$details->{$_} = '';}
	} #end foreach

	$sth = $dbh->prepare("select room from room2
				where ID=$details->{room}");
	$sth->execute;
	($details->{room_name}) = $sth->fetchrow_array;

	my $tz = time - (.0*0*0);
	$details->{time} = strftime( 
            '%A, %B %o, %Y, %l:%M %p, %Z' ,
            localtime($tz));

	$details->{day_text} = 
		strftime('%A, %B %o, %Y',
				 localtime(jd_secondslocal($details->{day},0,0,0)));
	$details->{email_link} = ($details->{email}) ? 
		"<a href=\"mailto:$details->{email}\">$details->{name}</a>" :
		$details->{name};
	$details->{schedule_link} = $config->base_url . "/" . $config->user . 
				"?action=Display&today=$details->{day}";
	$details->{edit_link} = $config->base_url . "/" . $config->reserve . 
				"?action=Edit&id=$details->{ID}";
	$details->{delete_link} = $config->base_url . "/" . $config->reserve .
				"?action=Delete&id=$details->{ID}";
	$details->{'times'} = ${$config->Times}[$details->{start}] . " - " . 
				${$config->Times}[$details->{end}];

	$template = 'details';
	return ($template, $details);
}  # End sub Details

sub Jump	{
	#  Jump to a particular day
	my ($config, $cgi, $form, $dbh) = @_;
	my ($day_time, $template, $details);

	$form->{day} = sprintf "%.2d", $form->{day};
	$form->{month} = sprintf "%.2d", $form->{month};
	if ($form->{day} > days_in($form->{year}, $form->{month}))	{
		$form->{day} = days_in($form->{year}, $form->{month});
	}
	$day_time = parsedate("$form->{month}/$form->{day}/$form->{year}");
	$form->{today} = local_julian_day($day_time);
	($template, $details) = Display($config, $cgi, $form, $dbh);
	return ($template, $details);
}  #  End sub Jump

sub Find	{
	my ($config, $cgi, $form, $dbh) = @_;
	my ($template, $details, $sth, $day, $Data, %rooms);

	$day = julian_day($form->{year}, $form->{month}, $form->{day});
	$sth = $dbh->prepare("select room from reservation
						where day = $day
						and start < $form->{end}
						and end > $form->{start}
						");
	$sth->execute;
	while ($Data = $sth->fetchrow_hashref)	{
		$rooms{$Data->{room}}++;
	}

	$sth = $dbh->prepare("select * from room2 order by room");
	$sth->execute;
	while ($Data = $sth->fetchrow_hashref)	{
		$details->{available} .= qq~
		<li>$Data->{room}
		[ <a href="~ . $config->reserve
		. qq~?action=Reserve&today=$day&room=$Data->{ID}&begin=$form->{start}&end=$form->{end}">Reserve this time</a>
		]</li>
		~  unless (defined $rooms{$Data->{ID}});
	}  #  Wend
	
	$template = 'find_room';
	return ($template, $details);
}