proc web:check {account} { egghttp:geturl http://caleague.com/?page=calclub&standalone=1&authserv_account=[set account] web:verify } proc web:verify {sock} { set headers [egghttp:headers $sock] set body [egghttp:data $sock] putlog "Body: $body" if {![string match -nocase "Aut...