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

  1. proc toIrc str \
  2. {
  3. global irc
  4.  
  5. if { $irc(connected) } send $str
  6. }
  7.