Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Removed own debugging message, sorry |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
0cda2c9b1d679be9d40a8520c71b991f |
User & Date: | oehhar 2015-11-09 16:19:34.719 |
Context
2015-11-09 16:24 | restore deleted debug line check-in: c7cdb73c8f user: oehhar tags: trunk | |
2015-11-09 16:19 | Removed own debugging message, sorry check-in: 0cda2c9b1d user: oehhar tags: trunk | |
2015-11-09 16:17 | ::WS::Utils::geturl_followRedirects : limit to 5 redirects, plug http package memory leak, add redirect test scripts check-in: a18130bfaf user: oehhar tags: trunk | |
Changes
Changes to Utilities.tcl.
︙ | ︙ | |||
4581 4582 4583 4584 4585 4586 4587 | ::log::log info [concat [list ::http::geturl $url] $args] set token [eval [list http::geturl $url] $args] } else { ::log::log info [list ::http::geturl $url] set token [::http::geturl $url] } set ncode [::http::ncode $token] | < | 4581 4582 4583 4584 4585 4586 4587 4588 4589 4590 4591 4592 4593 4594 | ::log::log info [concat [list ::http::geturl $url] $args] set token [eval [list http::geturl $url] $args] } else { ::log::log info [list ::http::geturl $url] set token [::http::geturl $url] } set ncode [::http::ncode $token] if {![string match {30[12378]} $ncode]} { ::log::log debug "initialUrl = $initialUrl, finalUrl = $finalUrl" if {![string equal $finalUrl {}]} { ::log::log debug "Getting initial URL directory" set lastPos [string last / $initialUrl] set initialUrlDir [string range $initialUrl 0 [expr {$lastPos - 1}]] set lastPos [string last / $finalUrl] |
︙ | ︙ |