1. if {[catch {::http::geturl $url -timeout 20000} tok]} { error $tok }
2. if {[::http::status $tok] ne "ok"} { error "$mod module (TCP error: [::http::status $tok][::http::cleanup $tok])" }
3. if {[::http::ncode $tok] != 200} { error "$mod module (HTTP error: [::http::code $tok][::http::cleanup $tok])" }
4. set data [::http::data $tok] ; ::http::cleanup $tok ; set DrpCnt 0
5. catch {putlog "[::http::status $data]"}
6. catch {putlog "$::errorInfo"}; catch {putlog "$::errorCode"}
7. ------------------------
8. code doeasn't give any VISIBLE error, but when checking with following I get this...
9. from 'catch {putlog "$::errorInfo"}; catch {putlog "$::errorCode"}' --> error
10. from 'catch {putlog "$::errorInfo"}; catch {putlog "$::errorCode"}' --> can not find channel named "sock8334752d0"
11. while executing
12. "eof $sock"
13. TCL LOOKUP CHANNEL sock8334752d0

Comments