Catch error

[garfwen]

Hello

Code: Select all

<Eggdrop> [XX:XX] Tcl error [my_proc]: ::mysql::sel/db server: MySQL server has gone away

is there any way to catch this error? and execute something when it catches?

Thank you
GaRfWeN

[nml375]

Use the "catch" command with each ::mysql::* command? (works for any other command that would throw an error, as well).

Workflow would be something like this:

Code: Select all

if {[catch {::mysql::sel "SELECT * FROM `Yourtable`" -list} result]} {
  putlog "An error occured while retrieving data from `Yourtable`. The error was \"$result\"."
} {
  putlog "Retrieved data from `Yourtable`:"
  foreach item $result {
    putlog "data: [join $item ", "]"
  }
}

In the case of an error, you'll also find extended information on the error in the ::errorInfo and ::errorCode variables (putlog $::errorCode or such).

[garfwen]

Thanks.