From 6fe4d3ecbdc3196c7c62b9b7e00d5063bd0dbee9 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Tue, 3 Jul 2007 23:26:43 +0000
Subject: code optimizations, rehash bugfix, lots of cleanup, new hilights,
 removed some old rules, added and improved some new rules

---
 config-default/commands.xml | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

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

diff --git a/config-default/commands.xml b/config-default/commands.xml
index 6b36aa4..5e5f9e8 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -162,7 +162,7 @@
   </command>
   <command cmd="^;rehash$" flag="a">
   <![CDATA[
-    readXML();
+    ASM::XML->readXML();
     $conn->privmsg($event->{to}->[0], 'config files were re-read');
   ]]>
   </command>
@@ -178,21 +178,25 @@
   </command>
   <command cmd="^;exempt (.*)" flag="o">
   <![CDATA[
-    push(@::eline, $1);
-    "$1\n" >> io 'exempt.txt';
-    $conn->privmsg($event->{to}->[0], "$1 exempted");
+    $::eline{lc $1} = 1;
+    "lc $1\n" >> io 'exempt.txt';
+    $conn->privmsg($event->{to}->[0], "lc $1 exempted");
   ]]>
   </command>
   <command cmd="^\!ops *(.*)">
   <![CDATA[
-    my $hilite=commaAndify(getAlert($event->{to}->[0], 'opalert', 'hilights'));
-    $conn->privmsg($_, "$hilite: $event->{nick} wants your attention ($1) ") foreach getAlert($event->{to}->[0], 'opalert', 'msgs');
+    my $hilite=ASM::Util->commaAndify(ASM::Util->getAlert($event->{to}->[0], 'opalert', 'hilights'));
+    $conn->privmsg($_, "$hilite: $event->{nick} wants your attention ($1) ") foreach ASM::Util->getAlert($event->{to}->[0], 'opalert', 'msgs');
   ]]>
   </command>
   <command cmd="^;re(load|hash) exempts" flag="a">
   <![CDATA[
     @eline=io('exempt.txt')->getlines;
     chomp @eline;
+    %::eline = ();
+    foreach my $item (@eline) {
+	$::eline{lc $item} = 1;
+    }
   ]]>
   </command>
 </commands>
-- 
cgit v1.2.3