2012-06-15 21:34:07 +00:00
|
|
|
#!/mod/bin/jimsh
|
|
|
|
|
|
|
|
package require cgi
|
2013-02-09 22:46:15 +00:00
|
|
|
source /mod/webif/lib/setup
|
2012-06-15 21:34:07 +00:00
|
|
|
|
2013-02-09 22:46:15 +00:00
|
|
|
httpheader "application/json"
|
2012-06-15 21:34:07 +00:00
|
|
|
|
|
|
|
set dir [cgi_get dir "/media/My Video/Children"]
|
|
|
|
|
|
|
|
puts "{"
|
|
|
|
foreach file [readdir -nocomplain $dir] {
|
|
|
|
if {![string match {*.ts} $file]} { continue }
|
|
|
|
|
2012-08-07 22:22:30 +00:00
|
|
|
set xfile [file rootname $file]
|
|
|
|
if {[catch {set eit [exec /mod/bin/stripts -cq "$dir/$xfile"]}]} {
|
2012-06-15 21:34:07 +00:00
|
|
|
continue
|
|
|
|
}
|
|
|
|
|
2012-06-16 21:57:24 +00:00
|
|
|
puts " \"$file\": $eit,"
|
2012-06-15 21:34:07 +00:00
|
|
|
}
|
|
|
|
puts " \"dummy\": 0"
|
|
|
|
puts "}"
|
|
|
|
|