From d9aa585949c5b0cfa993de2f16a380e62dfbb04c Mon Sep 17 00:00:00 2001 From: Pragmatic Software Date: Thu, 6 Feb 2020 10:47:19 -0800 Subject: [PATCH] NickList: add get_nicks() function --- PBot/NickList.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/PBot/NickList.pm b/PBot/NickList.pm index 6390b6b3..32af664e 100644 --- a/PBot/NickList.pm +++ b/PBot/NickList.pm @@ -124,6 +124,17 @@ sub get_channels { return \@channels; } +sub get_nicks { + my ($self, $channel) = @_; + $channel = lc $channel; + my @nicks; + return @nicks if not exists $self->{nicklist}->{$channel}; + foreach my $nick (keys %{ $self->{nicklist}->{$channel} }) { + push @nicks, $self->{nicklist}->{$channel}->{$nick}->{nick}; + } + return @nicks; +} + sub set_meta { my ($self, $channel, $nick, $key, $value) = @_;