Changeset 11019

Timestamp:

03/08/10 18:32:34 (2 years ago)

Author:

mattp

Message:

bug in login wx logic

Location:

branches/Padre-ConfigSync/lib/Padre

Files:

• ConfigSync.pm (modified) (1 diff)
• Wx/Dialog/ConfigSync.pm (modified) (1 diff)

branches/Padre-ConfigSync/lib/Padre/ConfigSync.pm

@@ -186 +186 @@
    my $resp = $self->ua->request( POST "$server/login", $params );
 
-   if ($resp->content !~ /Wrong username or password/i) { 
+   if ($resp->content !~ /Wrong username or password/i && $resp->code == 200) { 
       $self->{state} = 'logged_in';
       return 'Logged in successfully.';

branches/Padre-ConfigSync/lib/Padre/Wx/Dialog/ConfigSync.pm

@@ -488 +488 @@
          $self,
       );
+      return;
    }