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