perl curl

[jrottman]

I am re-writing my rets application in perl, and I have found a few modules that will help me on my way. One of them being

http://WWW::Curl:easy.

During my testing, I have tested both system curl and perl curl. At this point I can get the system curl to correctly connect to my server. However, I am having the hardest time trying to figure out why I cant get perl curl to connect to the server.

Everytime I try to connect, I get a 401 error. I am using the same connection method that I would use if I was using system curl.

Here is my current code. Any help with this is greatly appreciated.

Perl Code w/

http://WWW::Curl:easy

-

		$curl->setopt(CURLOPT_URL, $site);
		$curl->setopt(CURLOPT_USERPWD,'{$user}:{$pass}');
		$curl->setopt(CURLOPT_HTTPAUTH,CURLAUTH_DIGEST);
		
		$curl->perform;
		my $err = $curl->errbuff;
		my $info = $curl->getingo(CURLINFO_HTTP_CODE);

Perl code w/ system curl

system("curl -u $user:$pass --digest $site");

 

[KevinADC]

try this:

$curl->setopt(CURLOPT_USERPWD,"$user:$pass");

note the double-quotes

------------------------------------------
- Kevin, perl coder unexceptional!

 

[jrottman]

I tried that before I posted. And I still get the same 401 error as I get with the code I posted.

 

[KevinADC]

Sorry, I have no further suggestions

------------------------------------------
- Kevin, perl coder unexceptional!

 

[wardy66]

Can you try your code on a non-protected site, like yahoo.com?

Just to see if it's the userass business causing trouble.

~ Michael