TCL: Eggdrop mysqltcl DB connecten

TLoD

Grünschnabel
Hallo Gemeinde,

ich versuche mich derzeit an einem tcl Script - mein erstes - mit dem ich meinen Eggdrop eine mySQL Datenbank auslesen lassen möchte. Ich Google nun schon seit mehreren Tagen durchs Netz und finde nicht mal ansatzweise eine Lösung hierfür...

Das ist mein aktueller Stand:
Code:
#! /usr/bin/tclsh8.5/

    load /usr/lib/tcltk/mysqltcl/libmysqltcl3.05.so

    package require mysqltcl
    global mysqlstatus

    # -- Mysql Info

    set dbhost {****}
    set dbdatabase {****}
    set dbuser {****}
    set dbpassword {****}

    set mysql_handler [mysqlconnect -host $dbhost -db $dbdatabase -user $dbuser -password $dbpassword]

    catch {mysqlconnect -host $dbhost -db $dbdatabase -user $dbuser -password $dbpassword} mysql_handler
    if {$mysqltatus(code) != 0} {
        puts stderr $mysqlstatus(message)
    } else {
        putserv "PRIVMSG #Blacklist :Online"
        mysqlclose mysql_handler
    }

# Loading
putlog "DB-Connect-Script loaded..."

Jetzt erhalte ich immer folgende Fehlermeldung und komm auf keinen grünen Zweig.

Code:
[21:49:48] Tcl error in file 'eggdrop.conf':
[21:49:48] can't read "mysqltatus(code)": no such variable
    while executing
"if {$mysqltatus(code) != 0} {
        puts stderr $mysqlstatus(message)
    } else {
        putserv "PRIVMSG #Blacklist :Online"
        mysqlclose mysql_ha..."
    (file "scripts/dbcon.tcl" line 19)
    invoked from within
"source scripts/dbcon.tcl"
    (file "eggdrop.conf" line 1324)
[21:49:48] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Habt Ihr eine Ahnung wo mein Fehler liegt?

Gruß
T