forked from hummypkg/webif
0a91878fd5
git-svn-id: file:///root/webif/svn/pkg/webif/trunk@2384 2a923420-c742-0410-a762-8d5b09965624
23 lines
358 B
Plaintext
Executable File
23 lines
358 B
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
source /mod/webif/lib/setup
|
|
require epg.class
|
|
|
|
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\": \"[system strip $name]\""
|
|
}
|
|
|
|
puts "\n}"
|
|
|