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