| … | |
… | |
| 72 | push @{$topics{$v->[0]}}, $k; |
72 | push @{$topics{$v->[0]}}, $k; |
| 73 | } |
73 | } |
| 74 | |
74 | |
| 75 | my $res; |
75 | my $res; |
| 76 | while (my ($k, $v) = each %topics) { |
76 | while (my ($k, $v) = each %topics) { |
| 77 | $res .= "[b]$k:[/b]\n" . (join " ", sort @$v) . "\n\n"; |
77 | $res .= "B<$k:>\n" . (join " ", sort @$v) . "\n\n"; |
| 78 | } |
78 | } |
| 79 | |
79 | |
| 80 | $pl->reply (undef, $res); |
80 | $pl->reply (undef, $res); |
| 81 | |
81 | |
| 82 | } elsif (my $item = $TOPIC->{$topic}) { |
82 | } elsif (my $item = $TOPIC->{$topic}) { |
| 83 | my ($type, @pars) = @$item; |
83 | my ($type, @pars) = @$item; |
| 84 | $pl->reply (undef, cf::pod::as_text \@pars); |
84 | $pl->reply (undef, cf::pod::as_cfpod \@pars); |
| 85 | |
85 | |
| 86 | } else { |
86 | } else { |
| 87 | $pl->reply (undef, "'$topic' no such help topic, try just 'help' to get a list of topics."); |
87 | $pl->reply (undef, "'$topic' no such help topic, try just 'help' to get a list of topics."); |
| 88 | } |
88 | } |
| 89 | }; |
89 | }; |
