proc ApacheCheck {} {
set file {C:/Program/Apache Group/Apache2/logs/access.log}
set handle [open $file r]
set content [split [read $handle] [format %c 10]]
close $handle
set out [lrange $content end-1 end]

variable CheckApache
if {![string equal $out $CheckApache]} {
set CheckApache "$lines" 
puthelp "PRIVMSG #apache-log :[join [ApacheReformat $out]]"
}
utimer 1 ApacheCheck
return 1
}
