Lassen Sie die MySQL-Verbindung offen

Wenn Sie die Verbindung offen halten möchten, rufen Sie einfach an

mysql::ping $dbhandle

von Zeit zu Zeit.

Dies kann etwa so geschehen:

proc keepMySqlOpen {dbhandle} {
    mysql::ping $dbhandle
    after 2000 [list keepMySqlOpen $dbhandle]
}
....
    set dbh [mysql::open ...]
    keepMySqlOpen $dbh
...

Eine andere Möglichkeit ist einfach die Verwendung von mysql::ping vor dem Zugriff auf die db, was laut dem mysqltcl-Handbuch erfolgen sollte bei Bedarf neu verbinden. Dies könnte das Beste aus beiden Welten sein (lassen Sie die Verbindung ablaufen, wenn es nicht viel Aktivität gibt, halten Sie sie andernfalls offen).