if {![info exists var_log_messages]} {
  if {[catch "open | tail -f /var/log/messages" var_log_messages]} {
    putquick "PRIVMSG #frog :Error: $var_log_messages"
  } else {
    fconfigure $var_log_messages -blocking false
    fileevent $var_log_messages readable [list GotMessagesData $var_log_messages]
  }
}

proc GotMessagesData {fd} {
  if {![eof $fd]} {
    putquick "PRIVMSG #frog :[gets $fd]" 
  }
}

putlog "logtail.tcl 1.0 by frog loaded"