#!/mod/bin/jimsh

package require cgi

#puts "Content-Type: text/plain"
puts "Content-Type: application/json"
puts ""

cgi_input
#cgi_dump

set dir [cgi_get dir "/media/My Video/Children"]

puts "{"
foreach file [readdir -nocomplain $dir] {
	if {![string match {*.ts} $file]} { continue }

	set xfile [file rootname $file]
	if {[catch {set eit [exec /mod/bin/stripts -cq "$dir/$xfile"]}]} {
		continue
	}

	puts " \"$file\": $eit,"
}
puts " \"dummy\": 0"
puts "}"

