Håll mysql-anslutningen öppen

Om du vill behålla anslutningen öppen är det bara att ringa

mysql::ping $dbhandle

då och då.

Detta kan göras med något i stil med detta:

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

Ett annat alternativ är att bara använda mysql::ping innan du får åtkomst till db, som bör enligt mysqltcl-manualen anslut om det behövs. Detta kan vara det bästa av två världar (låt anslutningen timeout om det inte är mycket aktivitet, håll den öppen annars).