Boas,
presumo que sejas português também..
Segundo o teu código o erro não se encontra aí porque tu em nenhum sitio usas a variável $portas, o erro deve estar em outra parte do código, cumprimentos.
Code: Select all
bind join - * join
proc join { n u h c t } {
set lastjoin $n
putlog "last join by $lastjoin"
}
Code: Select all
proc mysql_ping { } {
global db
utimer 30 [list mysql_ping]
set r [::mysql::ping $db]
}
mysql_ping