Changeset 1fd5041b for perl/modules/IRC

Timestamp:

Jan 13, 2008, 6:10:13 PM (17 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

3baf77f

Parents:

56e72d5

Message:

Show JOIN and PART for login/outs

File:

• perl/modules/IRC/lib/BarnOwl/Message/IRC.pm (modified) (1 diff)

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

@@ -56 +56 @@
 sub long_sender {shift->{from} || ""};
 
+sub login_type {
+    my $self = shift;
+    return " (" . ($self->is_login ? "JOIN" : "PART") . ")";
+}
+
 sub login_extra { shift->channel; }