[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SF.net SVN: ledger-smb:[6524] trunk



Revision: 6524
          http://sourceforge.net/p/ledger-smb/code/6524
Author:   einhverfr
Date:     2014-01-18 10:55:54 +0000 (Sat, 18 Jan 2014)
Log Message:
-----------
Fixing credential prompt on logout on Chrome

Modified Paths:
--------------
    trunk/LedgerSMB/Auth/DB.pm
    trunk/LedgerSMB/Form.pm
    trunk/LedgerSMB.pm

Modified: trunk/LedgerSMB/Auth/DB.pm
===================================================================
--- trunk/LedgerSMB/Auth/DB.pm	2014-01-18 09:42:04 UTC (rev 6523)
+++ trunk/LedgerSMB/Auth/DB.pm	2014-01-18 10:55:54 UTC (rev 6524)
@@ -41,13 +41,6 @@
     $auth = MIME::Base64::decode($auth);
     print STDERR localtime()." tshvr4 Auth/DB.pm get_credentials auth mime ".Data::Dumper::Dumper($auth)."\n";
     #tshvr4 2014-01-14 Firefox, after logout on normal application (login.pl) and coming to setup.pl, auth seems to be  'logout:logout', TODO remove Dumper statements  
-    if ( $auth eq 'logout:logout') { $auth = undef;}
-	# Send HTTP 401 if the authorization header is missing
-    if(! $auth){
-     credential_prompt() unless ($auth);#does return here ! tshvr4
-     print STDERR localtime()." tshvr4 Auth/DB.pm get_credentials after prompt \n";     
-     return;#go back to browser tshvr4
-    }
 
     #$auth =~ s/Basic //i; # strip out basic authentication preface
     #print STDERR localtime()." tshvr4 Auth/DB.pm get_credentials auth before mime ".Data::Dumper::Dumper($auth)."\n";

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2014-01-18 09:42:04 UTC (rev 6523)
+++ trunk/LedgerSMB/Form.pm	2014-01-18 10:55:54 UTC (rev 6524)
@@ -1281,6 +1281,7 @@
     LedgerSMB::Auth::credential_prompt unless ($auth);
 	$auth =~ s/Basic //i; # strip out basic authentication preface
     $auth = MIME::Base64::decode($auth);
+    LedgerSMB::Auth::credential_prompt() if $login eq 'logout';
     my ($login, $password) = split(/:/, $auth);
     $self->{login} = $login;
     if (!$self->{company}){ 

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2014-01-18 09:42:04 UTC (rev 6523)
+++ trunk/LedgerSMB.pm	2014-01-18 10:55:54 UTC (rev 6524)
@@ -869,6 +869,7 @@
     }
 
     my $creds = LedgerSMB::Auth::get_credentials();
+    LedgerSMB::Auth::credential_prompt() if $creds->{login} eq 'logout';
     return unless $creds->{login};
   
     $self->{login} = $creds->{login};

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.


------------------------------------------------------------------------------
CenturyLink Cloud: The Leader in Enterprise Cloud Services.
Learn Why More Businesses Are Choosing CenturyLink Cloud For
Critical Workloads, Development Environments & Everything In Between.
Get a Quote or Start a Free Trial Today. 
http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits