#!/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]
		$fd close
		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 "}"