Artifact [d0a52b9ad8]

Artifact d0a52b9ad83b1e9d4cc2151445d961a73fddafc12b93a2ff0a283763a1340d43:


#!/usr/bin/env tclsh

set auto_path [linsert $auto_path 0 [file normalize [file join [file dirname [info script]] ..]]]
package prefer latest
package require tls

set s [tls::socket -require 0 127.0.0.1 12300]
puts $s "A line"
flush $s
puts [join [tls::status $s] \n]
exit