Well, the smartest way would be like this:
(I'de redo your date system, I personally like YYYYMMDD plain format, makes comparisons, easy, but if you don't wanna change the data you can simply read the datain and format the string.. easy enough)
a) create a binding for the trigger to execute the procedure.
b) in the procedure start a statement like
set mychan "#shellbox.net" <-- You could also just use $channel is it's a channel based argument.. up to you.
set filein [open "mytext.dat" r]
set today [clock format -format "%Y%m%d" [clock seconds]]
while {![eof $filein]} {
gets $filein datain
if {[lindex ${datain} 0] >= $today} {
putserv "PRIVMSG $mychan :${datain}"
}
}
close $filein
Grab a tcl manual (
www.tcl.tk) and your tcl-commands.doc, this should set you in the right direction for making it how you want it done.