egghelp/eggheads community

error when var not exist (part is mysqltcl)

2004-06-19T13:06:24-04:00

Well i added that line... tested it today

didn't really go too well

[17:51] Tcl error in script for 'timer28'

[17:51] can't read "id": no such variable

Code:

proc getpost {} {  global db_handle posttimer  putlog "\[ #ns.pcw \] - Processing queue slot 1"  set que1 "SELECT * FROM posts ORDER BY thetime ASC LIMIT 1"    set newpost [mysqlsel $db_handle $que1 -flatlist]  # INSERT CODE FOR DECOMPOSE + PUT ALL BOTS  foreach {id ircnick qauth thetime post} $newpost {     if {![info exists id]} {       set posttimer [utimer 30 getpost]       putlog "\[ #ns.pcw \] - Table empty - timer reset"       return 0    }     puthelp "PRIVMSG $::relay(adchan) :$id $ircnick $qauth $thetime $post"   }  set que2 "DELETE FROM posts WHERE id='$id'"    set result [mysqlexec $db_handle $que2]    puthelp "PRIVMSG $::relay(adchan) :Post \[ $id \] successfully copied and deleted."    set posttimer [utimer 30 getpost]  putlog "\[ #ns.pcw \] - Post deleted - timer reset"}

any ideas? thanks for your help

Statistics: Posted by shanks — Sat Jun 19, 2004 1:06 pm

error when var not exist (part is mysqltcl)

2004-06-17T07:52:14-04:00

you just need to add a couple of lines to your foreach-loop

Code:

  foreach {id ircnick qauth thetime post} $newpost {    if {![info exists id]} {       set posttimer [utimer 30 getpost]       putlog "\[ #ns.pcw \] - getpost proc timer reset"      return    }    puthelp "PRIVMSG $::relay(adchan) :$id $ircnick $qauth $thetime $post"   }

Statistics: Posted by Papillon — Thu Jun 17, 2004 7:52 am

error when var not exist (part is mysqltcl)

2004-06-17T04:53:00-04:00

Code:

proc getpost {} {  global db_handle posttimer  putlog "\[ #ns.pcw \] - Processing queue slot 1"  set que1 "SELECT * FROM posts ORDER BY thetime ASC LIMIT 1"    set newpost [mysqlsel $db_handle $que1 -flatlist]  foreach {id ircnick qauth thetime post} $newpost {    puthelp "PRIVMSG $::relay(adchan) :$id $ircnick $qauth $thetime $post"  }  set que2 "DELETE FROM posts WHERE id='$id'"    set result [mysqlexec $db_handle $que2]    puthelp "PRIVMSG $::relay(adchan) :Post \[ $id \] successfully copied and deleted."    set posttimer [utimer 30 getpost]  putlog "\[ #ns.pcw \] - getpost proc timer reset"}

The proc will take a single line from the database, and then put it into an irc channel ($::relay(adchan)) then deletes it from the database - It works fine as long as there are rows in the table - however, if there isn't any thing in the table, then it has no definition for $id, so it gives an error and stops the proc...

so, need a re-write so it won't kill the loop if the table is empty....

any ideas? :/

Statistics: Posted by shanks — Thu Jun 17, 2004 4:53 am