Changeset a1a2036 for perl/modules


Ignore:
Timestamp:
Jul 28, 2008, 9:08:41 AM (16 years ago)
Author:
Geoffrey Thomas <geofft@mit.edu>
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
Message:
THIS IS AN ANGRY COMMIT
Location:
perl/modules/Jabber/lib/BarnOwl
Files:
2 edited

Legend:

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

    r693c8f2 ra1a2036  
    2222sub subject { shift->{subject} };
    2323sub status { shift->{status} }
     24
     25sub login_type {
     26    my $self = shift;
     27    my $type = $self->jtype;
     28    return " ($type)" if $type;
     29}
    2430
    2531sub login_extra {
  • 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.