From 3790452619828dc2c5d27c13eeec7b67b3fe6eff Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Thu, 26 Jul 2007 00:46:31 +0000
Subject: new commands like ;help, code optimizations, bugfixes, colors in the
 messages, and more\!

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

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

diff --git a/config-default/commands.xml b/config-default/commands.xml
index 8353b0f..eedf584 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -1,4 +1,9 @@
 <commands>
+  <command cmd="^;help$">
+  <![CDATA[
+    $conn->privmsg($event->{to}->[0], "help is at http://meta.wikimedia.org/wiki/User:WHeimbigner/AntiSpamMeta");
+  ]]>
+  </command>
   <command cmd="^;query (\S+) (\S+)$">
   <![CDATA[
     my $channel = $1;
@@ -178,15 +183,16 @@
   </command>
   <command cmd="^;exempt (.*)" flag="o">
   <![CDATA[
-    $::eline{lc $1} = 1;
-    lc $1 . "\n" >> io 'exempt.txt';
-    $conn->privmsg($event->{to}->[0], lc $1 . " exempted");
+    my $x = lc $1;
+    $::eline{$x} = 1;
+    $x . "\n" >> io 'exempt.txt';
+    $conn->privmsg($event->{to}->[0], $x . " exempted");
   ]]>
   </command>
   <command cmd="^\!ops *(.*)">
   <![CDATA[
     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');
+    $conn->privmsg($_, "[$event->{to}->[0]] - $event->{nick} wants op attention ($1) $hilite") foreach ASM::Util->getAlert($event->{to}->[0], 'opalert', 'msgs');
   ]]>
   </command>
   <command cmd="^;re(load|hash) exempts" flag="a">
-- 
cgit v1.2.3