egghelp/eggheads community

auto post advert

2007-06-04T08:48:41-04:00

i lost a line in the code
now it works
<<< pinky is
from pinky and the brain

Statistics: Posted by Freakazoid — Mon Jun 04, 2007 8:48 am

auto post advert

2007-05-27T21:13:09-04:00

oki !

Statistics: Posted by Freakazoid — Sun May 27, 2007 9:13 pm

auto post advert

2007-05-27T18:44:04-04:00

Properly indenting the code would reveal that you don't call either timer or utimer within the proc, you also do not use the "time" binding..
Obviously, you will only execute "go" once...

Most likely, you've misunderstood the use of timer and utimer...
These allow you to delay the execution of some code, it will not repeat the execution multiple times...

Statistics: Posted by nml375 — Sun May 27, 2007 6:44 pm

auto post advert

2007-05-27T15:20:47-04:00

Code:

variable sqlvariable libMySQLTcl "/usr/local/lib/mysqltcl-3.03/libmysqltcl3.03.so" # SQL infoset sql(host) "localhost"set sql(user) ""set sql(pass) ""set sql(db) ""set sql(port) ""## END CONF ##set channel "#eTicker"set time 30if {[string compare [string index $time 0] "!"] == 0} { set timer [string range $time 1 end] } { set timer [expr $time * 60] }if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }proc go {} {    global sql libMySQLTcl   set sql(handle) [mysqlconnect -host $sql(host) -user $sql(user) -password $sql(pass) -db $sql(db) -port $sql(port)]   set query [::mysql::query $sql(handle) "SELECT werbung FROM advert ORDER BY DESC LIMIT 1 "]   while {[set row [::mysql::fetch $query]] != ""} {   set werbung [lindex $row 0] global channel time text timerforeach chan $channel { putserv "PRIVMSG $chan :$werbung"  }   }::mysql::endquery $querymysqlclose $sql(handle)}if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }

why does work this script
1 time it will be work after rehash no more function from it

mfg freak

Statistics: Posted by Freakazoid — Sun May 27, 2007 3:20 pm