-sub commands
- : Help(commands <command> | Gives help about all available commands or lists all commands available in the current channel)
-{
- my ($self, $c, $command) = @_;
+command commands => {
+ help => q(commands <command> | Gives help about all available commands or lists all commands available in the current channel),
+}, class extends NDIRC::Command {
+ method execute ($c,$command) {
+ unless($command){
+ my @commands;
+ for (sort keys %{$c->disp->commands}){
+ next unless $c->disp->has_command($_,$c->channel);
+ my $acl = $c->disp->commands->{$_}->acl;
+ next if $acl && !$c->check_user_roles($acl);