Changeset 71e33ca for perl/modules

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:

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

perl/modules/jabber.pl

@@ -1364 +1364 @@
     }
 
-    my @mucs = $conn->getConnectionFromJID($from)->MUCs;
-    for my $m (@mucs) {
-        if ($m->BaseJID eq $to) {
-            return $m->BaseJID;
-        }
-    }
-
-    return $to;
+    # If we found nothing being clever, check to see if our input was
+    # sane enough to look like a jid with a UserID.
+    return $jid->GetJID('full') if $jid->GetUserID();
+    return undef;
 }