Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Dead code removed - is covered by upper if |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | client-http-error |
| Files: | files | file ages | folders |
| SHA1: |
b63a8eb96087b8f5bbc7371e3d485a3e |
| User & Date: | oehhar 2015-06-02 13:08:05 |
Context
| 2015-06-02 14:07 | Return http error messages for authentication and server errorrs. Ticket [ea054d339d] check-in: 027ddd8c7c user: oehhar tags: client-http-error | |
| 2015-06-02 13:08 | Dead code removed - is covered by upper if check-in: b63a8eb960 user: oehhar tags: client-http-error | |
| 2015-05-24 01:25 | Another partial fix. check-in: 9c7e118edb user: gerald tags: trunk | |
Changes
Changes to Utilities.tcl.
| ︙ | ︙ | |||
4559 4560 4561 4562 4563 4564 4565 |
set initialUrlDir [string range $initialUrl 0 [expr {$lastPos - 1}]]
set lastPos [string last / $finalUrl]
set finalUrlDir [string range $finalUrl 0 [expr {$lastPos - 1}]]
::log::log debug "initialUrlDir = $initialUrlDir, finalUrlDir = $finalUrlDir"
set ::WS::Utils::redirectArray($initialUrlDir) $finalUrlDir
}
return $token
| < < | 4559 4560 4561 4562 4563 4564 4565 4566 4567 4568 4569 4570 4571 4572 |
set initialUrlDir [string range $initialUrl 0 [expr {$lastPos - 1}]]
set lastPos [string last / $finalUrl]
set finalUrlDir [string range $finalUrl 0 [expr {$lastPos - 1}]]
::log::log debug "initialUrlDir = $initialUrlDir, finalUrlDir = $finalUrlDir"
set ::WS::Utils::redirectArray($initialUrlDir) $finalUrlDir
}
return $token
}
array set meta [set ${token}(meta)]
if {![info exist meta(Location)]} {
return $token
}
array set uri [::uri::split $meta(Location)]
unset meta
|
| ︙ | ︙ |