. "Instead of . you can use ! to get reply in pm or ~ to get reply in channel.");
}
+sub say
+ : Help(.say target message | sends message to target)
+ : Type(pm)
+ : ACL(irc_say)
+{
+ my ($self, $c, $msg) = @_;
+ my ($target,$message) = $msg =~ /^(\S+)\s+(.+)$/ or die 'ARGS';
+
+ $c->message(privmsg => $target => $message );
+}
+
+sub cmd
+ : Help(.run command args | run a given command)
+ : Type(pm)
+ : ACL(irc_cmd)
+{
+ my ($self, $c, $msg) = @_;
+
+ $c->command(split /\s/, $msg);
+}
+
1;
INSERT INTO roles VALUES('irc_newtag');
INSERT INTO roles VALUES('irc_addtag');
INSERT INTO roles VALUES('irc_deltag');
+INSERT INTO roles VALUES('irc_say');
+INSERT INTO roles VALUES('irc_cmd');
INSERT INTO group_roles (gid,role) VALUES('T','irc_p_nick');
INSERT INTO group_roles (gid,role) VALUES('T','irc_p_intel');
INSERT INTO group_roles (gid,role) VALUES('T','irc_sendsms');
INSERT INTO group_roles (gid,role) VALUES('T','irc_smsstatus');
INSERT INTO group_roles (gid,role) VALUES('T','irc_forum_others');
+INSERT INTO group_roles (gid,role) VALUES('T','irc_say');
+INSERT INTO group_roles (gid,role) VALUES('T','irc_cmd');
INSERT INTO group_roles (gid,role) VALUES('M','irc_gs');
INSERT INTO group_roles (gid,role) VALUES('M','irc_scan');