Artifact 015cebb2a4ffaabcd291522280e5c311efe9ef47:

• File tests/oldTests/tlsCiphers.tcl — part of check-in [88cf64aed6] at 2000-06-06 18:13:20 on branch trunk — moved from main test directory (user: aborr, size: 392) [annotate] [blame] [check-ins using]

#
# Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com>
#
# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tests/oldTests/tlsCiphers.tcl,v 1.1 2000/06/06 18:13:21 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