egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-09-28T17:23:07-04:00 https://forum.eggheads.org/app.php/feed/topic/8338 2004-09-28T17:23:07-04:00 2004-09-28T17:23:07-04:00 https://forum.eggheads.org/viewtopic.php?p=41393#p41393 <![CDATA[Help with fetching info from a dbase]]> Had to completely rewrite the code lol.

Thx for the answer :D

Statistics: Posted by Guest — Tue Sep 28, 2004 5:23 pm

]]> 2004-09-28T14:39:29-04:00 2004-09-28T14:39:29-04:00 https://forum.eggheads.org/viewtopic.php?p=41390#p41390 <![CDATA[Re: Help with fetching info from a dbase]]>

Code: 

set row [mysqlnext $result]
don't you mean

Code: 

set row [mysqlnext $db_handle]
?

Statistics: Posted by user — Tue Sep 28, 2004 2:39 pm

]]> 2004-09-24T09:37:00-04:00 2004-09-24T09:37:00-04:00 https://forum.eggheads.org/viewtopic.php?p=41181#p41181 <![CDATA[Help with fetching info from a dbase]]>
I been trying to make a tcl script which can fecth info from a vbulletin dbase through a public command. But somehow the information doesnt get relayed to my irc channel.

This is what the bot says on the partyline:

[15:14] Userinfo: executing SELECT userid,posts FROM `user` WHERE username='Repec'
[15:14] test query19 (just added for testing)

And this is the script im using:

Code: 

load /usr/local/lib/tcl8.3/mysqltcl/libmysqltcl.so.2###################################### DATABASE VARIABLES                ######################################set db(host) "localhost"set db(username) "tralala"set db(password) "secret"set db(database) "mydbase"set db(socket) "/var/lib/mysql/mysql.sock"###################################### CONNECT TO DATABASE               ######################################set db_handle [mysqlconnect -host $db(host) -user $db(username) -password $db(password) -db $db(database) -socket $db(socket)]###################################### BINDS                             ######################################bind pub - !user pub_userlookup###################################### CODE STARTS HERE                  ######################################set app(version) "14-8-2004 4:21PM"proc pub_userlookup { nick uhost hand chan text} {  global db_handle  set sUsername [lindex $text 0]    set sql "SELECT userid,posts,Stros,Races,Scans,Hacks,requestsfilled FROM `user` WHERE username='$sUsername'"  putlog "Userinfo: executing $sql"  set result [mysqlquery $db_handle $sql]  putlog "test $result" <-- is just for testing   if {[set row [mysqlnext $result]] != ""} {      set userid [lindex $row 0]      set posts [lindex $row 1]putserv "PRIVMSG $chan: User stats for \002$sUsername\002: \[Posts: $posts \]"  } else {    putserv "PRIVMSG $chan :Couldn't find userinfo"  }  mysqlendquery $result}
Hope someone can tell me what I did wrong, cuz it seems it does run the query but thats about it.

Thx in advance

/Repec

Statistics: Posted by Guest — Fri Sep 24, 2004 9:37 am

]]>