Changeset 7f33c18 for perl/modules/Jabber/lib/Net

Timestamp:

Apr 12, 2007, 6:05:37 PM (17 years ago)

Author:

Alejandro R. Sedeño <asedeno@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:

80e54a7

Parents:

c2c5c77

Message:

Net::XMPP::Protocol -  Make resource binding note the full jid on connect.
BarnOwl::Module::Jabber::ConnectionManager - Allow for connections to be renamed.
BarnOwl::Module::Jabber - Rename the connection after connect to match the jid received.

This makes Net::XMPP recognize that the server may in fact connect a
user under a different resource than the one the user specified. In
particular, it works around the crap GoogleTalk appends to the
supplied resource.

File:

• perl/modules/Jabber/lib/Net/XMPP/Protocol.pm (modified) (2 diffs)

perl/modules/Jabber/lib/Net/XMPP/Protocol.pm

@@ -1978 +1978 @@
     {
         $self->{DEBUG}->Log1("AuthSASL: Binding to resource");
-        $self->BindResource($args{resource});
+        my $jid = $self->BindResource($args{resource});
+        $self->{SESSION}->{FULLJID} = $jid;
     }
 
@@ -2019 +2020 @@
 
     my $result = $self->SendAndReceiveWithID($iq);
+    return $result->GetChild(&ConstXMLNS("xmpp-bind"))->GetJID();;
 }