Artifact c19f5798afbc68b3c30a38172d97f3e3cd896f2c:

• File tests/tlsCiphers.tcl — part of check-in [27770ce26d] at 2000-01-19 22:10:58 on branch tls-vendor-branch — Initial import of tls extension. (user: aborr, size: 393) [annotate] [blame] [check-ins using] [more...]

#
# Copyright (C) 1997-1999 Matt Newman <[email protected]>
#
# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tests/Attic/tlsCiphers.tcl,v 1.1.1.1 2000/01/19 22:10:59 aborr Exp $
#

set dir [file dirname [info script]]
cd $dir
source tls.tcl

if {[llength $argv] == 0} {
    puts stderr "Usage: ciphers protocol ?verbose?"
    exit 1
}
puts [join [eval tls::ciphers $argv] \n]
exit 0