Changeset b55fe2c for perl


Ignore:
Timestamp:
Apr 21, 2007, 8:49:25 PM (14 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
f6c2b3d
Parents:
4228f8b
Message:
If we don't get a fulljid, fallback to the one we already had rather
than charging forth blindly. Without this, logging into ljtalk was
broken. Bug reported by kchen.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    r7f33c18 rb55fe2c  
    363363                $conn->getRosterFromJID($jidStr)->fetch();
    364364                $client->PresenceSend( priority => 1 );
    365                 my $fullJid = $client->{SESSION}->{FULLJID};
     365                my $fullJid = $client->{SESSION}->{FULLJID} || $jidStr;
    366366                $conn->renameConnection($jidStr, $fullJid);
    367367                queue_admin_msg("Connected to jabber as $fullJid");
Note: See TracChangeset for help on using the changeset viewer.