TCL / MySQL / Eggdrop

[Afwezig]

Ik ben al een tijdje bezig om een script aan de gang te krijgen waarin ik in TCL MySQL query's kan uitvoeren, maar het wil niet lukken. Ik heb MyTCL en Fastbase-SQL geinstalleerd, en heb tot nu toe het volgende script:

code:

set sqluser "*******"
set sqlpass "*******"
set sqlhost "*******"
set sqldbase "*******"
set usertable "*******"
package require mytcl
proc pub_score {nick uhost hand channel arg} {
  global botnick sqluser sqlpass sqlhost sqldbase usertable
    if {$arg == ""} {
    puthelp "NOTICE $nick :USAGE: !score <nick>"
    return 0
   } {
    set score [lrange $arg 0 end]
    set connection [sql connect $sqlhost $sqluser $sqlpass]
    sql selectdb $connection $sqldbase
    set res1 [sql query $connection "SELECT score FROM $usertable WHERE nick = '$score'"]
    set row [sql fetchrow $connection $res1]
    sql endquery $connection $res1
    sql disconnect $connection
    puthelp "NOTICE $nick : $find has score $row"
    return 0
    }
  }
bind pub - !score pub_score

Het probleem is dus dat het totaal niet werkt, en ik bijzonder weinig kan vinden over de combinatie TCL/MySQL .. Dus in de hoop dat iemand er hier wel wat vanaf weet Waar zit het fout in het script?

PS. Hij geeft wel reactie als er alleen !score wordt gedaan, maar niet als er !score <arg> wordt gedaan

[ Voor 11% gewijzigd door Afwezig op 04-05-2003 11:36 ]