Changeset e1b197e8 for perl


Ignore:
Timestamp:
Jan 16, 2007, 12:39:05 PM (18 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
855dc8d
Parents:
bc9436f
git-author:
Nelson Elhage <nelhage@mit.edu> (01/16/07 12:38:58)
git-committer:
Nelson Elhage <nelhage@mit.edu> (01/16/07 12:39:05)
Message:
Some jmuc presence bugfixes
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    rf3c1aba re1b197e8  
    7474    $muc->Leave();
    7575   
    76     $self->{_BARNOWL_MUCS} = grep {$_ != $muc} $self->MUCs;
     76    $self->{_BARNOWL_MUCS} = [grep {$_->BaseJID ne $muc->BaseJID} $self->MUCs];
    7777}
    7878
     
    690690    my ( $jid, $muc, @args ) = @_;
    691691
     692    $muc = shift @args if scalar @args;
     693    die("Usage: jmuc presence MUC") unless $muc;
     694
    692695    my $m = $conn->getConnectionFromJidStr($jid)->FindMUC(jid => $muc);
    693696    die("No such muc: $muc") unless $m;
     
    695698    my @jids = $m->Presence();
    696699    BarnOwl::popless_ztext("JIDs present in " . $m->BaseJID . "\n\t" .
    697                            join("\n\t", map {$_->GetResource}@jids));
     700                           join("\n\t", map {$_->GetResource}@jids) . "\n");
    698701}
    699702
Note: See TracChangeset for help on using the changeset viewer.