From 2e39d5b2b95c2e705fd962c9752070f816c1dfec Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 4 Jul 2007 02:00:24 +0000
Subject: critical bug fix + code optimizations

---
 config-default/channels.xml |  1 +
 config-default/commands.xml | 12 ++++++++++--
 2 files changed, 11 insertions(+), 2 deletions(-)

(limited to 'config-default')

diff --git a/config-default/channels.xml b/config-default/channels.xml
index 035fcd4..de9800b 100644
--- a/config-default/channels.xml
+++ b/config-default/channels.xml
@@ -193,6 +193,7 @@
     <event id="wikifags2" action="none" class="re" nocase="nocase" reason="saying 'sure are a lot of wikifag'..." risk="low" time="0" type="public">sure are a ?lot of wikifag</event>
     <event id="dcc-part" action="ban" class="re" reason="using the DC.C SE.ND exploit in a part message" risk="high" time="0" type="part">DCC SEND </event>
     <event id="levenflood" action="none" class="levenflood" reason="levenshtein flood match" risk="debug" time="0" type="public" override="flood-5to3">contentisuseless</event>
+    <event id="blacklist" action="none" class="strbl" reason="sending pm matching string blacklist" risk="low" time="0" type="public">blah</event>
     <hilights>
       <debug>AfterDeath</debug>
     </hilights>
diff --git a/config-default/commands.xml b/config-default/commands.xml
index 5e5f9e8..8353b0f 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -179,8 +179,8 @@
   <command cmd="^;exempt (.*)" flag="o">
   <![CDATA[
     $::eline{lc $1} = 1;
-    "lc $1\n" >> io 'exempt.txt';
-    $conn->privmsg($event->{to}->[0], "lc $1 exempted");
+    lc $1 . "\n" >> io 'exempt.txt';
+    $conn->privmsg($event->{to}->[0], lc $1 . " exempted");
   ]]>
   </command>
   <command cmd="^\!ops *(.*)">
@@ -199,4 +199,12 @@
     }
   ]]>
   </command>
+  <command cmd="^;blacklist (.*)" flag="o">
+  <![CDATA[
+    my $str = lc $1;
+    push(@::string_blacklist, $str);
+    "$str\n" >> io 'string_blacklist.txt';
+    $conn->privmsg($event->{to}->[0], "$str blacklisted");
+  ]]>
+  </command>
 </commands>
-- 
cgit v1.2.3