Changeset 71e33ca for perl


Ignore:
Timestamp:
Jan 25, 2007, 1:05:34 AM (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:
7cdf756
Parents:
b2648bc
Message:
Make resolveDestJID be clever enough to check if the input is a valid
jid before rejecting it outright; make it reject things that aren't
valid jids and don't otherwise resolve.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    rb2648bc r71e33ca  
    13641364    }
    13651365
    1366     my @mucs = $conn->getConnectionFromJID($from)->MUCs;
    1367     for my $m (@mucs) {
    1368         if ($m->BaseJID eq $to) {
    1369             return $m->BaseJID;
    1370         }
    1371     }
    1372 
    1373     return $to;
     1366    # If we found nothing being clever, check to see if our input was
     1367    # sane enough to look like a jid with a UserID.
     1368    return $jid->GetJID('full') if $jid->GetUserID();
     1369    return undef;
    13741370}
    13751371
Note: See TracChangeset for help on using the changeset viewer.