diff options
| -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> |