Changeset 1d8503b for perl

Timestamp:

Jan 22, 2007, 8:03:10 PM (18 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:

4ee1cf4

Parents:

eaf9ed0

Message:

Fixing the jwrite from gtalk bug . We were setting the from attribute
in outbound messages, but google appends some random crap to the end
of our resource and we're not aware of what it is, so we were sending
from not out resource.

File:

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

perl/modules/jabber.pl

@@ -942 +942 @@
     }
 
+    $j->RemoveFrom(); # Kludge to get around gtalk's random bits after the resouce.
     if ($vars{jwrite}{sid} && $conn->sidExists( $vars{jwrite}{sid} )) {
         $conn->getConnectionFromSid($vars{jwrite}{sid})->Send($j);