[872] in BarnOwl Developers
[D-O-H] r861 - trunk/owl/perl/modules/IRC/lib/BarnOwl/Message
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:10:37 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Sun, 13 Jan 2008 18:10:14 -0500 (EST)
Author: nelhage
Date: 2008-01-13 18:10:13 -0500 (Sun, 13 Jan 2008)
New Revision: 861
Modified:
trunk/owl/perl/modules/IRC/lib/BarnOwl/Message/IRC.pm
Log:
Show JOIN and PART for login/outs
Modified: trunk/owl/perl/modules/IRC/lib/BarnOwl/Message/IRC.pm
===================================================================
--- trunk/owl/perl/modules/IRC/lib/BarnOwl/Message/IRC.pm 2008-01-13 23:08:14 UTC (rev 860)
+++ trunk/owl/perl/modules/IRC/lib/BarnOwl/Message/IRC.pm 2008-01-13 23:10:13 UTC (rev 861)
@@ -55,6 +55,11 @@
sub long_sender {shift->{from} || ""};
+sub login_type {
+ my $self = shift;
+ return " (" . ($self->is_login ? "JOIN" : "PART") . ")";
+}
+
sub login_extra { shift->channel; }
