Changeset 05f0061 for perl


Ignore:
Timestamp:
Jan 12, 2008, 3:07:20 PM (13 years ago)
Author:
Alejandro R. Sedeño <asedeno@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:
56e72d5
Parents:
cc6f009
Message:
Jabber - 
* fix logins to jabber.org - reported by gendalia
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    r892568b r05f0061  
    370370
    371371            if ( !@result || $result[0] ne 'ok' ) {
    372                 if ( !$vars{jlogin_havepass} && ( !@result || $result[0] eq '401' ) ) {
     372                if ( !$vars{jlogin_havepass} && ( !@result || $result[0] eq '401' || $result[0] eq 'error') ) {
    373373                    $vars{jlogin_havepass} = 1;
    374374                    $conn->removeConnection($jidStr);
Note: See TracChangeset for help on using the changeset viewer.