Posted to tcl by grundigger at Thu Apr 17 22:17:33 GMT 2014view pretty

proc toIrc str \
{
    global irc

    if { $irc(connected) } send $str
}