Add ircpm type for irc specific commands

[NDIRC.git] / Commands / Basic.pm

diff --git a/Commands/Basic.pm b/Commands/Basic.pm
index 62aa717eeb9327b4188b43f829968991b4f2adb7..6517e384b94660353a53209b424a8ea1b41420ee 100644 (file)
--- a/Commands/Basic.pm
+++ b/Commands/Basic.pm
@@ -25,6 +25,7 @@ use NDIRC::Dispatcher;
 
 command commands => {
        help => q(commands <command> | Gives help about all available commands or lists all commands available in the current channel),
+       type => 'help',
 }, class extends NDIRC::Command {
        method execute ($c,$command) {
                unless($command){
@@ -38,9 +39,7 @@ command commands => {
                        }
                        $c->reply(join ', ', @commands);
                }elsif (exists $c->disp->commands->{$command}){
-                       for (@{$c->disp->commands->{$command}->help}){
-                               $c->reply($_);
-                       }
+                       $c->reply($c->disp->commands->{$command}->help);
                }
        }
 };
@@ -59,7 +58,7 @@ command help => {
 
 command say => {
        help => q(.say target message | sends message to target),
-       type => q(pm),
+       type => q(ircpm),
        acl => q(irc_say),
 }, class extends NDIRC::Command {
        method execute ($c,$msg) {
@@ -71,7 +70,7 @@ command say => {
 
 command cmd => {
        help => q(.cmd command args | run a given irc command),
-       type => q(pm),
+       type => q(ircpm),
        acl  => q(irc_cmd),
 }, class extends NDIRC::Command {
        method execute ($c,$msg) {