Posted to tcl by ybloc at Sat Jan 20 20:53:51 GMT 2024view pretty

######################################
### Timer for the mysql connection ###
######################################
if {[timerexists pre:dbconnection] !=""} { killtimer $dbconnect(dbtimer) }

set dbconnect(dbtimer) [timer 1 pre:dbconnection]

proc pre:dbconnection {} {
	global mysql_ dbconnect
	if {[catch  {mysqlping $mysql_(handle)}] != 0} { 
         set mysql_(handle) [mysqlconnect -host $mysql_(host) -user $mysql_(user) -password $mysql_(password) -db $mysql_(database)]
	}
	if {[set var [timerexists pre:dbconnection]] !="" } { killtimer $var }
	set dbconnect(dbtimer) [timer 1 pre:dbconnection]
}
#if {[file exists /usr/lib/mysqltcl-3.02/libmysqltcl3.02.so]} {
#    load /usr/lib/mysqltcl-3.02/libmysqltcl3.02.so
#}
####################################END OF SCRIPT###############################

Tcl error in file 'eggdrop.conf':
invalid command name "timerexists"
    while executing
"timerexists pre:dbconnection"
    (file "scripts/pre.tcl" line 1783)
    invoked from within