tlsCiphers.tcl at [916215af0a]
EuroTcl/OpenACS 11 - 12 JULY 2024, VIENNA

File tests/oldTests/tlsCiphers.tcl artifact fc1b7f572b part of check-in 916215af0a


#
# Copyright (C) 1997-2000 Matt Newman <[email protected]>
#

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