23 lines
418 B
Plaintext
23 lines
418 B
Plaintext
|
#!/mod/bin/jimsh
|
||
|
|
|
||
|
|
package require cgi
|
||
|
|
source /mod/var/mongoose/lib/ts.class
|
||
|
|
|
||
|
|
puts "Content-Type: application/json"
|
||
|
|
puts ""
|
||
|
|
|
||
|
|
cgi_input
|
||
|
|
#cgi_dump
|
||
|
|
#set _cgi(file) "/media/My Video/Doctor Who/6.13._The_Almost_People.ts"
|
||
|
|
|
||
|
|
if {![dict exists $_cgi file]} { exit }
|
||
|
|
|
||
|
|
set file [dict get $_cgi file]
|
||
|
|
set ts [ts fetch $file]
|
||
|
|
|
||
|
|
puts "{"
|
||
|
|
puts "\"title\" : \"[$ts get title]\","
|
||
|
|
puts "\"synopsis\" : \"[$ts get synopsis]\""
|
||
|
|
puts "}"
|
||
|
|
|