forked from hummypkg/webif
58 lines
1.1 KiB
Plaintext
Executable File
58 lines
1.1 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/var/mongoose/lib/epg.class
|
|
source /mod/var/mongoose/lib/altrow
|
|
|
|
puts "Content-Type: text/html"
|
|
puts ""
|
|
|
|
source /mod/var/mongoose/html/lib/header.jim
|
|
|
|
cgi_input
|
|
#cgi_dump
|
|
|
|
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
|
|
|