Try
$ENV{HTTPS_PROXY}="127.0.0.1:5865";
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 02, 2005 10:04 AM
To: libwww@perl.org
Subject: https and proxy
Hello,
I searched on comp.lang.perl.modules (and posted on it ) and the archive
of
this mailing-list to find solutions to my current problem.
First, some details about my configuration: I use Activeperl version
5.8.811 ( last one ) and lwp version 5.801 on win2k.
Summary: I can't connect to any secure websites. The as_string method of
the lwp module returns something like that:
( when I use the connect method )
-----------------
5.801HTTP/1.1 200 (OK) Connection established
Via: 1.1 my_PROXY2
Client-Date: Wed, 02 Mar 2005 14:28:46 GMT
Client-Peer: 127.0.0.1:5865
-----------------
and ( when I use the get or post method )
-----------------
HTTP/1.0 200 OK
Content-Type: text/html
Client-Date: Wed, 02 Mar 2005 14:29:23 GMT
Client-Peer: 127.0.0.1:5865
Client-Response-Num: 1
Refresh: 0; URL=https://www.mywebsite.com/
<HTML></HTML>
-----------------
I try to connect to secure or non-secure websites via a basic proxy (no
authentification),
which forward requests to a MS proxy server ( with NTLM, but that's not
the problem here ).
If I use firefox or Ie to connect to the same secure websites, it works
successfully and display these.
The only difference found ( using ethereal ) between the http headers
sent/received by the lwp module and a web browser,
is that the brower send a CONNECT, receive a 200 Connection etablished
status,
and then send back another CONNECT request to the proxy, and then
receive
the webpage content.
Instead of that, the lwp module sends the CONNECT method, receive a 200
connection etablished, and then close connection.
If I try to manually do a second CONNECT request, I got again only the
200
Connection etablished status.
If anyone has some ideas to try to solve this issue, it would be
greatfully
appreciated.
Thanks in advance.
Luc
N.B: here's a basic demo code.
require LWP::UserAgent;
$ua = LWP::UserAgent->new(redirect => '5');
$ua->proxy('http', 'http://127.0.0.1:5865/');
$ua->proxy('https', 'https://127.0.0.1:5865/');
$request = new HTTP::Request 'CONNECT' =>
'https://www.somewebsite.com/';
$response = $ua->request($request);
print $response->as_string;
if ($response->is_success) {
#print $response->content;
}
else {
die $response->status_line;
}
-----------------------------------------
********************************************************************
This e-mail is intended only for the addressee named above. As this e-mail
may contain confidential or privileged information, if you are not the
named addressee, you are not authorised to retain, read, copy or
disseminate this message or any part of it.
********************************************************************
