From 84f907f09f45aad05b7c4739e8ceb31b700b2fdb Mon Sep 17 00:00:00 2001
From: Janik Kleinhoff <janik@kleinhoff.de>
Date: Sun, 1 Mar 2015 07:30:30 +0400
Subject: commands.xml: add a ;silence command (like ;monitor) for the silence
 flag

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

diff --git a/config-default/commands.xml b/config-default/commands.xml
index 6828438..8f6cb41 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -149,6 +149,20 @@
     }
   ]]>
   </command>
+  <command cmd="^;silence (\S+) ?(yes|no)?$" flag="a">
+  <![CDATA[
+    my $chan = lc $1;
+    if (defined($2)) {
+      my $switch = lc $2;
+      $::channels->{channel}->{$chan}->{silence} = $switch;
+      ASM::XML->writeChannels();
+      $conn->privmsg($event->replyto, "Silence flag for $chan set to $switch");
+    } else {
+      my $switch = $::channels->{channel}->{$chan}->{silence};
+      $conn->privmsg($event->replyto, "Silence flag for $chan is currently set to $switch");
+    }
+  ]]>
+  </command>
   <command cmd="^;help$">
   <![CDATA[
     $conn->privmsg($event->replyto, "Please refer to http://antispammeta.net and irc.freenode.net #antispammeta");
-- 
cgit v1.2.3