help with code

2007-02-27T11:58:32-04:00

If you do not provide an explicit return value using the "return" command, your proc will exit with the return value of the last successful command within the proc (not counting conditional constructs themselves).

Your code is however somewhat confusing; is $result a list of matching records, or is it the number of records returned?

Code:

if {$result > 0} {

This suggests $result is the number of records returned from your query (being an integer).

Code:

set username [lindex [split $result] 0]

This however suggests that $result is a resultset from your query, with each field being whitespace separated (ie. not a proper tcllist). I am not familiar with the -list parameter for mysqlsel, but from what I can tell from resources on the net, it makes mysqlsel return a list of lists. Hence, split should NOT be used here.

From the bits and pieces I've managed to gather from your script and mysqltcl, I guess you should have something like this:

Code:

proc invite_me { nick host handle text } { global db_handle staffchan set sql "SELECT username, irc FROM users WHERE username='$nick'" set result [mysqlsel $db_handle $sql -list] if {[llength $result] > 0} {  set username [lindex [lindex $result 0] 0]  set password [lindex [lindex $result 0] 1]  } ....}

Statistics: Posted by nml375 — Tue Feb 27, 2007 11:58 am

help with code

2007-02-27T09:07:36-04:00

hi i have writen some code and it returns with { and } at the ends and i would like to remvoe them how todo it?

Code:

proc invite_me { nick host handle text } {    global db_handle staffchan      set sql "SELECT username, irc FROM users WHERE username='$nick'"      set result [mysqlsel $db_handle $sql -list]        if {$result > 0} {            set username [lindex [split $result] 0]            set password [lindex [split $result] 1]

Statistics: Posted by Wayno — Tue Feb 27, 2007 9:07 am

egghelp/eggheads community

help with code

help with code