[tcl] List wil niet in query

[xiD]

Gister ben ik eens begonnen mezelf te verdiepen ik TCL, omdat ik mn eggdrop wou koppelen aan een mysql database.

Nu liep ik tegen het probleem aan dat ik via de Q auth (quakenet d0h) van een user niets terug kreeg uit de database.

code:

proc notc:q:reaction { nick host hand text dest} {
    global chan_1 db_handle 

    if {$nick != "Q"} { return }
    if {[string match -nocase "*is authed as*" $text]} {
        set user [lindex [split $text] 4]

        set sql "SELECT * FROM users WHERE user_qauth='$user'"
        ...... en nog wat verder

het lijkt er dus op dat hij $user niet goed defined. Als ik in de query voor $user gewoon een text in vul pakt hij hem wel.

Nu ben ik het probleem eerder tegen gekomen maar toen had ik het opgelost door gewoon simpelweg "[lindex [split $text] 4]" neer te zetten in plaats van $user. Dat werkt wel maar zo valt het niet op te lossen in de query.

Ik heb naar andere voorbeelden gezocht, deze zijn er wel te vinden (geen overschot maar toch) maar geven geen goed antwoord

zo vond ik hier een voorbeeld:

code:

proc addSeen {nick uhost chan action {extra ""}} {
  set splituhost [split $uhost "@"]
  set user [mysql_escape [lindex $splituhost 0]]
  set host [mysql_escape [lindex $splituhost 1]]
  unset splituhost
  ........
  mysql_query "REPLACE DELAYED $table\ SET nick='$nick', user='$user', host='$host', chan='$chan',\ 
action='$action', time=[clock seconds], extra='$extra'"

volgens deze manier heb ik het ook geprobeert maar het wou ook niet lukken

ik hoop dat een van jully weet wat ik fout doe....

[ Voor 12% gewijzigd door xiD op 23-10-2004 12:43 ]