Changeset 7cfb1df for perl/modules/IRC/lib

Timestamp:

Oct 6, 2009, 12:06:42 AM (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:

3b80321

Parents:

ecee82f

Message:

IRC: Handle 'nosuchchannel' events.

Fixes #109.

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm (modified) (2 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;
@@ -292 +290 @@
 }
 
+sub on_nosuchchannel {
+    my ($self, $evt) = @_;
+    BarnOwl::admin_message("IRC",
+                           "[" . $self->alias . "] " .
+                           "No such channel: " . [$evt->args]->[1])
+}
+
 sub on_event {
     my ($self, $evt) = @_;