Changeset 46e8a1e for perl/modules
- Timestamp:
- Jan 8, 2007, 9:39:59 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:
- 9364a36
- Parents:
- f265f94
- git-author:
- Nelson Elhage <nelhage@mit.edu> (01/08/07 21:38:47)
- git-committer:
- Nelson Elhage <nelhage@mit.edu> (01/08/07 21:39:59)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/jabber.pl
r25729b2 r46e8a1e 347 347 $conn->removeConnection($jidStr); 348 348 owl::error("We failed to connect"); 349 } 350 else { 349 } else { 351 350 my @result = $client->AuthSend( %{ $vars{jlogin_authhash} } ); 352 351 353 352 if ( $result[0] ne 'ok' ) { 354 if ( !$vars{jlogin_havepass} && $result[0] eq '401' ) { 355 $vars{jlogin_havepass} = 1; 353 if ( !$vars{jlogin_havepass} && $result[0] eq '401' ) { 354 $vars{jlogin_havepass} = 1; 355 $conn->removeConnection($jidStr); 356 owl::start_password( "Password for $jidStr: ", \&do_login ); 357 return ""; 358 } 356 359 $conn->removeConnection($jidStr); 357 owl::start_password( "Password for $jidStr: ", \&do_login ); 358 return ""; 359 } 360 $conn->removeConnection($jidStr); 361 owl::error( 362 "Error in connect: " . join( " ", @result ) ); 363 } 364 else { 360 owl::error( "Error in connect: " . join( " ", @result ) ); 361 } else { 365 362 $conn->getRosterFromJidStr($jidStr)->fetch(); 366 363 $client->PresenceSend( priority => 1 ); … … 368 365 } 369 366 } 367 370 368 } 371 369 delete $vars{jlogin_jid};
Note: See TracChangeset
for help on using the changeset viewer.