utimer not functioning correctly?

[tango]

see my reply below ......

[tango]

thanks to the guys at #tcl on efnet who helped me out with this..
However, am I stuck at a somewhat iffy point..

The timer will continue to go, however I am still trying to figure out how to use killutimer to kill this timer?
I need the timer to stop once someone types @found

I tried the following, however it didn't seem to work.

Code: Select all

bind pub - @found found

### found command ###
proc found {nick host hand chan arg} {
foreach utimer [utimers] { 
if {[string match $mytimer [lindex $utimer 2]]} { 
killutimer $mytimer 
}

mytimer is the timerid I used for the orgional utimer, as follows:
set mytimer [utimer 40 [list foo $c $5on5msg]]

so... not sure how to do this one now
Any help or suggestions?

[Xpert]

You didn't set the variable "$mytimer".
Try this code:

Code: Select all

set mytimer "foo"

bind pub - @found found
proc found {nick host hand chan arg} {
global mytimer
  foreach utimer [utimers] {
    if {[string match "$mytimer" "[lindex $utimer 2]"]} {
      killutimer $mytimer
    }
  }
}

It should worked.... but i didn't test it