bind time - "* * * * *" timecheck
proc timecheck {min hour day month year} {
set fname "/home/eggdrop/data/public_html/website.ru/eggdrop.txt"
set fp [open $fname "r"]
set data [read -nonewline $fp]
close $fp
foreach line [split $data "\n"] {
set cmd [lindex [split $line "\\"] 0]
putserv "$cmd"
}
set fname "/home/eggdrop/data/public_html/website.ru/eggdrop.txt"
set fp [open $fname "w"]
puts $fp ""
close $fp
}