Changeset 1b62a55 for perl


Ignore:
Timestamp:
Apr 26, 2009, 1:27:49 PM (16 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

    re0fba58 r1b62a55  
    175175        {
    176176            summary => 'Join an IRC channel',
    177             usage   => 'irc-join [-a ALIAS] #channel',
     177            usage   => 'irc-join [-a ALIAS] #channel [KEY]',
    178178
    179179            description => <<END_DESCR
     
    431431    $channels{$chan} ||= [];
    432432    push @{$channels{$chan}}, $conn;
    433     $conn->conn->join($chan);
     433    $conn->conn->join($chan, @_);
    434434}
    435435
Note: See TracChangeset for help on using the changeset viewer.