develooper Front page | perl.libwww | Postings from November 2002

Re: HTTPS over LWP

Thread Previous
From:
Andreas Niemeyer
Date:
November 25, 2002 00:53
Subject:
Re: HTTPS over LWP
Message ID:
62E5C857-0053-11D7-825E-000393762960@gutzmann.com
Yesterday I've search about several hours and found some related  
postings and articles, in which exactly my problem was described, but  
not solved.
I don't want low level programming, if anyone has samplecode, please  
post it.

Best regards,

Andreas

http://www.byte.com/documents/s=493/byt20010214s0005/index3.htm
http://www.perlmonks.org/index.pl?node_id=179922
http://groups.google.de/ 
groups?q=perl+SSL+HTTP::Daemon&hl=de&lr=&ie=UTF- 
8&selm=3CB9EFAF.80809%40computer.org&rnum=1



Am Sonntag, 24.11.02 um 17:54 Uhr schrieb Keary Suska:

> on 11/22/02 7:40 AM, andreas.niemeyer@gutzmann.com purportedly said:
>
>> I have the problem to handle CONNECT requests with LWP, serval times
>> discuss but not really solved in my opinion. What should be a useable
>> way to enable ssl-support, install an old version of libwww with  
>> regard
>> to the bugfix-report on sourceforge by patching http.pm and https.pm  
>> or
>> has anyone a better solution?
>
> 1. Install openssl (http://www.openssl.org)
> 2. Install Bundle::LWP (use perl -MCPAN -e shell)
> 3. Install Crypt::SSLeay (same as LWP)
>

I've installed all recommend modules.
Ok, I've the problem to handle client-requests about the browser, the  
script should be a proxy with logging-capable.
If I define a request-object like

	my $req = new HTTP::Request('GET', 'https://www.nodeworks.com');

or get one about the HTTP::Daemon

	my $req = new HTTP::Request('CONNECT', 'http://www.nodeworks.com:443');


, only the first works. I've read something about patching the Daemon,  
other people choose the way to patch http.pm - Modules.


use LWP::Simple;
use LWP::UserAgent;
use LWP::Protocol::https;
LWP::Debug::level('+');

          my $ua = new LWP::UserAgent;
          #my $req = new HTTP::Request('CONNECT',  
'http://www.nodeworks.com:443');
          my $req = new HTTP::Request('GET',  
'https://www.nodeworks.com');
          my $res = $ua->request($req);
          print $res->code."\n";


> Now you have https support with LWP.
>
>> Another point I'm wondering about is that the latest libwww-package
>> isn't extented in the functionality, or I'm be under a  
>> misapprehension.
>
> Perhaps, but there are likely bug fixes that you will want. Best to  
> keep it
> up to date.
>
> Keary Suska
> Esoteritech, Inc.
> "Leveraging Open Source for a better Internet"
>
>
___
Andreas Niemeyer	


Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About