Artifact 73c4a6ada7de19ab1220f411057db3862184cfd161c3a5b33156198b4521260c:

• File tests/oldTests/tlsCiphers.tcl — part of check-in [2c0be4cb7f] at 2024-07-05 18:03:44 on branch tls-1.8 — Updated callback handlers in tls.tcl to be backwards compatible for earlier TCLTLS versions (user: bohagan, size: 265) [annotate] [blame] [check-ins using] [more...]

#
# Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com>
#

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