Changeset 0a3f04d for perl/modules
- Timestamp:
- Jan 23, 2007, 6:36:27 PM (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:
- 0ad0e97
- Parents:
- acee046
- git-author:
- Nelson Elhage <nelhage@mit.edu> (01/23/07 18:34:46)
- git-committer:
- Nelson Elhage <nelhage@mit.edu> (01/23/07 18:36:27)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/jabber.pl
r455f1ab r0a3f04d 582 582 583 583 ($jwrite_from, $jwrite_to, $jwrite_type) = guess_jwrite($jwrite_from, $to); 584 585 unless($jwrite_ from && $jwrite_to) {584 585 unless($jwrite_to) { 586 586 die("Unable to resolve JID $to"); 587 } 588 589 unless($jwrite_from) { 590 die("Unable to resolve account"); 587 591 } 588 592 … … 1289 1293 sub resolveDestJID { 1290 1294 my ($to, $from) = @_; 1295 return $to if $to =~ /@/; 1291 1296 my $jid = Net::Jabber::JID->new($to); 1292 if($jid->GetResource()) {1293 return $jid->GetJID('full');1294 }1295 1297 1296 1298 my $roster = $conn->getRosterFromJID($from); … … 1327 1329 $to_jid = $to; 1328 1330 $from_jid = defaultJID(); 1329 die("You must specify a JIDwith -a") unless $from_jid;1331 die("You must specify an account with -a") unless $from_jid; 1330 1332 } else { 1331 1333 for my $f ($conn->getJids) {
Note: See TracChangeset
for help on using the changeset viewer.