261
262
263
264
265
266
267
268
269
270
271
272
273
274
|
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
|
+
+
+
+
+
+
+
|
# If an "-autoservername" option is found, honor it
if {[info exists argsArray(-autoservername)] && $argsArray(-autoservername)} {
if {![info exists argsArray(-servername)]} {
set argsArray(-servername) $host
lappend iopts -servername $host
}
}
# Use host as SNI server name without -autoservername and -servername args
if {![info exists argsArray(-autoservername)] &&
![info exists argsArray(-servername)]} {
set argsArray(-servername) $host
lappend iopts -servername $host
}
lappend sopts $host $port
}
#
# Create TCP/IP socket
#
set chan [eval $socketCmd $sopts]
|