#!/usr/bin/perl
use DBI;

#use CGI qw/:standard/;
#use Carp::Heavy;
#use LWP::Simple;

my $cgiparam ;

my $database = "tvguide";
my $hostname = "localhost";
my $user = "*****";
my $password = "*****";

my $driver = "mysql";
my $dsn = "DBI:$driver:database=$database;host=$hostname";
my $dbh ;

my $palm = "false" ;

sub PrintMyTVListings(){
	$cgiparam = shift;
	
	$dbh = DBI->connect($dsn, $user, $password);
	#TrimTable();

	if ($cgiparam->param()) {
		if( $cgiparam->param("type") eq "GetListings" ) {
			PrintTop();
			GetListings("Now");
		} else {
			if( $cgiparam->param( "type" ) eq "GetSelectedListings" ) {
				PrintTop();
				GetListings( "Selected", $cgiparam->param("SelectedDate"), $cgiparam->param("SelectedTime"));
			} else {
				if( $cgiparam->param( "type" ) eq "PayPerView" ) {
					PrintTop();
					PayPerView("Now");
				} else {
					if ( $cgiparam->param( "type" ) eq "PalmDetails" ) {
						$palm = "true" ;
						Palm( "Selected", $cgiparam->param("SelectedDate"), $cgiparam->param("SelectedTime"));
					} else {
						if ( $cgiparam->param( "type" ) eq "Palm" ) {
							$palm = "true" ;
							PalmPrep();
						} else {
							PrintTop();
							GetListings("Now");
						}
					}
				}
			}
		} 
	} else {
		PrintTop();
		GetListings("Now");
	}

	if( $palm eq "true" ) {
		PrintBottomPalm();
	} else {
		PrintBottom();
	}
}

sub Palm(){
	PrintTopPalm( @_ );
	GetListings("Selected", @_[1], @_[2] );
}

sub PrintTopPalm() {
	my $Date = @_[1];
	my $Time = @_[2];

	print "$Time\n";
print <<EOF;
<TABLE BORDER='1' RULES='ROWS' CELLPADDING='0' CELLSPACING='0' BORDERCOLORLIGHT='#000000' BORDERCOLORDARK'#000000' >
<TR><TH>Cnl</TH><TH>Ttl</TH><TH>Len</TH></TR>
EOF
}

sub PalmPrep() {
	my $sth_statement = "SELECT DISTINCT DATE_FORMAT( start_date, '%Y-%m-%d') FROM programme";


	my $sth = $dbh->prepare($sth_statement);
	$sth->execute();
		
	while ( my @row = $sth->fetchrow_array ) {
		my $DTwjm = @row[0];
		print "<table>";
		print "<tr><th colspan=2 align='center'>$DTwjm</th></tr><br>";
		foreach( '08', '09', 10...23 ) {
			print "<tr>" ;
			my $hr = $_;
			my $hrdisplay = $hr - 0;
			my $ampm = "AM" ;
			if( $hr > 11 ) {
				if( $hr > 12 ) {
					$hrdisplay = $hr - 12;
				}
				$ampm = "PM" ;
			}
			foreach( "00", "30" ) {
				print "<td align='right'>" ;
				print '<A HREF="/cgi-bin/myhomeplugins.pl?plug=tvlistings&type=PalmDetails&SelectedDate=' . $DTwjm . '&SelectedTime=' . $hr . '%3A' . $_ . '">' . $hrdisplay . ':' . $_ . ' ' . $ampm . '</A><br>';
				print "</td>" ;
			}
			print "</tr>" ;
		}
		print "</table>";
	}
}

sub PrintBottomPalm(){
print <<EOF;
</TABLE>
EOF
}

