Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
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;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1018339]
help
Chatterbox?
[Cosmic37]: I wish thee a peachy life and express gratitude for considering my pathetic questions
[erix]: record separator
[Cosmic37]: Permissions are interesting earthlings. Did nature determine who gives permission and who asks permission. Who was the first to get permission? Are you not related to them as one big earthling family?
[karlgoethebier]: Cojones! We need cojones!
[karlgoethebier]: Ouch! Permissions! We need permissions!

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (8)
As of 2017-06-29 16:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (672 votes). Check out past polls.