Changeset 60b49a7 for perl/modules/IRC/lib/BarnOwl/Message/IRC.pm

Timestamp:

Apr 3, 2011, 3:06:01 PM (13 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

0ccf5ab

Parents:

5d4262c

git-author:

Nelson Elhage <nelhage@mit.edu> (03/03/11 10:58:42)

git-committer:

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

Message:

Make nick-change events LOGIN messages instead of ADMIN.

File:

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

perl/modules/IRC/lib/BarnOwl/Message/IRC.pm

@@ -66 +66 @@
 sub action {shift->{action}}
 sub reason {shift->{reason}}
+sub old_nick {shift->{old_nick}};
 
 # display
@@ -80 +81 @@
 }
 
-sub login_extra { 
+sub login_extra {
     my $self = shift;
     if ($self->action eq "quit") {
         return $self->reason;
+    } elsif ($self->action eq 'nick change') {
+        return "was: " . $self->old_nick;
     } else {
         return $self->channel;