forked from hummypkg/webif
20 lines
415 B
Tcl
Executable File
20 lines
415 B
Tcl
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/webif/lib/setup
|
|
require ts.class json
|
|
|
|
httpheader "application/json"
|
|
|
|
set file [cgi_get file]
|
|
if {$file == 0} exit
|
|
set ts [ts fetch $file]
|
|
|
|
puts "{"
|
|
puts "\"title\" : \"[jescape [$ts get title]]\","
|
|
puts "\"synopsis\" : \"[jescape [$ts get synopsis]]\","
|
|
puts "\"guidance\" : \"[jescape [$ts get guidance]]\","
|
|
puts "\"genre\" : [jescape [$ts genrenib]]"
|
|
puts "}"
|
|
|