Timer wont go on

2004-02-21T22:14:38-04:00

timer only calls a proc once.. It is not like mirc's timer command.

To have a proc repeatedly called you need to have the proc use a timer call on itself, something like:

Code:

timer 5 yourprocproc yourproc {} { ... timer 5 yourproc}

Also, to prevent multiple timers from calling the proc on rehash, you should change the first timer call to something like:

Code:

if {![info exists yourtimercheck]} {  set yourtimercheck [timer 5 yourproc]}

Statistics: Posted by strikelight — Sat Feb 21, 2004 10:14 pm

Timer wont go on

2004-02-21T21:05:57-04:00

#The script checks the mysql db every 5 minutes. The problem is that the script only checks the db after I rehash the bot. But afterwards, it doesnt parse anymore, unless you rehash the bot. For some odd reason, the timer doesn't work. Some help would be appreciated. Thanks

Code:

set debug 0set ver "1.1"set dbhost "_host_"set dbuser "_user_"set dbpass "_pass_"set dbname "_name_"set timeoff 1141set date [clock seconds]set estdate [expr $date - $timeoff]set lastdate [expr $estdate - 3600]timer 5 checkdbproc checkdb { } {global dbhost dbuser dbpass dbname ver debug lastdateset dbconnect [mysqlconnect -host $dbhost -user $dbuser -password $dbpass]mysqluse $dbconnect $dbnameif { [mysqlstate $dbconnect -numeric] == 0 } {putlog "Could not connect to $dbhost (Unlooping script) -- Forum IRC Notifier $ver"mysqlclose $dbconnectreturn 0} else {if { $debug == 1 } {putlog "Connected to $dbhost -- Forum IRC Notifier $ver"}putlog "#Topic Report# Parsing"set sql "SELECT * FROM ibf_topics WHERE start_date > $lastdate ORDER BY start_date DESC"set numrows [mysqlsel $dbconnect $sql]if { $numrows != 0 } {for { set i 0 } { $i < $numrows } { incr i } {set res [mysqlnext $dbconnect]set topicid [lindex $res 0]set topic [lindex $res 1]set poster [lindex $res 10]set lastdate [lindex $res 6]set link "http://www.teamexcess.net/forums/index.php?showtopic=$topicid"putserv "PRIVMSG #excess :\002New Excess.ca Forum Post:\002 $topic"putserv "PRIVMSG #excess :\002Link:\002 $link - \002By:\002 $poster"}}mysqlclose $dbconnectreturn 0}}

Statistics: Posted by exs-n0s — Sat Feb 21, 2004 9:05 pm

egghelp/eggheads community

Timer wont go on

Timer wont go on