forked from hummypkg/webif
30 lines
546 B
Tcl
Executable File
30 lines
546 B
Tcl
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/webif/lib/setup
|
|
require json
|
|
|
|
httpheader "application/json"
|
|
|
|
set dir [cgi_get dir "/media/My Video/test"]
|
|
|
|
puts "{"
|
|
foreach file [readdir -nocomplain $dir] {
|
|
if {[file extension $file] ne ".mp3"} continue
|
|
|
|
if {[catch {
|
|
set lines [exec ffprobe -hide_banner -v error \
|
|
-show_streams "$dir/$file"]
|
|
}]} continue
|
|
|
|
foreach line $lines {
|
|
if {[string match "codec_name=mp*" $line]} {
|
|
puts "\"[jescape $file]\": \"[string range $line 11 end]\","
|
|
}
|
|
}
|
|
}
|
|
|
|
puts "\"dummy\":0"
|
|
puts "}"
|
|
|