Changeset 2f25537 for perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm
- Timestamp:
- Jun 10, 2010, 2:47:11 PM (14 years ago)
- Branches:
- master, release-1.10, release-1.7, release-1.8, release-1.9
- Children:
- 68e5464
- Parents:
- 5d59c1e
- git-author:
- Anders Kaseorg <andersk@mit.edu> (06/10/10 02:03:20)
- git-committer:
- Anders Kaseorg <andersk@mit.edu> (06/10/10 14:47:11)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm
r8278543 r2f25537 20 20 sub to { shift->{to} }; 21 21 sub room { shift->{room} }; 22 sub nick { shift->{nick} }; 22 23 sub subject { shift->{subject} }; 23 24 sub status { shift->{status} } … … 41 42 sub long_sender { 42 43 my $self = shift; 44 if ($self->jtype eq 'groupchat' && $self->nick) { 45 my $from_jid = Net::Jabber::JID->new($self->from); 46 if ($from_jid->GetJID('base') eq $self->room && 47 $from_jid->GetResource() eq $self->nick) { 48 return $self->nick; 49 } 50 } 43 51 return $self->from; 44 52 }
Note: See TracChangeset
for help on using the changeset viewer.