From c4b144a7192bda12cc71c6223f78cfd9f3fadf73 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Thu, 20 Oct 2011 23:17:19 +0000
Subject: Added a command for changing whether or not a channel was being
 monitored, and fixed what I think was a huge backdoor

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

(limited to 'config-default')

diff --git a/config-default/commands.xml b/config-default/commands.xml
index 52f9339..87728a6 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -4,7 +4,7 @@
     $conn->privmsg($event->{to}->[0], "source is at http://svn.linuxrulz.org/repos/antispammeta");
   ]]>
   </command>
-  <command cmd="^;sql (main|log) (.*)">
+  <command cmd="^;sql (main|log) (.*)" flag="d">
   <![CDATA[
     my $dbh = $::db->{DBH};
     if ($1 eq 'log') {
@@ -13,6 +13,20 @@
     $::db->raw($conn, $event->{to}->[0], $dbh, $2);
   ]]>
   </command>
+  <command cmd="^;monitor (\S+) (yes|no)$" flag="a">
+  <![CDATA[
+    my $chan = lc $1;
+    my $switch = lc $2;
+    my $link = ASM::Util->getLink(lc $chan);
+    if ( lc $link ne lc $chan ) {
+      $conn->privmsg($event->{to}->[0], "Error: $chan is linked to $link - use $link instead.");
+      return;
+    }
+    $::channels->{channel}->{$chan}->{monitor} = $switch;
+    ASM::XML->writeChannels();
+    $conn->privmsg($event->{to}->[0], "Monitor flag for $chan set to $switch");
+  ]]>
+  </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