Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Log the fact that there is no TLS support |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | client-http-error |
| Files: | files | file ages | folders |
| SHA1: |
7e275a2c3366d9606f1091a28e7814a0 |
| User & Date: | oehhar 2015-06-02 17:36:37 |
Context
| 2015-06-16 17:05 | Return http error messages for authentication and server errorrs. Ticket [ea054d339d] check-in: 3647d0b69f user: oehhar tags: trunk | |
| 2015-06-02 17:36 | Log the fact that there is no TLS support Closed-Leaf check-in: 7e275a2c33 user: oehhar tags: client-http-error | |
| 2015-06-02 17:30 | Addition case that server did not send any data and just closed check-in: 90dc8d7789 user: oehhar tags: client-http-error | |
Changes
Changes to ClientSide.tcl.
| ︙ | ︙ | |||
42 43 44 45 46 47 48 | package require Tcl 8.4 package require WS::Utils 2.3.7 ; # dict, lassign package require tdom 0.8 package require http 2 package require log package require uri | | > > | 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
package require Tcl 8.4
package require WS::Utils 2.3.7 ; # dict, lassign
package require tdom 0.8
package require http 2
package require log
package require uri
if {[catch {
package require tls
http::register https 443 [list ::tls::socket -ssl2 no -ssl3 no -tls1 yes]
} err]} {
log::log warning "No https support: $err"
}
package provide WS::Client 2.3.8
namespace eval ::WS::Client {
##
## serviceArr is indexed by service name and contains a dictionary that
|
| ︙ | ︙ |