examples/ssl.client

   1 # Example of sending via a ssl encrypted, connected tcp socket
   2
   3 load_ssl_certs /etc/ssl/certs
   4 set s [[socket stream 127.0.0.1:20000] ssl]
   5 try {
   6         $s verify
   7 } on error msg {
   8         stderr puts $msg
   9 }
  10
  11 foreach i [range 1 20] {
  12         $s puts "1 << $i"
  13
  14         puts [$s gets]
  15 }