Changeset 3ec8d9a for perl

Timestamp:

Jan 30, 2007, 11:06:13 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:

e78397d

Parents:

e363375

git-author:

Nelson Elhage <nelhage@mit.edu> (01/30/07 23:06:05)

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/30/07 23:06:13)

Message:

Default to using a user's full JID as their nick in MUCs.

File:

• perl/modules/jabber.pl (modified) (1 diff)

perl/modules/jabber.pl

@@ -717 +717 @@
       or die("Usage: jmuc join MUC [-p password] [-a account]");
 
+    $muc = Net::Jabber::JID->new($muc);
+    $jid = Net::Jabber::JID->new($jid);
+    $muc->SetResource($jid->GetJID('full')) unless length $muc->GetResource();
+
     $conn->getConnectionFromJID($jid)->MUCJoin(JID      => $muc,
                                                   Password => $password,