if {![info exist CheckApache]} {
variable CheckApache {}
timer 2 ApacheCheck
}

proc ApacheCheck {} {
variable CheckApache
set file {C:/Program/Apache Group/Apache2/logs/access.log}
set fid [open $file r]
set read [split [read $fid] \n]
set out [lrange $read end-2 end]
set lines [llength $read]
close $fid

if {$lines > $CheckApache} {
set CheckApache "$lines"
puthelp "PRIVMSG #apache-log :Log change:"
foreach u $out {
puthelp "PRIVMSG #apache-log :[join $u]"
}
}
timer 2 ApacheCheck
return 1
}
