package require http
package require json

# open the URL to get the results:

set handle [::http::geturl http://www.wellho.net/services/pix.json]

set body [::http::data $handle]
puts "------------------------------------------------"
puts "return content:\n$body"
puts "------------------------------------------------"

set asadict [::json::json2dict $body]
foreach {name wotsit} $asadict {
        puts "$name $wotsit"
        }

puts "------------------------------------------------"

# -------- above is nice. Below is too "clever" (it isn't working nicely yet)

proc display {content {inset 0}} {
        set extra 0
        foreach {item} $content {
                if {[llength $item] > 1} {
                        display $item [expr $inset + 2]
                } else {
                        set tabbycat [string repeat " " [expr $extra + $inset]]
                        set xl [lindex {k: - v:} $extra]
                        puts "$tabbycat $xl $item"
                }
        set extra [expr 2 - $extra]
        }
        puts ""
}

display $asadict

#
# munchkin:survey grahamellis$ tclsh getpagejson
# ------------------------------------------------
# return content:
# {"timedat":1426197504,"lookfor":"pix","acc":[{"when":9,"where":"86.131.16.xx",
# "which":"\/pix\/portrush4.jpg"},{"when":11,"where":"81.174.153.xx", [etc]
#
# ------------------------------------------------
# timedat 1426197504
# lookfor pix
# acc {when 9 where 86.131.16.xx which /pix/portrush4.jpg} {when 11 where
# 81.174.153.xx which /pix/my1_14.jpg} {when 18 where 79.77.221.xx which [etc]
# ------------------------------------------------
# k: timedat
# v: 1426197504
# k: lookfor
# v: pix
# k: acc
# k: when
# v: 9
# k: where
# v: 86.131.16.xx
# k: which
# v: /pix/portrush4.jpg
#
# k: when
# v: 11
# k: where
# v: 81.174.153.xx
# k: which
# v: /pix/my1_14.jpg
#
# k: when
# v: 18
# k: where
# v: 79.77.221.xx
# k: which
# v: /pix/my1_46.jpg
#
# [etc]
#
# munchkin:survey grahamellis$