From 1a452fa0a8a7eacc85337e6442329b599be0d7d9 Mon Sep 17 00:00:00 2001
From: Doug Freed <dwfreed@mtu.edu>
Date: Sun, 1 Mar 2015 05:31:17 +0400
Subject: Add ;bllookup command to look up blacklist entries by ID

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

(limited to 'config-default')

diff --git a/config-default/commands.xml b/config-default/commands.xml
index 4503c56..6589458 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -652,4 +652,22 @@
     } else { $conn->privmsg($event->replyto, "ID is invalid"); }
   ]]>
   </command>
+  <command cmd="^;bllookup ([0-9a-f]+)$" flag="s">
+  <![CDATA[
+    my $id = $1;
+    if (defined($::blacklist->{string}->{$id})) {
+      my $content = $::blacklist->{string}->{$id}->{content};
+      my $setby = $::blacklist->{string}->{$id}->{setby};
+      my $settime = $::blacklist->{string}->{$id}->{settime};
+      my $reason = $::blacklist->{string}->{$id}->{reason};
+      $reason = 'none ever provided' unless defined($reason);
+      $conn->privmsg($event->nick, "'$content' blacklisted by $setby on $settime with reason $reason");
+      if ($event->{to}->[0] =~ /^#/) {
+        $conn->privmsg($event->replyto, "Info on blacklist ID $id sent via PM");
+      }
+    } else {
+      $conn->privmsg($event->replyto, "ID is invalid");
+    }
+  ]]>
+  </command>
 </commands>
-- 
cgit v1.2.3