Changeset 71e33ca for perl/modules/jabber.pl
- Timestamp:
- Jan 25, 2007, 1:05:34 AM (18 years ago)
- 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
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/jabber.pl
rb2648bc r71e33ca 1364 1364 } 1365 1365 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; 1374 1370 } 1375 1371
Note: See TracChangeset
for help on using the changeset viewer.