The next version of the module will have this working.
Subscribe to the openssl users to hear about it off
of openssl.org .. I'll try to remember to send you a
mail separately & also post to the perl-win32-web list.
--Josh
[EMAIL PROTECTED] wrote:
>
> To anyone who has an idea how to accomplish this using perl libraries please
> advise.
>
> I am trying to access an https page by going through an http proxy, code is
> as follows.
> I get back an empty document, if I don't go through a proxy the https code
> works
> if I use http i get through the proxy.
>
> use LWP::UserAgent;
> use Crypt::SSLeay;
> use LWP::Debug qw(+);
> use LWP::Debug qw(level); level('+');
> use Crypt::SSLeay::MainContext qw(main_ctx);
>
> $ua = LWP::UserAgent->new;
> $ua->agent("SSL-Surfer/1.0");
> $ua->proxy(['http','ftp','https'] => 'http://proxy:80');
> $request = HTTP::Request->new(GET =>'https://httpssite');
> $request->proxy_authorization_basic("proxy_account","proxy_name");
> $res = $ua->request($request);
> if ($res->is_success) {
> print $res->content;
> } else {
> print "Failed: ", $res->status_line, "\n";
> }
>
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
