forked from hummypkg/webif
d1cfff8899
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@220 2a923420-c742-0410-a762-8d5b09965624
109 lines
2.2 KiB
Plaintext
Executable File
109 lines
2.2 KiB
Plaintext
Executable File
#!/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 0
|
|
catch { set service [dict get $_cgi service] }
|
|
set event 0
|
|
catch { set event [dict get $_cgi event] }
|
|
if {! [dict exists $_cgi bare]} { header }
|
|
|
|
#set service 8384
|
|
#set event 25293
|
|
|
|
set record [lindex [epg fetch dump -service $service -event $event] 0]
|
|
$record get_channel_info
|
|
|
|
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]>
|
|
<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] " "]
|
|
</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>
|
|
"
|
|
|
|
epg cleanup
|
|
if {! [dict exists $_cgi bare]} { footer }
|
|
|