Changeset 1b62a55

Timestamp:

Apr 26, 2009, 1:27:49 PM (15 years ago)

Author:

Alex Vandiver <alexmv@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:

1639ff7

Parents:

8921d3f

Message:

Add support for private channel keys

File:

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

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

@@ -175 +175 @@
         {
             summary => 'Join an IRC channel',
-            usage   => 'irc-join [-a ALIAS] #channel',
+            usage   => 'irc-join [-a ALIAS] #channel [KEY]',
 
             description => <<END_DESCR
@@ -431 +431 @@
     $channels{$chan} ||= [];
     push @{$channels{$chan}}, $conn;
-    $conn->conn->join($chan);
+    $conn->conn->join($chan, @_);
 }