--0016e6dbe5b5ce1be10474cc2e50
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Hello together,
i'm trying basic authentication via

## apache2 config:
<Location /auth>
SetHandler perl-script
PerlAuthenHandler DataExchange::AuthHandler
#PerlResponseHandler ModPerl::Registry
Options +ExecCGI
PerlOptions +GlobalRequest

AuthType Basic
AuthName "The Gate"
Require valid-user
</Location>


## Example script:

package DataExchange::AuthHandler;

use strict;
use warnings;

use Apache2::Access ();
use Apache2::RequestUtil ();

use Apache2::Const -compile =3D> qw(OK HTTP_UNAUTHORIZED);

sub handler {
my $r =3D shift;

warn $r->user();

my $password =3D $r->get_basic_auth_pw;

my $user =3D $r->user;
if ($r->user eq $password) {
print Apache2::Const::OK;
}

$r->note_basic_auth_failure;
return Apache2::Const::HTTP_UNAUTHORIZED;
}

1;

My password is filled up, but $r->user is undefined...
Any ideas?

Thanks!
Börni

p.s. mod_perl 2.0.4

--0016e6dbe5b5ce1be10474cc2e50
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Hello together,<br>i'm trying basic authentication via<br><br>## apache=
2 config:<br>=A0=A0=A0=A0=A0=A0=A0 <Location /auth><br>=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0 SetHandler perl-script<br>=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0 PerlAuthenHandler DataExchange::AuthHandler<br>
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 #PerlResponseHandler ModPerl::Regis=
try<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Options +ExecCGI<br>=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 PerlOptions +GlobalRequest<br><br>=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 AuthType Basic<br>=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0 AuthName "The Gate"<br>=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0 Require valid-user<br>
=A0=A0=A0=A0=A0=A0=A0 </Location><br><br><br>## Example script:<br><b=
r>package DataExchange::AuthHandler;<br><br>use strict;<br>use warnings;<br=
><br>use Apache2::Access=A0=A0=A0=A0=A0 ();<br>use Apache2::RequestUtil ();=
<br><br>use Apache2::Const -compile =3D> qw(OK HTTP_UNAUTHORIZED);<br>
<br>sub handler {<br>=A0=A0=A0 my $r =3D shift;<br>=A0=A0=A0 <br>=A0=A0=A0 =
warn $r->user();<br>=A0=A0=A0 <br>=A0=A0 =A0=A0=A0 my $password =3D $r-&=
gt;get_basic_auth_pw;<br><br>=A0=A0=A0 my $user =3D $r->user;=A0=A0=A0 <=
br>=A0=A0=A0 if ($r->user eq $password) {<br>=A0=A0=A0 =A0=A0=A0 print A=
pache2::Const::OK;<br>
=A0=A0=A0 }<br><br>=A0=A0=A0 $r->note_basic_auth_failure;<br>=A0=A0=A0 r=
eturn Apache2::Const::HTTP_UNAUTHORIZED;<br>}<br><br>1;<br><br>My password =
is filled up, but $r->user is undefined...<br>Any ideas?<br><br>Thanks!<=
br>Börni<br><br>
p.s. mod_perl 2.0.4<br>

--0016e6dbe5b5ce1be10474cc2e50--

I believe what you want is:

# To set the variable so that CGI scripts can access $ENV{'REMOTE_USER'}
# which is normally populated by Basic-Auth (this is only if you want to
# take control over the variable... populating it yourself)
#
$r->subprocess_env(REMOTE_USER =3D> $user);

# To get the variable from the Apache request connection, you need to
# first populate %ENV
#
$r->subprocess_env;
my $user =3D $ENV{'REMOTE_USER'}

--
Devin

On Wed, 2009-09-30 at 16:16 +0200, Bernhard Janetzki wrote:
> Hello together,
> i'm trying basic authentication via
>
> ## apache2 config:
> <Location /auth>
> SetHandler perl-script
> PerlAuthenHandler DataExchange::AuthHandler
> #PerlResponseHandler ModPerl::Registry
> Options +ExecCGI
> PerlOptions +GlobalRequest
>
> AuthType Basic
> AuthName "The Gate"
> Require valid-user
> </Location>
>
>
> ## Example script:
>
> package DataExchange::AuthHandler;
>
> use strict;
> use warnings;
>
> use Apache2::Access ();
> use Apache2::RequestUtil ();
>
> use Apache2::Const -compile =3D> qw(OK HTTP_UNAUTHORIZED);
>
> sub handler {
> my $r =3D shift;
>
> warn $r->user();
>
> my $password =3D $r->get_basic_auth_pw;
>
> my $user =3D $r->user;
> if ($r->user eq $password) {
> print Apache2::Const::OK;
> }
>
> $r->note_basic_auth_failure;
> return Apache2::Const::HTTP_UNAUTHORIZED;
> }
>
> 1;
>
> My password is filled up, but $r->user is undefined...
> Any ideas?
>
> Thanks!
> B=C3=B6rni
>
> p.s. mod_perl 2.0.4
--
Cheers,
Devin Teske

-> CONTACT INFORMATION <-
Field Engineer
Metavante Corporation
626-573-6040 Office
510-735-5650 Mobile
devin.teske [at] metavante.com

-> LEGAL DISCLAIMER <-
This message contains confidential and proprietary information
of the sender, and is intended only for the person(s) to whom it
is addressed. Any use, distribution, copying or disclosure by any
other person is strictly prohibited. If you have received this
message in error, please notify the e-mail sender immediately,
and delete the original message without making a copy.

-> END TRANSMISSION <-

On Wed 30 Sep 2009, Bernhard Janetzki wrote:
> Hello together,
> i'm trying basic authentication via
>
> ## apache2 config:
> <Location /auth>
> SetHandler perl-script
> PerlAuthenHandler DataExchange::AuthHandler
> #PerlResponseHandler ModPerl::Registry
> Options +ExecCGI
> PerlOptions +GlobalRequest
>
> AuthType Basic
> AuthName "The Gate"
> Require valid-user
> </Location>
>
>
> ## Example script:
>
> package DataExchange::AuthHandler;
>
> use strict;
> use warnings;
>
> use Apache2::Access ();
> use Apache2::RequestUtil ();
>
> use Apache2::Const -compile => qw(OK HTTP_UNAUTHORIZED);
>
> sub handler {
> my $r = shift;
>
> warn $r->user();
>
> my $password = $r->get_basic_auth_pw;

have a look at
http://perl.apache.org/docs/2.0/api/Apache2/Access.html#C_ge t_basic_auth_pw_

get_basic_auth_pw returns a status and the password. Your code has to
check that status before proceeding.

see also
http://perl.apache.org/docs/2.0/user/handlers/http.html#Perl AuthenHandler

Torsten

--
Need professional mod_perl support?
Just hire me: torsten.foertsch [at] gmx.net