Changeset a1a2036 for perl/modules/Jabber/lib
- Timestamp:
- Jul 28, 2008, 9:08:41 AM (17 years ago)
- 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:
- bfc127b
- Parents:
- 4789b17
- Location:
- perl/modules/Jabber/lib/BarnOwl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm
r693c8f2 ra1a2036 22 22 sub subject { shift->{subject} }; 23 23 sub status { shift->{status} } 24 25 sub login_type { 26 my $self = shift; 27 my $type = $self->jtype; 28 return " ($type)" if $type; 29 } 24 30 25 31 sub login_extra { -
perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
r8af89a7 ra1a2036 990 990 sub process_presence_available { 991 991 my ( $sid, $p ) = @_; 992 my $from = $p->GetFrom( );992 my $from = $p->GetFrom('jid')->GetJID('base'); 993 993 my $to = $p->GetTo(); 994 994 my $type = $p->GetType(); 995 995 my %props = ( 996 996 to => $to, 997 from => $ from,997 from => $p->GetFrom(), 998 998 recipient => $to, 999 999 sender => $from, … … 1013 1013 $props{loginout} = 'logout'; 1014 1014 } 1015 $props{replysendercmd} = $props{replycmd} = "jwrite $from -i $sid"; 1016 if(BarnOwl::getvar('debug') eq 'on') { 1017 BarnOwl::queue_message(BarnOwl::Message->new(%props)); 1018 } 1015 $props{replysendercmd} = $props{replycmd} = "jwrite $from -a $to"; 1016 BarnOwl::queue_message(BarnOwl::Message->new(%props)); 1019 1017 } 1020 1018
Note: See TracChangeset
for help on using the changeset viewer.