Re: [SQU] [Off] Perl

What I am trying to do is, this...

I have a proxy server (squid) and it asks for a password. Then I use a perl
script as the authentication helper, it takes the username that they entered
and I want to be able to check the my parent proxy server to see if that is
a valid user on that system. If it is, then I accept the authentication
credentials and I let them view the pages. If it is NOT a valid user I check
to see if the username is in my database of users. If they are, I let them
view the pages. If they are not in my database, then I refuse access.

I hope this helps,
Devin Teske

>On 21 Feb 2001, at 16:42, Devin Teske wrote:
>
> > One question. How do I contact a server in Perl? I want to send this
>header
> > to a server...
> >
><snip HTTP header>
>
> > ...and then see if the server returned anything except a 200 status code
>in
> > the response header. (the point of this is to check to see if the user
>is
> > valid on that server before doing a certain operation).
>I'm not exactly sure about what you want to do here, but I think
>perldoc LWP::UserAgent
>perldoc HTTP::Headers
>perldoc HTTP::Request
>(basically the LWP and HTTP modules) should give you an idea
>about how to get it done...
>
>HTH,
>Thimal

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

--
To unsubscribe, see http://www.squid-cache.org/mailing-lists.html