Utimer problems

[brentos]

I am making a trivia bot and I use utimers to decide when the question goes unansered due to time limit. The only thing is if I use the command to stop the bot it is told to kill all the timer and Display a msg saying that trivia is stoped. The only problem is that the timer still keeps running. I put the stop the msg gets printed but after the time limit comes to an end it continues by calling the proc specified in the timer.
Any ideas anyone
I am new to tcl so i can use the help lol

[stdragon]

You must not be killing the timer right. use killutimer $timerid, where $timerid is the code returned by the utimer command.

[brentos]

So are you say that you can just kill the timer by using the variable name that you assigned it to? You have to preform the utimer on the variable to get the ID and then kill it?

[stdragon]

no the utimer command returns a timer id

set timerid [utimer 30 blah]

killutimer $timerid

[brentos]

I do kill it like that but it still doesn't work
In one module i put

set timeovertimer [utimer 60 tgover]

and in the kill module i say

killutimer timeovertimer

And it won't work

[ppslim]

It doesn't work like that.

You need to get the general idea of the syntax of Tcl.

The "killtimer" command uses a timerid, not a variable name.

The timerid can however, come from within a variable, thus you use it likke "$timerid".

[Dedan]

does the code below set AND start the timer, or only set a var?

Code: Select all

set mytimer [utimer $av_seconds [list av:dec $chan]] 

and is this the proper way to kill the above timer?

Code: Select all

if {[info exists mytimer]} { 
  killutimer $mytimer
} 

[Sir_Fz]

does the code below set AND start the timer, or only set a var?

Code: Select all

set mytimer [utimer $av_seconds [list av:dec $chan]] 

[snip]

this starts the timer and returns a timer id in the var $mytimer.

and is this the proper way to kill the above timer?

Code: Select all

if {[info exists mytimer]} { 
  killutimer $mytimer
} 

if $mytimer is running then this will work, but this will also work even when there is no $mytimer running in [utimers] so this will return an error "invalid timerID"

[Dedan]

so, how are you checking if that timer is running?

[Sir_Fz]

Code: Select all

foreach utimer [utimers] {
if {[string match $mytimer [lindex $utimer 2]]} {
 killutimer $mytimer
 }
}

this should do it.

[Dedan]

thanks