| … | |
… | |
| 71 | } |
71 | } |
| 72 | |
72 | |
| 73 | cf::register_command who => $cf::TICK, sub { |
73 | cf::register_command who => $cf::TICK, sub { |
| 74 | my ($ob, $arg) = @_; |
74 | my ($ob, $arg) = @_; |
| 75 | |
75 | |
| 76 | $ob->reply (undef, (join "\n", who_listing $ob->flag (cf::FLAG_WIZ)), cf::NDI_UNIQUE | cf::NDI_DK_ORANGE); |
76 | $ob->reply (undef, (join "\n", who_listing $ob->may ("extended_who")), cf::NDI_UNIQUE | cf::NDI_DK_ORANGE); |
| 77 | |
77 | |
| 78 | 1 |
78 | 1 |
| 79 | }; |
79 | }; |
| 80 | |
80 | |
| 81 | cf::register_command rename => $cf::TICK, sub { |
81 | cf::register_command rename => $cf::TICK, sub { |
