Simple Timer Topic Txt file script

bind time - "00 *" foo
if {![catch {set f [open topic.txt]}]} {
  set t [split [read $f] \n:]; close $f
} {set t {}}
proc foo {m h args} {
  foreach {c n s} $::t {
      if {[clock scan $h]==[clock scan $n]} {
        if {[botisop $c]} {putserv "topic $c :$s"}
      }
  }
}
bind time - "00 *" foo
if {![catch {set f [open topic.txt]}]} {
  set t [split [read $f] \n:]; close $f
} {set t {}}
proc foo {m h args} {
  foreach {c n s} $::t {
      if {[clock scan $h]==[clock scan $n]} {
        if {[botisop $c]} {putserv "topic $c :$s"}
      }
  }
}