LWP

Denise — Thu, 05 Oct 2000 19:34:14 +0000

Hi guys,

Thanks, I looked into the LWP function and constructed a routine that certainly does grab pages and write them to a file but even though I now know the constructor that authenticates, I need some help inserting it into the routine below:

-----------------

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;

$FILE="d:/Inetpub/mydomain/import.htm";

my $ua = new LWP::UserAgent;
my $request = new HTTP::Request('GET', 'http://www.mydomain.com/index.htm');
my $response = $ua->request($request, $FILE);
if ($response->is_success) {
print $response->content;
} else {
print $response->error_as_HTML;
}

exit;

-------------------

Here is the authetnication:

$ua->credentials('www.mydomain.com', 'realm', 'username', 'password');

In the Perl help files it says that you can use $request like this:

request($request [, $subroutine]);

$subroutine being the authentication call.. but whenever I try to build the authentication call above into $subroutine it just comes up with a syntax error for the "'", or just doesn't do anything and returns 401 access denied.

Any ideas?

Cheers,

Denise

richjb — Thu, 05 Oct 2000 13:22:29 +0000

I think I agree with Rob. The LWP module should allow you to use the authentication format I gave you...as it simply calls a URL.

Richard

roBofh — Thu, 05 Oct 2000 00:06:51 +0000

It wouldn't, because Perl has no idea that you're trying to connect to an httpd there. I believe that LWP allows you to set Username and Password for basic authentication.

Authentication

Denise — Wed, 04 Oct 2000 20:36:22 +0000

Hi Richard,

Thanks for the advice but it didn't work.

I made $host = "myusername:mypassword\@mydomain.com";
but it didn't recognize the url and died.

Any ideas?

Denise

richjb — Wed, 04 Oct 2000 14:05:29 +0000

Example:

http://USER:PASSWORD@yourdomain.com

I guess all you would need to do is change $host to reflect the above format.

Hope that helped.

Richard