[451] in BarnOwl Developers
[D-O-H] r580 - in trunk: . owl/perl/modules
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:06:19 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
Date: Tue, 30 Jan 2007 23:06:14 -0500
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-To: dirty-owl-hackers@MIT.EDU
Author: nelhage
Date: 2007-01-30 23:06:13 -0500 (Tue, 30 Jan 2007)
New Revision: 580
Modified:
trunk/
trunk/owl/perl/modules/jabber.pl
Log:
r18298@phanatique: nelhage | 2007-01-30 23:06:05 -0500
Default to using a user's full JID as their nick in MUCs.
Property changes on: trunk
___________________________________________________________________
Name: svk:merge
- bb873fd7-8e23-0410-944a-99ec44c633eb:/branches/owl/filter-rewrite:15925
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h/trunk:18295
+ bb873fd7-8e23-0410-944a-99ec44c633eb:/branches/owl/filter-rewrite:15925
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h/trunk:18298
Modified: trunk/owl/perl/modules/jabber.pl
===================================================================
--- trunk/owl/perl/modules/jabber.pl 2007-01-30 22:25:12 UTC (rev 579)
+++ trunk/owl/perl/modules/jabber.pl 2007-01-31 04:06:13 UTC (rev 580)
@@ -716,6 +716,10 @@
$muc = shift @ARGV
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,
History => {
