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: |
8d89b3237bdbf98fca37fcbee2f053f4 |
| 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
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'"
|