1 | #! perl # mandatory |
1 | #! perl # mandatory depends=irc |
2 | |
2 | |
3 | use POSIX (); |
3 | use POSIX (); |
4 | |
4 | |
5 | # miscellaneous commands |
5 | # miscellaneous commands |
6 | |
6 | |
… | |
… | |
35 | |
35 | |
36 | $ob->esrv_update_item (cf::UPD_NAME, $item); |
36 | $ob->esrv_update_item (cf::UPD_NAME, $item); |
37 | |
37 | |
38 | 1 |
38 | 1 |
39 | } |
39 | } |
40 | |
|
|
41 | sub ext::irc::users; # HACK: TODO: replace by signal |
|
|
42 | |
40 | |
43 | sub who_listing(;$$) { |
41 | sub who_listing(;$$) { |
44 | my ($privileged, $select) = @_; |
42 | my ($privileged, $select) = @_; |
45 | |
43 | |
46 | my ($numwiz, $numafk) = (0, 0); |
44 | my ($numwiz, $numafk) = (0, 0); |