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: |
b9290820befc054f812fd09d766f35e3 |
| 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
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. |