Ignore:
Timestamp:
Jul 28, 2008, 9:08:41 AM (12 years ago)
Author:
Geoffrey Thomas <geofft@mit.edu>
Branches:
master, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
bfc127b
Parents:
4789b17
Message:
THIS IS AN ANGRY COMMIT
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    r8af89a7 ra1a2036  
    990990sub process_presence_available {
    991991    my ( $sid, $p ) = @_;
    992     my $from = $p->GetFrom();
     992    my $from = $p->GetFrom('jid')->GetJID('base');
    993993    my $to = $p->GetTo();
    994994    my $type = $p->GetType();
    995995    my %props = (
    996996        to => $to,
    997         from => $from,
     997        from => $p->GetFrom(),
    998998        recipient => $to,
    999999        sender => $from,
     
    10131013        $props{loginout} = 'logout';
    10141014    }
    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));
    10191017}
    10201018
Note: See TracChangeset for help on using the changeset viewer.