From 8176af5e128b19af81d509450027e59471a54559 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Mon, 7 Jul 2008 22:49:08 +0000 Subject: Removing unnecessary debugging code from LedgerSMB.pm, adding option to force username case to make this case insensitive git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2195 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/Auth/DB.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'LedgerSMB/Auth') diff --git a/LedgerSMB/Auth/DB.pm b/LedgerSMB/Auth/DB.pm index 5b582bd3..7febf0b1 100755 --- a/LedgerSMB/Auth/DB.pm +++ b/LedgerSMB/Auth/DB.pm @@ -29,6 +29,7 @@ #==================================================================== package LedgerSMB::Auth; use MIME::Base64; +use LedgerSMB::Sysconfig; use strict; sub session_check { @@ -232,6 +233,13 @@ sub get_credentials { $auth = MIME::Base64::decode($auth); my $return_value = {}; ($return_value->{login}, $return_value->{password}) = split(/:/, $auth); + if (defined $LedgerSMB::Sysconfig::force_username_case){ + if (lc($LedgerSMB::Sysconfig::force_username_case) eq 'lower'){ + $return_value->{login} = lc($return_value->{login}); + } elsif (lc($LedgerSMB::Sysconfig::force_username_case) eq 'upper'){ + $return_value->{login} = uc($return_value->{login}); + } + } return $return_value; -- cgit v1.2.3