Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | restore deleted debug line |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c7cdb73c8f629ed620e6ee964ada5634 |
| User & Date: | oehhar 2015-11-09 16:24:53 |
Context
| 2016-03-03 21:09 | Unify all synchronous calls to http::geturl with error handling by utility function geturl_followRedirects check-in: f1d6d9f8d9 user: oehhar tags: trunk | |
| 2015-11-09 17:25 | Unify all synchronous calls to http::geturl with error handling by utility function geturl_followRedirects Closed-Leaf check-in: 0f7ac08844 user: oehhar tags: unify_http::geturl | |
| 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 | |
Changes
Changes to Utilities.tcl.
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]
|
> |
4581 4582 4583 4584 4585 4586 4587 4588 4589 4590 4591 4592 4593 4594 4595 |
::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]
::log::log info "ncode = $ncode"
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]
|