Check-in [b9290820be]
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:Enhancement: [98ce08579d] -- Return socket hadle by ::WS::Embeded::Listen
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b9290820befc054f812fd09d766f35e33cb6cd2c
User & Date: gerald 2012-10-31 06:42:11
Context
2012-10-31 14:19
Bug fix: [68310fe3bd] - Content Length wrong check-in: ba63c62ab5 user: gerald tags: trunk
2012-10-31 06:42
Enhancement: [98ce08579d] -- Return socket hadle by ::WS::Embeded::Listen check-in: b9290820be user: gerald tags: trunk
2012-10-31 06:37
Roll version to 2.3.0. check-in: 455f74add5 user: gerald tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Embedded.tcl.

161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
...
210
211
212
213
214
215
216
217
218
219
220
221


222
223
224
225
226
227
228
#       port     -- Port number to listen on
#       certfile -- Name of the certificate file
#       keyfile  -- Name of the key file
#       userpwds -- A list of username and passwords
#       realm    -- The security realm
#       logger   -- A logging routines for errors
#
# Returns :     Nothing
#
# Side-Effects :
#       None
#
# Exception Conditions : None
#
# Pre-requisite Conditions : ::WS::Embeded::Listen must have been called for the port
................................................................................
            -certfile $certfile \
            -keyfile  $keyfile \
            -ssl2 1 \
            -ssl3 1 \
            -tls1 0 \
            -require 0 \
            -request 0
        ::tls::socket -server [list ::WS::Embeded::accept $port] $port
    } else {
        $portInfo($port,logger) [list socket -server [list ::WS::Embeded::accept $port] $port]
        socket -server [list ::WS::Embeded::accept $port] $port
    }


}

 
###########################################################################
#
# Public Procedure Header - as this procedure is modified, please be sure
#                            that you update this header block. Thanks.






|







 







|


|

>
>







161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
...
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
#       port     -- Port number to listen on
#       certfile -- Name of the certificate file
#       keyfile  -- Name of the key file
#       userpwds -- A list of username and passwords
#       realm    -- The security realm
#       logger   -- A logging routines for errors
#
# Returns :     socket handle
#
# Side-Effects :
#       None
#
# Exception Conditions : None
#
# Pre-requisite Conditions : ::WS::Embeded::Listen must have been called for the port
................................................................................
            -certfile $certfile \
            -keyfile  $keyfile \
            -ssl2 1 \
            -ssl3 1 \
            -tls1 0 \
            -require 0 \
            -request 0
        set handle [::tls::socket -server [list ::WS::Embeded::accept $port] $port]
    } else {
        $portInfo($port,logger) [list socket -server [list ::WS::Embeded::accept $port] $port]
        set handle [socket -server [list ::WS::Embeded::accept $port] $port]
    }

    return $handle
}

 
###########################################################################
#
# Public Procedure Header - as this procedure is modified, please be sure
#                            that you update this header block. Thanks.