This is a multi-part message in MIME format.
--===============1620730195==
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0031_01C74CD8.524F15B0"
This is a multi-part message in MIME format.
------=_NextPart_000_0031_01C74CD8.524F15B0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi All,
I need to write some function to authenticate a visitor using HTTP =
Authentication, matching his login information with another server. =
Here's the idea more clear:
1. A visitor enters www.myserver.com
2. He gets on his screen the user/password HTTP Authentication window =
and tries to login
3. The script should take the provided login information and send it to =
www.anotherserver.com just to check if an authentication success can be =
done using that login information.
4. The script then grants or deny access to the user, based on point 3.
I know how to match the login information using LWP::UserAgent, but i =
can't find the way to force Apache to send a controlled 401 response or =
a way to make the user's browser open the HTTP Authentication window. =
Also, i can't find a way to catch the login information to process it =
and let Perl decide if it is a success login or not.
If it's worth for something, i'm using Apache 2.2 with mod_perl 2.0 and =
Perl 5.8.
Please, if someone can help me understanding how to accomplish this =
task, i'll really appreciate it.
Thank you! :-)
Paco
------=_NextPart_000_0031_01C74CD8.524F15B0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.5730.11" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi All,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>I need to write some function to =
authenticate a
visitor using HTTP Authentication, matching his login information with =
another
server. Here's the idea more clear:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>1. A visitor enters <A
href=3D"http://www.myserver.com">www.myserver.com</A></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>2. He gets on his screen the =
user/password HTTP
Authentication window and tries to login</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>3. The script should take the provided =
login
information and send it to <A
href=3D"http://www.anotherserver.com">www.anotherserver.com</A> just to =
check if
an authentication success can be done using that login =
information.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>4. The script then grants or deny =
access to the
user, based on point 3.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>I know how to match the login =
information using
LWP::UserAgent, but i can't find the way to force Apache to send a =
controlled
401 response or a way to make the user's browser open the HTTP =
Authentication
window. Also, i can't find a way to catch the login information to =
process it
and let Perl decide if it is a success login or not.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>If it's worth for something, =
i'm using
Apache 2.2 with mod_perl 2.0 and Perl 5.8.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Please, if someone can help me =
understanding how to
accomplish this task, i'll really appreciate it.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Thank you! :-)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Paco</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML>
------=_NextPart_000_0031_01C74CD8.524F15B0--
--===============1620730195==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1620730195==--
