- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm
r2f25537 r8278543 20 20 sub to { shift->{to} }; 21 21 sub room { shift->{room} }; 22 sub nick { shift->{nick} };23 22 sub subject { shift->{subject} }; 24 23 sub status { shift->{status} } … … 42 41 sub long_sender { 43 42 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 }51 43 return $self->from; 52 44 }
Note: See TracChangeset
for help on using the changeset viewer.