Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Using LWP Proxy and Client Certificate Connection timeout

by Khen1950fx (Canon)
on Feb 12, 2013 at 11:52 UTC ( #1018339=note: print w/ replies, xml ) Need Help??


in reply to Using LWP Proxy and Client Certificate Connection timeout

Try it like this:

#!/usr/bin/perl -l use strict; use warnings; use HTTP::Headers; use HTTP::Request; use LWP::UserAgent; my $https_proxy; my $url = 'https://someproxy.com:80'; my $ua = LWP::UserAgent->new( verify_hostname => 0, SSL_ca_file => 'cert.dat', ); $ua->timeout(10); $ua->agent(""); $ua->proxy( 'https', $https_proxy ); my $h = HTTP::Headers->new(); $h->proxy_authorization_basic( 'user', 'password' ); my $req = HTTP::Request->new( GET => $url ); my $res = $ua->request($req); print "header ----" . $res->headers_as_string; print "response ---" . $res->as_string;


Comment on Re: Using LWP Proxy and Client Certificate Connection timeout
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1018339]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (11)
As of 2014-12-20 18:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (97 votes), past polls