1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| #
# Copyright (C) 1997-2000 Matt Newman <[email protected]>
#
# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tests/oldTests/tlsCiphers.tcl,v 1.1 2000/06/06 18:13:21 aborr Exp $
#
|
<
<
| 1
2
3
4
5
6
7
8
9
10
11
12
13
14
| #
# 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
|
