egghelp/eggheads community

Code: Select all

set fs [open "|tail -f file.log"]
fconfigure $fs -blocking 0 -buffering line
fileevent $fs readable [list output $fs]
proc output {fs} {putserv "privmsg #chan :[gets $fs]"}

Code: Select all

proc firstup {var} {
 set first [string range $var 0 0]
 if {![string isupper $first] && ![string is digit $first]} {
  return 0
 } {
  return 1
 }
}