Changeset 892568b for perl/modules/Jabber/lib/BarnOwl/Module/Jabber

Timestamp:

Sep 12, 2007, 10:46:17 PM (17 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:

6711361

Parents:

86840c5

Message:

Show full JIDs for users in non-anonymous JIDs in :jmuc presence. closes #24

File:

• perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm (modified) (2 diffs)

perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm

@@ -52 +52 @@
 Leave a MUC. The MUC is specified in the same form as L</FindMUC>
 
+Returns true if successful, false if this connection was not in the
+named MUC.
+
 =cut
 
@@ -61 +64 @@
     $muc->Leave();
     $self->{_BARNOWL_MUCS} = [grep {$_->BaseJID ne $muc->BaseJID} $self->MUCs];
+    return 1;
 }