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
|
|
|
|
2011-07-01 22:56:53 +00:00
|
|
|
header
|
2011-06-07 13:26:45 +00:00
|
|
|
|
2013-02-09 22:46:15 +00:00
|
|
|
set service [cgi_get service]
|
|
|
|
set event [cgi_get event]
|
|
|
|
set raw [cgi_get raw]
|
2011-06-07 13:26:45 +00:00
|
|
|
|
|
|
|
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
|
|
|
|