sub GetListings() {
	my $Type = @_[0];
	my $DTwjm = "NOW()";

	if( $Type eq "Now" ) {
		$DTwjm = "NOW()";
	} else {
		my $Date = @_[1];
		my $Time = @_[2];
		$DTwjm = "'" . $Date . ' ' . $Time . "'";
	}

	PopulateHListStyle( "SELECT DISTINCT channel.id, TIME_FORMAT(start_date, '%I:%i') , programme.title, sub_title, star_rating, length, desc_str, channel.iconurl, programme.uniquenum, channellike.id, hatedcategories.category, hatedprograms.title FROM programme LEFT OUTER JOIN channel ON programme.channel_no = channel.channelnum LEFT OUTER JOIN channellike ON channel.id = channellike.id LEFT OUTER JOIN hatedcategories ON programme.category = hatedcategories.category LEFT OUTER JOIN hatedprograms ON programme.title = hatedprograms.title WHERE START_DATE < DATE_ADD( $DTwjm, INTERVAL '14:00' MINUTE_SECOND ) AND ((  TIME_TO_SEC( $DTwjm ) - TIME_TO_SEC( START_DATE ) ) / 60 ) < 20 AND STOP_DATE > $DTwjm AND channel not like '2__ %' ORDER BY channel.channelnum" );

}

sub PayPerView() {
	my $Type = @_[0];
	my $DTwjm = "NOW()";

	if( $Type eq "Now" ) {
		$DTwjm = "NOW()";
	} else {
		my $Date = @_[1];
		my $Time = @_[2];
		$DTwjm = "'" . $Date . ' ' . $Time . "'";
	}

	PopulateHListStyle( "SELECT DISTINCT channel.id, TIME_FORMAT(start_date, '%I:%i') , programme.title, sub_title, star_rating, length, desc_str, channel.iconurl, programme.uniquenum, channellike.id, hatedcategories.category, hatedprograms.title FROM programme LEFT OUTER JOIN channel ON programme.channel_no = channel.channelnum LEFT OUTER JOIN channellike ON channel.id = channellike.id LEFT OUTER JOIN hatedcategories ON programme.category = hatedcategories.category LEFT OUTER JOIN hatedprograms ON programme.title = hatedprograms.title WHERE START_DATE < DATE_ADD( $DTwjm, INTERVAL '14:00' MINUTE_SECOND ) AND ((  TIME_TO_SEC( $DTwjm ) - TIME_TO_SEC( START_DATE ) ) / 60 ) < 20 AND STOP_DATE > $DTwjm AND channel like '2__ %' ORDER BY channel.channelnum" );

}

sub PopulateHListStyle {

	my $sth_statement = @_[0];

#	print $sth_statement;

	my $sth = $dbh->prepare($sth_statement);
	$sth->execute();
		
	while ( my @row = $sth->fetchrow_array ) {
		my $title = @row[2] ;
		$title = $title . '-' . @row[3] if ( @row[3] ne '' );
		my $line = @row[1];
		$line =~ s/[0-9][0-9][0-9][0-9]-[01][0-9]-[0-9][0-9] ([0-9][0-9]:[0-9][0-9]):00.000/$1/g;
		my $style = 'normal';
		if( @row[5] > 60 ) { $style = 'movie'; }
		#$style = 'preferred';

		my $ilike = "ILike";
		if(  @row[9] eq '' ) {
			$ilike = "IHate";
		}
		if(  @row[10] ne '' ) {
			$ilike = "IHate";
		}
		if(  @row[11] ne '' ) {
			$ilike = "IHate";
		}

		printf "<TR CLASS='%s'>", $ilike;
		if( $palm eq "false" ) {
		if( @row[7] eq '' ) {
			printf "<TD CLASS='%s'>&nbsp;</TD>", $style, @row[7] ;
		} else {
			printf "<TD CLASS='%s'><IMG SRC='%s' ALIGN=ABSMIDDLE>&nbsp;</TD>", $style, @row[7] ;
		}
		}
		printf "<TD CLASS='%s'>%s&nbsp;</TD>", $style, @row[0] ;
		if( $palm eq "false" ) {
			printf "<TD CLASS='%s'>%s&nbsp;</TD>", $style, $line ;
		}
		if( @row[6] eq '' ) {
			printf "<TD CLASS='%s'>%s</A>&nbsp;</TD>", $style, $title ;
		} else {
			printf "<TD CLASS='%s' TITLE=\"%s\" ><A HREF='myhomeplugins.pl?plug=tvlistingsdetails&uniquenum=%s'>%s</A>&nbsp;</TD>", $style, $cgiparam->escapeHTML(@row[6]), @row[8], $title ;
		}
		if( $palm eq "false" ) {
			printf "<TD CLASS='%s' ALIGN=right>%s&nbsp;</TD>", $style, @row[4] ;
		}
		printf "<TD CLASS='%s' ALIGN=right>%s</TD>", $style, @row[5] ;
		print "</TR>\n";
	}
}

