… | |
… | |
82 | push @{$topics{$v->[0]}}, $k; |
82 | push @{$topics{$v->[0]}}, $k; |
83 | } |
83 | } |
84 | |
84 | |
85 | my $res; |
85 | my $res; |
86 | while (my ($k, $v) = each %topics) { |
86 | while (my ($k, $v) = each %topics) { |
87 | $res .= "B<$k:>\n" . (join " ", sort @$v) . "\n\n"; |
87 | $res .= "T<$k:>\n\n" . (join " ", sort @$v) . "\n\n"; |
88 | } |
88 | } |
89 | |
89 | |
90 | $pl->send_msg ($HELP_CHANNEL => $res, cf::NDI_REPLY | cf::NDI_CLEAR); |
90 | $pl->send_msg ($HELP_CHANNEL => $res, cf::NDI_REPLY | cf::NDI_CLEAR); |
91 | |
91 | |
92 | } elsif (my $item = $TOPIC->{$topic}) { |
92 | } elsif (my $item = $TOPIC->{$topic}) { |