Posted to tcl by kyak at Sun Oct 17 15:39:20 GMT 2021view pretty
package require tls proc ircrecv {} { puts "ircrecv called" if {[eof $::irc]} { close $::irc } if {[gets $::irc line] >= 0} { puts $line } } set ::irc [::tls::socket irc.libera.chat 6697] fconfigure $::irc -blocking 0 -buffering line -translation crlf -encoding utf-8 fileevent $::irc readable ircrecv vwait forever