1#!/bin/sh
2# The next line is executed by /bin/sh, but not tcl \
3exec tclsh "$0" ${1+"$@"}
4
5package require tls
6
7proc creadable {s} {
8    puts "LINE=[gets $s]"
9    after 2000
10    exit
11}
12
13proc myserv {s args} {
14    fileevent $s readable [list creadable $s]
15}
16
17tls::misc req 1024 $keyfile $certfile [list C CCC ST STTT L LLLL O OOOO OU OUUUU CN CNNNN Email some@email.com days 730 serial 12]
18
19tls::socket -keyfile $keyfile -certfile $certfile -server myserv 12300
20
21puts "Now run keytest2.tcl"
22vwait forever
23
24