36 lines
705 B
Plaintext
36 lines
705 B
Plaintext
|
#!/mod/bin/jimsh
|
||
|
|
|
||
|
|
package require cgi
|
||
|
|
source /mod/var/mongoose/lib/epg.class
|
||
|
|
|
||
|
|
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 event 0
|
||
|
|
catch { set event [dict get $_cgi event] }
|
||
|
|
set raw 0
|
||
|
|
catch { set raw [dict get $_cgi raw] }
|
||
|
|
|
||
|
|
puts "<pre>"
|
||
|
|
if { $raw == 0 } {
|
||
|
|
puts [epg exec dump -raw 1 -service $service -event $event]
|
||
|
|
puts "<a href=$env(REQUEST_URI)?$env(QUERY_STRING)&raw=1>
|
||
|
|
Click here for extended dump</a>"
|
||
|
|
} else {
|
||
|
|
puts [epg exec dumpraw -raw 1 -service $service -event $event]
|
||
|
|
}
|
||
|
|
|
||
|
|
puts "</pre>"
|
||
|
|
|
||
|
|
epg cleanup
|
||
|
|
source /mod/var/mongoose/html/lib/footer.jim
|
||
|
|
|