forked from hummypkg/webif
35 lines
638 B
Plaintext
35 lines
638 B
Plaintext
|
#!/mod/bin/jimsh
|
||
|
|
|
||
|
|
package require cgi
|
||
|
|
package require pack
|
||
|
|
|
||
|
|
puts "Content-Type: application/json"
|
||
|
|
puts ""
|
||
|
|
|
||
|
|
cgi_input
|
||
|
|
#cgi_dump
|
||
|
|
|
||
|
|
#set _cgi(dir) "/media/My Video"
|
||
|
|
|
||
|
|
set root [dict get $_cgi dir]
|
||
|
|
# Strip double slashes
|
||
|
|
regsub -all -- {\/+} "$root/*" "/" root
|
||
|
|
|
||
|
|
puts "{"
|
||
|
|
foreach dir [glob -nocomplain "$root"] {
|
||
|
|
if {[file exists "$dir/.series"]} {
|
||
|
|
set fd [open "$dir/.series"]
|
||
|
|
set bytes [read $fd 8]
|
||
|
|
set recs [unpack $bytes -uintle 0 32]
|
||
|
|
set plays [unpack $bytes -uintle 32 32]
|
||
|
|
set diff $($recs - $plays)
|
||
|
|
if {$diff != 0} {
|
||
|
|
set node [lindex [split $dir /] end]
|
||
|
|
puts "\"$node\": $diff,"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
puts "\"dummy\" : 0"
|
||
|
|
puts "}"
|
||
|
|
|