1a7cb41a16
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@730 2a923420-c742-0410-a762-8d5b09965624
140 lines
3.0 KiB
Plaintext
Executable File
140 lines
3.0 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 [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 "
|
|
<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> "
|
|
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] " "]
|
|
</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 }
|
|
|