possible running request sql since windrop in database but don't need package mysqltcl like example
>don't working with windrop 1.6.13 to 1.6.19 and mysqltcl-3.03
Code: Select all
##############################
# Connexion à MySQL #
###############################
load libmysqltcl.dll
package require mysqltcl
if { [catch {mysqlstate $mysql_handler}] } {
if [catch {mysqlconnect -host $host -user $user -password $password -db $db} mysql_handler] {
putquick "PRIVMSG $chanadd :Error MySQL !!"
putlog "PREDB : Error connexion MySQL !"
}
} else {
putlog "PREDB: MYSQL connected !"
}
bind pub - !test pub:test
proc pub:test {nick uhost handle channel arg } {
global Hdecalage chanadd chanpre botnetkick1 prebotnick erreur
if { [catch {mysqlstate $mysql_handler}] } {
if [catch {mysqlconnect -host $host -user $user -password $password -db $db} mysql_handler] {
putlog "PREDB : Error MySQL !"
}
} else {
putlog "PREDB : Connect MySQL !"
}