2011-06-29 23:53:16 +00:00
|
|
|
#!/mod/bin/jimsh
|
|
|
|
|
|
|
|
|
|
package require cgi
|
|
|
|
|
package require pack
|
2013-02-09 22:46:15 +00:00
|
|
|
source /mod/webif/lib/setup
|
2011-06-29 23:53:16 +00:00
|
|
|
|
2013-02-09 22:46:15 +00:00
|
|
|
httpheader "application/json"
|
2011-06-29 23:53:16 +00:00
|
|
|
|
2013-02-09 22:46:15 +00:00
|
|
|
set root [cgi_get dir]
|
2011-06-29 23:53:16 +00:00
|
|
|
# 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 "}"
|
|
|
|
|
|
