Changeset 46e8a1e


Ignore:
Timestamp:
Jan 8, 2007, 9:39:59 PM (14 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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)
Message:
perltidy'ing some code
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r25729b2 r46e8a1e  
    347347            $conn->removeConnection($jidStr);
    348348            owl::error("We failed to connect");
    349         }
    350         else {
     349        } else {
    351350            my @result = $client->AuthSend( %{ $vars{jlogin_authhash} } );
    352351
    353352            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                }
    356359                $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 {
    365362                $conn->getRosterFromJidStr($jidStr)->fetch();
    366363                $client->PresenceSend( priority => 1 );
     
    368365            }
    369366        }
     367
    370368    }
    371369    delete $vars{jlogin_jid};
Note: See TracChangeset for help on using the changeset viewer.