-sub help
- : Help(Prints basic help)
- : Type(help)
-{
- my ($self, $c, $command) = @_;
+ $c->message(privmsg => $target => $message );
+ }
+};
+
+command cmd => {
+ help => q(.cmd command args | run a given irc command),
+ type => q(pm),
+ acl => q(irc_cmd),
+}, class extends NDIRC::Command {
+ method execute ($c,$msg) {
+
+ $c->command(split /\s/, $msg);
+ }
+};
+
+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>");
+ }
+};