forked from hummypkg/webif
2ab6f7caa2
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1398 2a923420-c742-0410-a762-8d5b09965624
30 lines
588 B
Plaintext
Executable File
30 lines
588 B
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
package require pack
|
|
source /mod/webif/lib/setup
|
|
|
|
httpheader "application/json"
|
|
|
|
set root [cgi_get 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 "}"
|
|
|