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 |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b9290820befc054f812fd09d766f35e3 |
| User & Date: | gerald 2012-10-31 06:42:11.191 |
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
Changes to Embedded.tcl.
| ︙ | ︙ | |||
161 162 163 164 165 166 167 | # 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 # | | | 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 | # 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 |
| ︙ | ︙ | |||
210 211 212 213 214 215 216 |
-certfile $certfile \
-keyfile $keyfile \
-ssl2 1 \
-ssl3 1 \
-tls1 0 \
-require 0 \
-request 0
| | | > > | 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 |
-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.
|
| ︙ | ︙ |