forked from hummypkg/webif
34 lines
636 B
Plaintext
34 lines
636 B
Plaintext
|
#!/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 "{"
|
||
|
|
regsub -all {([\\["$])} $dir {\\\1} xdir
|
||
|
|
foreach file [readdir -nocomplain $dir] {
|
||
|
|
if {![string match {*.ts} $file]} { continue }
|
||
|
|
|
||
|
|
regsub -all {([\\["$])} [file rootname $file] {\\\1} xfile
|
||
|
|
if {[catch {set perc [exec /mod/bin/stripts -Aq "$xdir/$xfile"]}]} {
|
||
|
|
continue
|
||
|
|
}
|
||
|
|
if {[string match {*%} $perc]} {
|
||
|
|
set perc [string range $perc 0 end-1]
|
||
|
|
} else {
|
||
|
|
set perc 0
|
||
|
|
}
|
||
|
|
|
||
|
|
puts " \"$file\": $perc,"
|
||
|
|
}
|
||
|
|
puts " \"dummy\": 0"
|
||
|
|
puts "}"
|
||
|
|
|