Changeset ecee82f for perl/modules/IRC/lib

Timestamp:

Oct 3, 2009, 5:48:21 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

7cfb1df

Parents:

0e8a0fc

Message:

IRC: Fix '-a' with commands that take a channel.

Previously, the use of -a prevented the code from even trying to look
for a channel in the command line, meaning that commands that expected
a channel name would fail.

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC.pm (modified) (1 diff)

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

@@ -545 +545 @@
             $conn = get_connection_by_alias($alias);
         }
-        if(!$conn && $use_channel) {
+        if($use_channel) {
             $channel = $ARGV[0];
             if(defined($channel) && $channel =~ /^#/) {
                 if($channels{$channel} && @{$channels{$channel}} == 1) {
                     shift @ARGV;
-                    $conn = $channels{$channel}[0];
-                }  
+                    $conn = $channels{$channel}[0] unless $conn;
+                }
+            } elsif ($m && $m->type eq 'IRC' && !$m->is_private) {
+                $channel = $m->channel;
             } else {
-                if($m && $m->type eq 'IRC' && !$m->is_private) {
-                    $channel = $m->channel;
-                } else {
-                    undef $channel;
-                }
+                undef $channel;
             }
         }
+
         if(!$channel && $use_channel == REQUIRE_CHANNEL) {
             die("Usage: $cmd <channel>\n");