diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2016-02-19 00:36:17 -0700 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2016-02-19 00:36:17 -0700 |
| commit | d7ea76e9fcf7ce323542e7d19c19426293dfbb4a (patch) | |
| tree | ecdc07fcd4aa776ecc349026086720cb5ebe91d9 /lib/ASM | |
| parent | 344a6d6af66abccbca0a9c2bd920e2b9edffca3e (diff) | |
fix feature wherein ;bllookup failed to indicate what ID was being looked up
Diffstat (limited to 'lib/ASM')
| -rw-r--r-- | lib/ASM/Commander.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/ASM/Commander.pm b/lib/ASM/Commander.pm index e66e8c2..1fd92d1 100644 --- a/lib/ASM/Commander.pm +++ b/lib/ASM/Commander.pm @@ -1022,17 +1022,17 @@ sub cmd_blreason { sub cmd_bllookup { my ($conn, $event) = @_; - - 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}; - my $type = $::blacklist->{string}->{$+{id}}->{type}; + my $id = $+{id}; + 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}; + my $type = $::blacklist->{string}->{$id}->{type}; $reason = 'none ever provided' unless defined($reason); $conn->privmsg($event->nick, "'$content' $type blacklisted by $setby on $settime with reason $reason"); if ($event->{to}->[0] =~ /^#/) { - $conn->privmsg($event->replyto, "Info on blacklist ID $+{id} sent via PM"); + $conn->privmsg($event->replyto, "Info on blacklist ID $id sent via PM"); } } else { $conn->privmsg($event->replyto, "ID is invalid"); |