webif/var/mongoose/cgi-bin/epg_info.jim

#!/mod/bin/jimsh

package require cgi
source /mod/var/mongoose/lib/setup
require epg.class

puts "Content-Type: text/html"
puts ""

cgi_input
#cgi_dump

set service [cgi_get service 0]
set event [cgi_get event 0]
if {! [dict exists $_cgi bare]} { header }

set record [lindex [epg fetch dump -service $service -event $event] 0]
$record get_channel_info
set others [$record othertimes]

puts {
	<style type=text/css>
	font.also
	{
		font-size: 0.9em;
		font-style: italic;
		color: #333;
		background: transparent;
	}
	</style>
}

puts "
	<table class=keyval>
	<tr>
		<th>Programme</th>
		<td>[$record get name]</td>
	</tr><tr>
		<th>Synopsis</th>
		<td>[$record get text]</td>
	</tr><tr>
		<th>Start</th>
		<td>[clock format [$record get start] -format {%c %Z}]
"

foreach o $others {
	if {[$o ended]} { continue }
	$o get_channel_info
	$o process_sched
	if {[$o get series_crid] eq ""} { set ro 1 } else { set ro 2 }
	puts -nonewline "<br><font class=also>&nbsp;&nbsp;&nbsp;&nbsp;"
	puts -nonewline "Also: "
	puts -nonewline "<a class=event href=# xs=[$o get service_id] "
	puts -nonewline "xe=[$o get event_id] "
	puts -nonewline "sch=[$o get sched_type] rec=$ro>"
	puts -nonewline "[clock format [$o get start] -format {%c %Z}]"
	puts -nonewline " on "
	puts -nonewline [$o channel_icon 16]
	puts -nonewline "[$o get channel_name] "
	puts "</a>"
	puts "</font>"
}

puts "
		</td>
	</tr><tr>
		<th>Duration</th>
		<td>[clock format [$record get duration] -format %T]
"
if {[$record showing]} {
	puts [progressbar [$record percent]]
}
puts "
	</td>
	</tr><tr>
		<th>Type</th>
		<td>[$record get content_type] ([$record get content_code])</td>
	</tr>
"

if {[$record get warning] != ""} {
	puts "
	<tr>
		<th>Warning</th>
		<td>[$record get warning]</td>
	</tr>
	"
}

if {[$record get event_crid] != ""} {
	puts "
	<tr>
		<th>CRID</th><td>
		<a href=/cgi-bin/epg_search.jim?crid=[$record get event_crid]>
			<img border=0 height=14
			    src=/images/421_1_00_CH_Title_2R_Arrow.png>
			[$record get channel_crid][$record get event_crid]
			</a>
		</td>
	</tr>
	"
}

if {[$record get series_crid] != ""} {
	puts "
	<tr>
		<th nowrap>Series CRID</th><td>
		<a href=/cgi-bin/epg_search.jim?scrid=[$record get series_crid]>
			<img border=0 height=14
			    src=/images/421_1_00_CH_Title_2R_Arrow.png>
			[$record get channel_crid][$record get series_crid]
			</a>
		</td>
	</tr>
	"
}

if {[$record get rec_crid] != ""} {
	set rec [$record recommended]
	if {$rec != ""} {
		puts "<tr><th>Recommends</th><td>
			<a href=/cgi-bin/epg_search.jim?crid=[$rec get event_crid]>
			<img border=0 height=14
			    src=/images/421_1_00_CH_Title_2R_Arrow.png>
			[$rec get name]
			([$rec get channel_crid][$rec get event_crid])
			</a>
		</td></tr>"
	}
}

puts "
	<tr>
		<td colspan=2 valign=top>
			[$record channel_icon 70]
			[join [$record icon_set] "&nbsp;"]
		</td>
	</tr>
	</table>

	<a class=footnote href=/cgi-bin/epg_dump.jim?service=[$record get service_id]&event=[$record get event_id]&raw=1>
		<img border=0 src=/images/532_1_00_Find_Path_Arrow.png>
		Show raw EPG info
	</a>
"

puts "<div id=epginfo_extra class=footnote></div>"

epg cleanup
if {! [dict exists $_cgi bare]} { footer }