Changeset 4f7b1f4 for perl/modules/IRC

Timestamp:

Aug 8, 2013, 2:19:03 PM (11 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Branches:

master, release-1.10

Children:

a38becd, 8b2419c

Parents:

48c09d4

git-author:

Edward Z. Yang <ezyang@mit.edu> (01/03/13 13:15:23)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (08/08/13 14:19:03)

Message:

Support channel-or-user IRC commands, and setup irc-msg to use it.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC.pm (modified) (4 diffs)

perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

@@ -138 +138 @@
 argument listed above, and die if no channel argument can be found.
 
+=item C<CHANNEL_OR_USER>
+
+Pass the channel argument, but accept it if it's a username (e.g.
+has no hash).  Only relevant with C<CHANNEL_ARG>.
+
 =item C<CHANNEL_OPTIONAL>
 
@@ -154 +159 @@
 use constant CHANNEL_ARG        => 1;
 use constant CHANNEL_OPTIONAL   => 2;
-
-use constant ALLOW_DISCONNECTED => 4;
+use constant CHANNEL_OR_USER    => 4;
+
+use constant ALLOW_DISCONNECTED => 8;
 
 sub register_commands {
@@ -197 +203 @@
 
     BarnOwl::new_command(
-        'irc-msg' => mk_irc_command( \&cmd_msg ),
+        'irc-msg' => mk_irc_command( \&cmd_msg, CHANNEL_OR_USER|CHANNEL_ARG|CHANNEL_OPTIONAL ),
         {
             summary => 'Send an IRC message',
@@ -608 +614 @@
                     $conn ||= $c;
                 }
+            } elsif (defined($channel) && ($flags & CHANNEL_OR_USER)) {
+                shift @ARGV;
             } elsif ($m && $m->type eq 'IRC' && !$m->is_private) {
                 $channel = $m->channel;