From ba55c0675df20a89a452162216af4b6a8e06ce5c Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Tue, 25 Mar 2008 17:05:22 +0000
Subject: Added dnsbl analysis, better sql, better rules, fixed some commands

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

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

diff --git a/config-default/commands.xml b/config-default/commands.xml
index 5a4341c..3595281 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -1,4 +1,9 @@
 <commands>
+  <command cmd="^;source$">
+  <![CDATA[
+    $conn->privmsg($event->{to}->[0], "source is at http://svn.linuxrulz.org/repos/antispammeta");
+  ]]>
+  </command>
   <command cmd="^;sql (main|log) (.*)">
   <![CDATA[
     my $dbh = $::db->{DBH};
@@ -40,7 +45,7 @@
   <![CDATA[
     my $nick = lc $1;
     my $flags = $2;
-    if ($flags eq '') {
+    if ((!defined($flags)) || ($flags eq '')) {
       if (defined($::users->{person}->{$nick}->{flags})) {
         $conn->privmsg($event->{to}->[0], "Flags for $nick: $::users->{person}->{$nick}->{flags}");
       } else {
@@ -124,7 +129,7 @@
     $conn->privmsg($event->{to}->[0], "$nick removed from targets for $chan");
   ]]>
   </command>
-  <command cmd="^;showhilights (\S+)$" flag="a">
+  <command cmd="^;showhilights (\S+)$" flag="h">
   <![CDATA[
     my $nick = lc $1;
     my @channels = ();
@@ -142,7 +147,7 @@
     }
   ]]>
   </command>
-  <command cmd="^;hilight (\S+) (\S+) ?(\S*)$" flag="a">
+  <command cmd="^;hilight (\S+) (\S+) ?(\S*)$" flag="h">
   <![CDATA[
     my $chan = $1;
     my $nick = $2;
@@ -166,7 +171,7 @@
     $conn->privmsg($event->{to}->[0], "$nick added to $level risk hilights for $chan");
   ]]>
   </command>
-  <command cmd="^;dehilight (\S+) (\S+)" flag="a">
+  <command cmd="^;dehilight (\S+) (\S+)" flag="h">
   <![CDATA[
     my $chan = $1;
     my $nick = $2;
@@ -248,11 +253,12 @@
     $conn->privmsg($event->{to}->[0], $x . " exempted");
   ]]>
   </command>
-  <command cmd="^\!ops (#\S+)? ?(.*)">
+  <command cmd="^\!ops ?(#\S+)? ?(.*)">
   <![CDATA[
     my $tgt = $event->{to}->[0];
     $tgt = $1 if (defined($1));
-    my $msg = $2;
+    my $msg = $1;
+    $msg = $2 if defined($2);
     my $hilite=ASM::Util->commaAndify(ASM::Util->getAlert($tgt, 'opalert', 'hilights'));
     $conn->privmsg($_, "[$tgt] - $event->{nick} wants op attention ($msg) $hilite") foreach ASM::Util->getAlert($tgt, 'opalert', 'msgs');
   ]]>
-- 
cgit v1.2.3