[otrs-cvs] CVS: otrs/Kernel/System/CustomerAuth HTTPBasicAuth.pm,
1.3, 1.4
cvs-log at otrs.org
cvs-log at otrs.org
Thu Nov 9 09:31:17 CET 2006
Update of /home/cvs/otrs/Kernel/System/CustomerAuth
In directory lancelot:/tmp/cvs-serv738/Kernel/System/CustomerAuth
Modified Files:
HTTPBasicAuth.pm
Log Message:
added AuthModule::HTTPBasicAuth::Replace and Customer::AuthModule::HTTPBasicAuth::Replace config option to HTTPBasicAuth modules to strip e. g. domains like example_domain\user from login down to user
Index: HTTPBasicAuth.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/CustomerAuth/HTTPBasicAuth.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** HTTPBasicAuth.pm 27 Aug 2006 20:17:40 -0000 1.3
--- HTTPBasicAuth.pm 9 Nov 2006 08:31:15 -0000 1.4
***************
*** 71,75 ****
my $RemoteAddr = $ENV{REMOTE_ADDR} || 'Got no REMOTE_ADDR env!';
if ($User) {
! my $User = $ENV{REMOTE_USER};
$Self->{LogObject}->Log(
Priority => 'notice',
--- 71,78 ----
my $RemoteAddr = $ENV{REMOTE_ADDR} || 'Got no REMOTE_ADDR env!';
if ($User) {
! my $Replace = $Self->{ConfigObject}->Get('Customer::AuthModule::HTTPBasicAuth::Replace');
! if ($Replace) {
! $User =~ s/^\Q$Replace\E//;
! }
$Self->{LogObject}->Log(
Priority => 'notice',
More information about the cvs-log
mailing list