Changeset 38d50c2 for perl/modules/IRC/lib/BarnOwl

Timestamp:

Apr 3, 2011, 3:06:00 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.8, release-1.9

Children:

4787581

Parents:

8ba9313

git-author:

Nelson Elhage <nelhage@mit.edu> (02/26/11 16:37:52)

git-committer:

Nelson Elhage <nelhage@mit.edu> (04/03/11 15:06:00)

Message:

Handle NICK messages from the server.

File:

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

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

@@ -80 +80 @@
                         irc_402       => sub { shift; $self->on_nosuch(@_) },
                         irc_403       => sub { shift; $self->on_nosuch(@_) },
+                        nick_change  => sub { shift; $self->on_nick(@_); },
                         'irc_*' => sub { BarnOwl::debug("IRC: " . $_[1]->{command}) });
 
@@ -227 +228 @@
 }
 
+sub on_nick {
+    my ($self, $old_nick, $new_nick, $is_me) = @_;
+    if ($is_me) {
+        BarnOwl::admin_message("IRC",
+                               "[" . $self->alias . "] " .
+                               "You are now known as $new_nick");
+    } else {
+        BarnOwl::admin_message("IRC",
+                               "[" . $self->alias . "] " .
+                               "$old_nick is now known as $new_nick");
+    }
+}
+
 sub on_topic {
     my ($self, $channel, $topic, $who) = @_;