#!/mod/bin/jimsh

package require cgi
source /mod/webif/lib/setup

httpheader "application/json"

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 "}"