Overview
| Comment: | * tls.tcl (tls::socket): some socket implementations have a -type support (e.g. for inet6). |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
119a8780e7d0837efe9e7fae8510415e |
| User & Date: | hobbs2 on 2010-07-27 17:15:47 |
| Other Links: | manifest | tags |
Context
|
2010-08-11
| ||
| 19:50 | * tls.c (StatusObjCmd): memleak: free peer if loaded. [Bug 3041925] check-in: 366542d9a0 user: hobbs2 tags: trunk | |
|
2010-07-27
| ||
| 17:15 | * tls.tcl (tls::socket): some socket implementations have a -type support (e.g. for inet6). check-in: 119a8780e7 user: hobbs2 tags: trunk | |
|
2009-04-23
| ||
| 23:12 | * tls.tcl (tls::initlib): add support for Windows starpack operation that unbundles any constituent libraries. [AS Bug 82888] check-in: 573dc5879d user: hobbs2 tags: trunk | |
Changes
Modified ChangeLog
from [569bdf16e2]
to [4ec4d039e1].
1 2 3 4 5 6 7 | 2009-04-23 Jeff Hobbs <jeffh@ActiveState.com> * tls.tcl (tls::initlib): add support for Windows starpack operation that unbundles any constituent libraries. [AS Bug 82888] 2008-06-18 Pat Thoyts <patthoyts@users.sourceforge.net> | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2010-07-27 Jeff Hobbs <jeffh@ActiveState.com> * tls.tcl (tls::socket): some socket implementations have a -type support (e.g. for inet6). 2009-04-23 Jeff Hobbs <jeffh@ActiveState.com> * tls.tcl (tls::initlib): add support for Windows starpack operation that unbundles any constituent libraries. [AS Bug 82888] 2008-06-18 Pat Thoyts <patthoyts@users.sourceforge.net> |
| ︙ | ︙ |
Modified tls.tcl
from [6631e237f4]
to [a03810957e].
1 2 3 | # # Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com> # | | | 1 2 3 4 5 6 7 8 9 10 11 |
#
# Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com>
#
# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.tcl,v 1.12 2010/07/27 17:15:47 hobbs2 Exp $
#
namespace eval tls {
variable logcmd tclLog
variable debug 0
# Default flags passed to tls::import
variable defaults {}
|
| ︙ | ︙ | |||
83 84 85 86 87 88 89 90 91 92 93 94 95 96 |
set iopts [concat [list -server $server] $defaults] ;# Import options
for {set idx 0} {$idx < $argc} {incr idx} {
set arg [lindex $args $idx]
switch -glob -- $server,$arg {
0,-async {lappend sopts $arg}
0,-myport -
*,-myaddr {lappend sopts $arg [lindex $args [incr idx]]}
*,-cadir -
*,-cafile -
*,-certfile -
*,-cipher -
*,-command -
*,-keyfile -
| > | 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 |
set iopts [concat [list -server $server] $defaults] ;# Import options
for {set idx 0} {$idx < $argc} {incr idx} {
set arg [lindex $args $idx]
switch -glob -- $server,$arg {
0,-async {lappend sopts $arg}
0,-myport -
*,-type -
*,-myaddr {lappend sopts $arg [lindex $args [incr idx]]}
*,-cadir -
*,-cafile -
*,-certfile -
*,-cipher -
*,-command -
*,-keyfile -
|
| ︙ | ︙ |