sub PrintTop() {

print <<EOF;
<STYLE>
tr.ILike { }
tr.IHate { display: none }
</STYLE>
<TABLE BORDER='1' RULES='ROWS' CELLPADDING='0' CELLSPACING='0' BORDERCOLORLIGHT='#000000' BORDERCOLORDARK'#000000' WIDTH='100%'>
<TR><TH colspan=2>Channel</TH><TH>Time</TH><TH>Title</TH><TH>Rating</TH><TH>Length</TH></TR>
EOF
}

sub PrintBottom() {
print <<EOF;
<TR><TD COLSPAN=6 ALIGN=CENTER>
<FORM>
<script language="javascript" defer="true">
<!--
	function filter() {
		var sClass = window.event.srcElement.value;
		var rows = document.all.tags("tr");
		if (rows) {
			for (var i = 0;i < rows.length;i++) {
				if ((rows[i].className == "ILike") || (rows[i].className == "IHate")) {
					if ((rows[i].className != sClass) && (sClass != "")) {
						rows[i].style.display = "none";
					} else {
						rows[i].style.display = "block";
					}
				}
			}
		}
	}
//-->
</script>
View Only:
<SELECT id="mnuFilter" onChange="filter()">
	<option value ="ILike">I Like</option>
	<option value ="IHate">I Hate</option>
	<option value ="">All</option>
</SELECT>
EOF

print <<EOF;
<INPUT TYPE='Hidden' NAME='plug' VALUE='tvlistings'>
<INPUT TYPE='Hidden' NAME='type' VALUE='GetSelectedListings'>
<SELECT NAME='SelectedDate'>
EOF

GenerateOptions( "select distinct DATE_FORMAT( start_date, '%Y-%m-%d' )  from programme" );

print <<EOF;
</SELECT>
&nbsp;
<SELECT NAME='SelectedTime'>
EOF

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $DTwjm = ( 1900 + $year ) . "-" . ( $mon + 1 ) . "-" . $mday;
print "$DTwjm<br>";
foreach( '08', '09', 10...23 ) {
	my $hr = $_;
	foreach( "00", "30" ) {
		print "<OPTION";
		if( $hr eq $hour and $_ eq "00" ) {
			print " SELECTED" ;
		}
		print ">" . $hr . ':' . $_ ;
	}
}

print <<EOF;
</SELECT>
<INPUT TYPE='Submit' VALUE='Go!'>
</FORM>
<TABLE WIDTH=100%>
<TR><TD width=50% align=center>
	<FORM><INPUT TYPE='Hidden' NAME='plug' VALUE='tvlistings'>
	<INPUT TYPE='hidden' NAME='type' VALUE='GetListings'><BUTTON TYPE='Submit'>Watch Now? </BUTTON></FORM></TD>
<TD width=50% align=center>
	<FORM><INPUT TYPE='Hidden' NAME='plug' VALUE='tvlistings'><INPUT TYPE='hidden' NAME='type' VALUE='PayPerView'><BUTTON TYPE='Submit'>Pay Per View?</BUTTON></FORM></TD>
</TR></TABLE></TD></TR></TABLE>
EOF
}

sub GenerateOptions() {

	my $sth_statement = @_[0];

	my $sth = $dbh->prepare($sth_statement);
	$sth->execute();
		
	while ( my @row = $sth->fetchrow_array ) {
		printf "<OPTION>%s\n", @row[0];
	}
}

sub TrimTable(){
	
	my $sth = $dbh->prepare("DELETE FROM programme WHERE START_DATE < NOW() AND STOP_DATE < NOW()" );
	$sth->execute();

}

1;