[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