forked from hummypkg/webif
101 lines
1.8 KiB
Plaintext
Executable File
101 lines
1.8 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/var/mongoose/lib/epg.class
|
|
|
|
puts "Content-Type: text/html"
|
|
puts ""
|
|
|
|
cgi_input
|
|
#cgi_dump
|
|
|
|
set service 0
|
|
catch { set service [dict get $_cgi service] }
|
|
set event 0
|
|
catch { set event [dict get $_cgi event] }
|
|
if {! [dict exists $_cgi bare]} {
|
|
source /mod/var/mongoose/html/lib/header.jim
|
|
}
|
|
|
|
#set service 8384
|
|
#set event 25293
|
|
|
|
set record [lindex [epg fetch dump -service $service -event $event] 0]
|
|
|
|
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}]</td>
|
|
</tr><tr>
|
|
<th>Duration</th>
|
|
<td>[clock format [$record get duration] -format %T]</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>[$record get channel_crid][$record get event_crid]</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]>
|
|
[$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]>
|
|
[$rec get name]
|
|
([$rec get channel_crid][$rec get event_crid])
|
|
</a>
|
|
</td></tr>"
|
|
}
|
|
}
|
|
|
|
puts "
|
|
<tr>
|
|
<td colspan=2>
|
|
[$record icon_set]
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
"
|
|
|
|
epg cleanup
|
|
if {! [dict exists $_cgi bare]} {
|
|
source /mod/var/mongoose/html/lib/footer.jim
|
|
}
|
|
|