Changeset 0e8a0fc for perl


Ignore:
Timestamp:
Oct 3, 2009, 5:34:19 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:
ecee82f
Parents:
9f5e847
Message:
IRC: Remove channels from the channel list on disconnect.
File:
1 edited

Legend:

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

    r744769e r0e8a0fc  
    204204    my $self = shift;
    205205    delete $BarnOwl::Module::IRC::ircnets{$self->alias};
     206    for my $k (keys %BarnOwl::Module::IRC::channels) {
     207        my @conns = grep {$_ ne $self} @{$BarnOwl::Module::IRC::channels{$k}};
     208        if(@conns) {
     209            $BarnOwl::Module::IRC::channels{$k} = \@conns;
     210        } else {
     211            delete $BarnOwl::Module::IRC::channels{$k};
     212        }
     213    }
    206214    BarnOwl::remove_dispatch($self->{FD});
    207215    BarnOwl::admin_message('IRC',
Note: See TracChangeset for help on using the changeset viewer.