Changes in perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm [744769e:7cfb1df]

File:

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

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

@@ -74 +74 @@
     $self->conn->add_handler(endofwhois=> sub { shift; $self->on_endofwhois(@_) });
     $self->conn->add_handler(mode      => sub { shift; $self->on_mode(@_) });
-
-    # * nosuchchannel
-    # * 
+    $self->conn->add_handler(nosuchchannel => sub { shift; $self->on_nosuchchannel(@_) });
 
     return $self;
@@ -204 +202 @@
     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',
@@ -282 +288 @@
                            join(" ", $evt->args) . "on " . $evt->to->[0]
                           );
+}
+
+sub on_nosuchchannel {
+    my ($self, $evt) = @_;
+    BarnOwl::admin_message("IRC",
+                           "[" . $self->alias . "] " .
+                           "No such channel: " . [$evt->args]->[1])
 }