2011-06-07 13:26:45 +00:00
|
|
|
#!/mod/bin/jimsh
|
|
|
|
|
|
|
|
package require cgi
|
2012-05-21 20:23:41 +00:00
|
|
|
source /mod/webif/lib/setup
|
2011-07-01 22:56:53 +00:00
|
|
|
require epg.class
|
2011-06-07 13:26:45 +00:00
|
|
|
|
|
|
|
puts "Content-Type: text/html"
|
|
|
|
puts ""
|
|
|
|
|
2011-07-01 22:56:53 +00:00
|
|
|
header
|
2011-06-07 13:26:45 +00:00
|
|
|
|
|
|
|
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
|
2011-07-01 22:56:53 +00:00
|
|
|
|
|
|
|
footer
|
2011-06-07 13:26:45 +00:00
|
|
|
|