All pastes #84116 Raw Edit

Hostingfreak.net

public text v1 · immutable
·published 2006-07-10 15:55 UTC
rendered paste body
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"