Changeset 0e8a0fc for perl

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:

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

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

@@ -204 +204 @@
     my $self = shift;
     delete $BarnOwl::Module::IRC::ircnets{$self->alias};
+    for my $k (keys %BarnOwl::Module::IRC::channels) {
+        my @conns = grep {$_ ne $self} @{$BarnOwl::Module::IRC::channels{$k}};
+        if(@conns) {
+            $BarnOwl::Module::IRC::channels{$k} = \@conns;
+        } else {
+            delete $BarnOwl::Module::IRC::channels{$k};
+        }
+    }
     BarnOwl::remove_dispatch($self->{FD});
     BarnOwl::admin_message('IRC',