| … | |
… | |
| 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}) { |
