Changeset 4

Timestamp:

04/29/06 12:25:58 (6 years ago)

Author:

james

Message:

use ping to check we're still connected

File:

• TriviaEngine/TriviaEngine.tcl (modified) (5 diffs)

TriviaEngine/TriviaEngine.tcl

@@ -61 +61 @@
 bind msg - trivia trivia_msg
 
-# connect mysql
-set trivia_db_handle [mysqlconnect -host localhost -user root -password 7MKh3ako -db trivialive]
+# connect mysql <<<
+proc trivia_connect { } {
+        global trivia_db_handle
+        set trivia_db_handle [mysqlconnect -host localhost -user root -password 7MKh3ako -db trivialive]
+}
+#>>>
 
 #>>>
@@ -569 +573 @@
         set trivia_status 0
         putserv "PRIVMSG $trivia_channel :Trivia enabled."
+
+        set alive [::mysql::ping $trivia_db_handle]
+        if {$alive == false} {
+                putlog "ERROR: mysql has gone away :("
+                putquick "PRIVMSG $trivia_channel :Warning: Unable to reach database!"
+        }
         return 0
 }
@@ -660 +670 @@
 proc trivia_get_question { } {
 #<<<
-        global trivia_db_handle trivia_q_id trivia_q_cat trivia_q_question trivia_q_answer trivia_q_hint
+        global trivia_db_handle trivia_q_id trivia_q_cat trivia_q_question trivia_q_answer trivia_q_hint trivia_channel
+
+        # make sure we're connected
+        set alive [::mysql::ping $trivia_db_handle]
+        if {$alive == false} {
+                putlog "ERROR: mysql has gone away :("
+                putquick "PRIVMSG $trivia_channel :Couldn't reach database to load next question :("
+                return 0
+        }
+
         set sql "SELECT q.question, q.question_id, q.answer, c.cat_name FROM questions q LEFT JOIN categories c USING (cat_id) WHERE c.cat_enabled=1 ORDER BY count ASC, rand() LIMIT 1"
         set result [mysqlquery $trivia_db_handle $sql]
@@ -937 +956 @@
         }
 
+        set alive [::mysql::ping $trivia_db_handle]
+        if {$alive == false} {
+                putlog "ERROR: mysql has gone away :("
+                putquick "PRIVMSG $trivia_channel :Unable to start game; can't reach database :("
+        }
+
         # go go go
         set trivia_status 1
@@ -1343 +1368 @@
 #>>>
 
+trivia_connect
+
 putlog {TriviaEngine ENGAGED(*$£&($}