Posted to tcl by patthoyts at Sun Nov 15 10:44:01 GMT 2009view pretty
pat@badger:/opt/wub% svn diff Index: Wub/Listener.tcl =================================================================== --- Wub/Listener.tcl (revision 2012) +++ Wub/Listener.tcl (working copy) @@ -73,6 +73,9 @@ Debug.listener {accepted: $sock $ipaddr $rport} if {[catch { + if {[dict exists $opts -tls]} { + tls::handshake $sock + } # select an Http object to handle incoming {*}[dict get $opts -httpd] Connect $sock $ipaddr $rport {*}$opts } result eo]} {