Check-in [8d89b3237b]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Avoid debug [puts]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:8d89b3237bdbf98fca37fcbee2f053f4d646687e572dd7a202f99dca52117d3f
User & Date: andy 2018-07-20 16:02:06
Context
2018-07-20 16:50
Add change history message (assuming next version is 2.6.1) and clean up whitespace check-in: 667c024d14 user: andy tags: trunk
2018-07-20 16:02
Avoid debug [puts] check-in: 8d89b3237b user: andy tags: trunk
2018-07-20 15:55
Spelling correction, though keep old name for compatibility check-in: 77d58d723c user: andy tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Utilities.tcl.

3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
        http {
            ::log::log debug "In http/https processor"
            set ncode -1
            set token [geturl_followRedirects $url]
            #parray $token
            ::http::wait $token
            set ncode [::http::ncode $token]
            puts "returned code {$ncode}"
            set xml [::http::data $token]
            ::http::cleanup $token
            if {($ncode != 200) && [string equal $options(includeDirectory) {}]} {
                return \
                    -code error \
                    -errorcode [list WS CLIENT HTTPFAIL $url $ncode] \
                    "HTTP get of import file failed '$url'"







|







3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
        http {
            ::log::log debug "In http/https processor"
            set ncode -1
            set token [geturl_followRedirects $url]
            #parray $token
            ::http::wait $token
            set ncode [::http::ncode $token]
            ::log::log debug "returned code {$ncode}"
            set xml [::http::data $token]
            ::http::cleanup $token
            if {($ncode != 200) && [string equal $options(includeDirectory) {}]} {
                return \
                    -code error \
                    -errorcode [list WS CLIENT HTTPFAIL $url $ncode] \
                    "HTTP get of import file failed '$url'"