Changeset e1b197e8 for perl

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:

• perl/modules/jabber.pl (modified) (3 diffs)

perl/modules/jabber.pl

@@ -74 +74 @@
     $muc->Leave();
     
-    $self->{_BARNOWL_MUCS} = grep {$_ != $muc} $self->MUCs;
+    $self->{_BARNOWL_MUCS} = [grep {$_->BaseJID ne $muc->BaseJID} $self->MUCs];
 }
 
@@ -690 +690 @@
     my ( $jid, $muc, @args ) = @_;
 
+    $muc = shift @args if scalar @args;
+    die("Usage: jmuc presence MUC") unless $muc;
+
     my $m = $conn->getConnectionFromJidStr($jid)->FindMUC(jid => $muc);
     die("No such muc: $muc") unless $m;
@@ -695 +698 @@
     my @jids = $m->Presence();
     BarnOwl::popless_ztext("JIDs present in " . $m->BaseJID . "\n\t" .
-                           join("\n\t", map {$_->GetResource}@jids));
+                           join("\n\t", map {$_->GetResource}@jids) . "\n");
 }