#!/mod/bin/jimsh

source /mod/var/mongoose/lib/setup
require altrow rsv.class progressbar

set events [rsv list]

puts {
	<table class=borders>
	<tr>
		<th colspan=2>Channel</th>
		<th>Programme</th>
		<th>Start Time</th>
		<th>Duration</th>
		<th>Mode</th>
		<th>Event/Series ID</th>
		<th>Events</th>
	</tr>
}

foreach event $events {
	set name [$event name]

	altrow

	set rsvicon ""
	switch [$event get ersvtype] {
		1 { set rsvicon "175_1_00_Reservation_Watch.png" }
		2 { set rsvicon "175_1_00_Reservation_Watch.png" }
		3 { set rsvicon "175_1_11_Reservation_Record.png" }
		5 { set rsvicon "745_1_10_Video_2Live.png" }
		6 { set rsvicon "745_1_11_Video_1REC.png" }
		7 { set rsvicon "345_6_08_ST_Ad_Hoc.png" }
	}

	set series 0
	if {[$event get ucRecKind] == 4} {
		set RKIcon "175_1_11_Series_Record.png"
		set series 1
	} else {
		switch [$event get erepeat] {
			1 {set RKIcon "521_1_00_RP_Daily_C.png"}
			2 {set RKIcon "521_1_00_RP_Weekly_C.png"}
			3 {set RKIcon "521_1_00_RP_Weekdays_C.png"}
			4 {set RKIcon "521_1_00_RP_Weekend_C.png"}
			default {set RKIcon ""}
		}
	}

	if {$rsvicon ne ""} {
		set rsvicon "<img src='images/$rsvicon' height=20>
	}
	if {$RKIcon ne ""} {
		set RKIcon "<img src='images/$RKIcon' height=20>
	}

	if {[$event get usLcn] ne ""} {
		puts "
		<td>
			<img src=\"/img/channels/[$event channel_name].png\"
			    width=50>
		</td>
		<td nowrap>[$event get usLcn]<br>
			[$event channel_name]</td>
		"
	} else {
		puts "<td colspan=2>&nbsp;<br><br></td>"
	}

	puts "<td nowrap>$name</td>"

	set s [$event get nsttime]
	set d [$event get nduration]
	set e $($s + $d)
	set n [clock seconds]

	if { $n > $e } {
		puts "<td class=blood nowrap class=va>"
	} else {
		puts "<td nowrap class=va>"
	}
	puts "[clock format $s -format "%a %d %b %Y"]<br>
	    [clock format $s -format "%H:%M %Z"]"

	if {$d > 0 && $n > $s && $n < $e} {
		puts "<br>"
		set perc [expr [expr $n - $s] * 100 / $d]
		puts "<img class=va src=/images/745_1_11_Video_1REC.png>"
		puts [progressbar $perc]
	}

	puts "</td>"

	puts "<td>[clock format [$event get nduration] -format %T]</td>"

	puts "<td nowrap>$rsvicon $RKIcon</td>"
	puts "<td nowrap>"
	set crid [join [lrange [split [$event get szCRID] /] 1 end]]
	if {$crid != ""} {
		puts -nonewline "<a href=/cgi-bin/epg_search.jim?"
		if $series { puts -nonewline "s" }
		puts "crid=/$crid>
		<img border=0 src=/images/421_1_00_CH_Title_2R_Arrow.png
		    height=14>
		[$event get szCRID]"
		puts "</a>"
	}
	puts "</td>"
	puts "<td nowrap>"
	set flag 0
	foreach ev [split [$event get szEventToRecord] "|"] {
		if {$ev eq ""} { continue }
		set ev [string range $ev 1 end]
		if {$flag} { puts "<br>" }
		incr flag
		set crid [join [lrange [split $ev /] 1 end]]
		puts -nonewline "<a href=/cgi-bin/epg_search.jim?"
		puts "crid=/$crid>
		<img border=0 src=/images/421_1_00_CH_Title_2R_Arrow.png
		    height=14> 
		$ev"
		puts "</a>"
	}
	puts "</td>"
	puts "</tr>"
}
puts "</table>"
puts "<font class=footnote>Click on the CRID to view episodes.</font>"