Changeset e625b5e for perl/modules/IRC/lib/BarnOwl

Timestamp:

Feb 21, 2009, 11:16:58 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

f17bb2c0

Parents:

4df2568

Message:

IRC: Implement irc-mode.

We could probably be smarter about this; Right now I believe 'irc-mode
#channel +m' works, but 'irc-mode +m #channel' doesn't. But it's a start.

File:

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

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

@@ -111 +111 @@
     BarnOwl::new_command('irc-disconnect' => mk_irc_command(\&cmd_disconnect));
     BarnOwl::new_command('irc-msg'        => mk_irc_command(\&cmd_msg, OPTIONAL_CHANNEL));
+    BarnOwl::new_command('irc-mode'       => mk_irc_command(\&cmd_mode, OPTIONAL_CHANNEL));
     BarnOwl::new_command('irc-join'       => mk_irc_command(\&cmd_join));
     BarnOwl::new_command('irc-part'       => mk_irc_command(\&cmd_part, REQUIRE_CHANNEL));
@@ -238 +239 @@
 }
 
+sub cmd_mode {
+    my $cmd = shift;
+    my $conn = shift;
+    my $target = shift;
+    $target ||= shift;
+    $conn->conn->mode($target, @_);
+}
+
 sub cmd_join {
     my $cmd = shift;
@@ -343 +352 @@
         }
         if(!$conn && $use_channel) {
-            $channel = $ARGV[-1];
+            $channel = $ARGV[0];
             if(defined($channel) && $channel =~ /^#/) {
                 if($channels{$channel} && @{$channels{$channel}} == 1) {
-                    pop @ARGV;
+                    shift @ARGV;
                     $conn = $channels{$channel}[0];
                 }