SF.net SVN: ledger-smb:[6460] trunk/LedgerSMB/Auth/DB.pm

[..hidden..]

Revision: 6460
          http://sourceforge.net/p/ledger-smb/code/6460
Author:   tshvr
Date:     2014-01-14 11:15:43 +0000 (Tue, 14 Jan 2014)
Log Message:
-----------
after logout on normal application (login.pl) and coming to setup.pl, auth seems to be logout:logout 

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

Modified: trunk/LedgerSMB/Auth/DB.pm
===================================================================
--- trunk/LedgerSMB/Auth/DB.pm	2014-01-14 09:53:11 UTC (rev 6459)
+++ trunk/LedgerSMB/Auth/DB.pm	2014-01-14 11:15:43 UTC (rev 6460)
@@ -36,10 +36,23 @@
 sub get_credentials {
     # Handling of HTTP Basic Auth headers
     my $auth = $ENV{'HTTP_AUTHORIZATION'};
-	# Send HTTP 401 if the authorization header is missing
-    credential_prompt() unless ($auth);
+    print STDERR localtime()." tshvr4 Auth/DB.pm get_credentials auth ".Data::Dumper::Dumper($auth)."\n";
     $auth =~ s/Basic //i; # strip out basic authentication preface
     $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";
+    #$auth = MIME::Base64::decode($auth);
+    print STDERR localtime()." tshvr4 Auth/DB.pm get_credentials auth decoded ".Data::Dumper::Dumper($auth)."\n";
     my $return_value = {};
     #$logger->debug("\$auth=$auth");#be aware of passwords in log!
     ($return_value->{login}, $return_value->{password}) = split(/:/, $auth);

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