egghelp/eggheads community

Too many connections in server MySQL

2010-09-14T20:10:50-04:00

Code:

bind pubm - * Word:check proc Word:check {nick host hand chan text} {    if {![channel get $chan badword]} { return 0 }    if {[isop $nick]} {return 0}    if {[matchattr $hand o|o $chan]} { return 0 }    set conx [getConnection]    set sqltext [::mysql::escape "SELECT * FROM ExceptWord where '$text' LIKE Mot"]    set wordcheck [mysqlsel $conx $sqltext]    if {$wordcheck  > 0} {putlog "$text existant" ; return 0}    set sqltext [::mysql::escape "SELECT * FROM ExceptWord where '$text' LIKE Badword"]    set Badwordcheck [mysqlsel $conx $sqltext]    if {$Badwordcheck  > 0} {       set why [mysqlsel $conx "SELECT Raison FROM BadWord WHERE '$text' LIKE Badword"]       if {[llength $why] > 0} {          set ban "*!*[string range $host [string first @ $host] e]"          putserv "PRIVMSG X :ban $chan $ban 5 75 [lindex $why 0]"       }       return 0    }   # here   mysql::close $conx   #  }

Statistics: Posted by DarkRaptor — Tue Sep 14, 2010 8:10 pm

Too many connections in server MySQL

2010-09-14T18:49:52-04:00

I have placed after return and the same message

Statistics: Posted by neoclust — Tue Sep 14, 2010 6:49 pm

Too many connections in server MySQL

2010-09-14T18:03:10-04:00

Hi,

Your code close the connection only if llenght $why is greater than 0. I suggest put mysql::close just before the last close-brace.

Statistics: Posted by DarkRaptor — Tue Sep 14, 2010 6:03 pm

Too many connections in server MySQL

2010-09-14T14:35:28-04:00

Hello I tried to use mysql for storing data, but I encountered this problem

Tcl error [Channel:check]: mysql::connect/db server: Trop de connections

This is code

Code:

bind pubm - * Word:checkproc Word:check {nick host hand chan text} {if {![channel get $chan badword]} { return 0 }if {[isop $nick]} {return 0}if {[matchattr $hand o|o $chan]} { return 0 }set conx [getConnection]set sqltext [::mysql::escape "SELECT * FROM ExceptWord where '$text' LIKE Mot"]set wordcheck [mysqlsel $conx $sqltext]if {$wordcheck  > 0} {putlog "$text existant" ; return 0}set sqltext [::mysql::escape "SELECT * FROM ExceptWord where '$text' LIKE Badword"]set Badwordcheck [mysqlsel $conx $sqltext]if {$Badwordcheck  > 0} {set why [mysqlsel $conx "SELECT Raison FROM BadWord WHERE '$text' LIKE Badword"]if {[llength $why] > 0} {set ban "*!*[string range $host [string first @ $host] e]"putserv "PRIVMSG X :ban $chan $ban 5 75 [lindex $why 0]"mysql::close $conx}return 0}}

there must be a way to close the open connection thanks

Statistics: Posted by neoclust — Tue Sep 14, 2010 2:35 pm