Check-in [7e275a2c33]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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: 7e275a2c3366d9606f1091a28e7814a077abef55
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ClientSide.tcl.

42
43
44
45
46
47
48
49
50
51


52
53
54
55
56
57
58
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

catch {
    package require tls
    http::register https 443 [list ::tls::socket -ssl2 no -ssl3 no -tls1 yes]


}

package provide WS::Client 2.3.8

namespace eval ::WS::Client {
    ##
    ## serviceArr is indexed by service name and contains a dictionary that






|


>
>







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