Hello,
I was able to implement and to change the incoming username and to update
it for real login. A new perl module has to be written
Here is the perl code:
sub handler
> {
> my $r = shift;
> my $c = $r->connection;
>
> my $auth_header = $r->headers_in->get('Authorization') || '';
> my $credentials = (split / /, $auth_header)[-1] || '';
> my ($username,$password) = split /:/,MIME::Base64::decode($credentials),
> 2;
>
> if (defined($username) && ( $username =~ /^([A-Za-z]+\\)/))
> {
> my @usr_parts = (split /\\/,$username);
> $username = lc($usr_parts[1]);
> }
> return DECLINED unless $username;
> $credentials = MIME::Base64::encode(join(':',$username,$password));
> $r->headers_in->set(Authorization =>"Basic $credentials");
> #Procced to login to the system.
> return OK;
> }
> 1;
Then at Apache conf file, you need to mention the module name of the code
Regards
On Wed, Jun 11, 2014 at 2:08 PM, Darly Senecal Baptiste <dsenecalb@gmail.com
> wrote:
> (Starting to walk at the waters of mod_perl). Is there is a way that
> mod_perl gathers the information from the login screen before performing
> the authentication session?
>
>
> On Tue, Jun 10, 2014 at 11:55 AM, Eric Covener <covener@gmail.com> wrote:
>
>> On Tue, Jun 10, 2014 at 11:53 AM, Darly Senecal Baptiste
>> <dsenecalb@gmail.com> wrote:
>> > Hi Eric,
>> >
>> > What do you think about using the mod_perl module in terms of gather the
>> > domain\username and process modify in order to login as username?
>>
>> Probably feasible
>>
>> ---------------------------------------------------------------------
>> To unsubscribe, e-mail: users-unsubscribe@httpd.apache.org
>> For additional commands, e-mail: users-help@httpd.apache.org
>>
>>
>
|