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

68 lines
1.3 KiB
Plaintext
Raw Normal View History

#!/mod/bin/jimsh
package require cgi
source /mod/var/mongoose/lib/epg.class
source /mod/var/mongoose/lib/spinner.class
source /mod/var/mongoose/lib/altrow
source /mod/var/mongoose/lib/cat
puts "Content-Type: text/html"
puts ""
source /mod/var/mongoose/html/lib/header.jim
[spinner new {
text "Loading EPG Data..."
size "1.2em"
style "margin: 1em;"
}] start
cgi_input
#cgi_dump
source /mod/var/mongoose/lib/epg_popup
set service 0
set service 4351
catch { set service [dict get $_cgi service] }
set records [epg fetch dump -service $service]
set channel_num [[lindex $records 0] get channel_num]
set channel_name [[lindex $records 0] get channel_name]
puts "<h3>Channel: $channel_num - $channel_name</h3>"
puts {
<table class=borders>
<tr>
<th></th>
<th>Date</th>
<th>Time</th>
<th>Programme</th>
<th>Synopsis</th>
</tr>
}
set i 0
foreach record $records {
altrow
if {[$record showing]} {
puts "<td><img src=/images/111_1_00_Cursor_2R_Arrow.png></td>"
} else { puts "<td></td>" }
puts "<td nowrap>
[clock format [$record get start] -format "%a %d %b %Y"]</td>"
puts "<td nowrap>
[clock format [$record get start] -format "%H:%M"]</td>"
puts [$record cell]
puts "<td>[$record get text]</td>"
puts "<td>[$record get warning]</td>"
puts "</tr>"
flush stdout
}
puts "</table>"
epg cleanup
source /mod/var/mongoose/html/lib/footer.jim