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