}
$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);
}
}
};
}
};
+command anon => {
+ help => q(syntax: .anon nick message),
+ type => q(anon),
+ acl => q(irc_anon),
+}, class extends NDIRC::Command {
+ method execute($c,$msg) {
+ my ($target,$mess) = $msg =~ /^(\S+) (.*)$/ or die 'ARGS';
+
+ $c->message(privmsg => $target, "<b>$mess</b> <c04>(reply with /msg "
+ .$c->channel.")</c>");
+ $c->message(privmsg => $c->channel, "<c03>$target << $mess</c>");
+ }
+};
+
+
1;