quick LWP question

this has got to be something simple/stupid :)

I'm trying to authenticate to a website and grab a file and I'm failing to see what I'm doing wrong here:

#!/usr/bin/perl
use strict;
use LWP;
  
my $browser = LWP::UserAgent->new( );
$browser->credentials("http://hostname.domain.com:80/OPDATA/Config/Vie
+w.pcgi?DEVICE=WLC&JOB_TYPE=download&TITLE=1&JOB_STATUS=any", "EMAN Pr
+otected Resource", "myusername", "mypassword");
my $response = $browser->get("http://hostname.domain.com/OPDATA/Config
+/View.pcgi?DEVICE=WLC&JOB_TYPE=download&TITLE=1&JOB_STATUS=any");
print $response->content;
[download]

The thing of it is, I *KNOW* that my realm/username/pass is correct (I can auth just fine with wget, or a regular browser for instance).. but for some reason, the above code fails to authenticate. any idea what I'm doing wrong here?

Comment on quick LWP question Download Code
Re: quick LWP question by Mutant (Priest) on Jun 23, 2009 at 15:58 UTC
From the LWP::UserAgent POD: The $netloc is a string of the form "<host>:<port>". The username and password will only be passed to this server $netloc being the first param to credentials. So you need to remove the path and the preceding "http://" from the first param, and just use "hostname.domain.com:80".	[reply]
Re: quick LWP question by davorg (Chancellor) on Jun 23, 2009 at 16:01 UTC
From the LWP::UserAgent documentation: $ua->credentials( $netloc, $realm, $uname, $pass ) Get/set the user name and password to be used for a realm. The $netloc is a string of the form "<host>:<port>". The username and password will only be passed to this server. Example: `$ua->credentials("www.example.com:80", "Some Realm", "foo", "secret");` Doesn't look like the value you're using for `$netloc` follows the format defined in the docs. -- See the Copyright notice on my home node. Perl training courses	[reply] [d/l]
Re^2: quick LWP question by vxp (Pilgrim) on Jun 23, 2009 at 16:09 UTC
I tried both ways, including: `$browser->credentials("hostname.domain.com:80", "EMAN Protected Resour +ce", "myusername", "mypassword");` [download] .. with the same (failed) result	[reply] [d/l]
Re^3: quick LWP question by ikegami (Pope) on Jun 23, 2009 at 16:28 UTC
Please provide the response (`print $response->as_string;`)	[reply] [d/l]
Re: quick LWP question by imrags (Monk) on Jun 24, 2009 at 10:41 UTC
Can you please try this: `use LWP::UserAgent; my $LWPUA=new LWP::UserAgent(); $LWPUA->credentials(("http://hostname.domain.com:80/OPDATA/Config/Vie +w.pcgi?DEVICE=WLC&JOB_TYPE=download&TITLE=1&JOB_STATUS=any", "EMAN Pr +otected Resource", "myusername", "mypassword"); print $LWPUA->get("http://hostname.domain.com/OPDATA/Config +/View.pcgi?DEVICE=WLC&JOB_TYPE=download&TITLE=1&JOB_STATUS=any")->con +tent;` [download] Raghu	[reply] [d/l]


Syntactic Confectionery Delight
	PerlMonks

quick LWP question

The best material for plates (tableware) is: