Changeset 4789b17 for perl/modules/IRC/lib/BarnOwl/Message/IRC.pm

Timestamp:

Jul 25, 2008, 11:59:40 PM (16 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

a1a2036

Parents:

d264c6d

Message:

IRC: Add /quit display support

File:

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

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

@@ -56 +56 @@
 sub network {shift->{network}}
 sub channel {shift->{channel}}
+sub action {shift->{action}}
+sub reason {shift->{reason}}
 
 # display
@@ -65 +67 @@
 sub login_type {
     my $self = shift;
-    return " (" . ($self->is_login ? "JOIN" : "PART") . ")";
+    return " (" . uc $self->action . ")";
 }
 
-sub login_extra { shift->channel; }
-
+sub login_extra { 
+    my $self = shift;
+    if ($self->action eq "quit") {
+        return $self->reason;
+    } else {
+        return $self->channel;
+    }
+}
 
 1;