Changeset 4096d1f for perl

Timestamp:

Jan 9, 2007, 3:46:33 PM (18 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

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:

5adb3d7

Parents:

3354cea5

Message:

Google Talk wasn't giving us back results. This takes that behavior as
a 401 and asks the user for a password if one hasn't been supplied
yet.

File:

• perl/modules/jabber.pl (modified) (2 diffs)

perl/modules/jabber.pl

@@ -55 +55 @@
     my $jidStr = shift;
     return 0 unless exists $self->{Client}->{$jidStr};
-    
+
     $self->{Client}->{$jidStr}->Disconnect();
     delete $self->{Roster}->{$jidStr};
     delete $self->{Client}->{$jidStr};
-    
+
     return 1;
 }
@@ -350 +350 @@
             my @result = $client->AuthSend( %{ $vars{jlogin_authhash} } );
 
-            if ( $result[0] ne 'ok' ) {
-                if ( !$vars{jlogin_havepass} && $result[0] eq '401' ) {
+            if ( $#result == -1 || $result[0] ne 'ok' ) {
+                if ( !$vars{jlogin_havepass} && ( $#result == -1 || $result[0] eq '401' ) ) {
                     $vars{jlogin_havepass} = 1;
                     $conn->removeConnection($jidStr);