From 0293b9d684ce2f89a1850b7a0d4819bdd1c947ef Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Sun, 25 Nov 2007 21:33:40 +0000
Subject: better logging, better flood detection, command ignoring

---
 config-default/commands.xml | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'config-default/commands.xml')

diff --git a/config-default/commands.xml b/config-default/commands.xml
index 3ab49e9..5a4341c 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -1,4 +1,13 @@
 <commands>
+  <command cmd="^;sql (main|log) (.*)">
+  <![CDATA[
+    my $dbh = $::db->{DBH};
+    if ($1 eq 'log') {
+      $dbh = $::db->{DBH_LOG};
+    }
+    $::db->raw($conn, $event->{to}->[0], $dbh, $2);
+  ]]>
+  </command>
   <command cmd="^;help$">
   <![CDATA[
     $conn->privmsg($event->{to}->[0], "help is at http://meta.wikimedia.org/wiki/User:WHeimbigner/AntiSpamMeta");
-- 
cgit v1.2.3