forked from hummypkg/webif
23 lines
373 B
Tcl
Executable File
23 lines
373 B
Tcl
Executable File
#!/mod/bin/jimsh
|
|
|
|
source /mod/webif/lib/setup
|
|
require epg.class json
|
|
|
|
httpheader "application/json"
|
|
|
|
puts "{"
|
|
set flag 0
|
|
|
|
lmap i [$channeldb query "
|
|
select usLcn, szSvcName
|
|
from TBL_SVC
|
|
order by 1
|
|
"] {
|
|
if {$::flag} { puts "," } else { incr ::flag }
|
|
lassign $i x lcn x name
|
|
puts -nonewline " \"$lcn\": \"[jescape [system strip $name]]\""
|
|
}
|
|
|
|
puts "\n}"
|
|
|