if {![info exists myproc_running]} { utimer 2 update set myproc_running 1 } proc update {} { variable sites #putquick "PRIVMSG #tr-beta :Updating..." foreach site $sites { getRSS [lindex $site 0] [lindex $site 1] [lindex $site 2] [lindex $site 3] [lindex $site 4] } utimer 10 update return 1 }