diff options
| author |   Doug Freed <dwfreed@mtu.edu> | 2015-03-01 05:31:17 +0400 |
|---|---|---|
| committer |   Janik Kleinhoff <janik@kleinhoff.de> | 2015-03-01 05:31:17 +0400 |
| commit | 1a452fa0a8a7eacc85337e6442329b599be0d7d9 (patch) | |
| tree | 3246d3b7564873f046d1fb209a41c7d12d9ac21d /config-default | |
| parent | e07d1efcdfcda394694b78e3b4d674a6bddb6b4d (diff) | |
Add ;bllookup command to look up blacklist entries by ID
Diffstat (limited to 'config-default')
| -rw-r--r-- | config-default/commands.xml | 18 |
1 files changed, 18 insertions, 0 deletions
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> |