<div dir="ltr">Hi Thomas,<div><br></div><div>does it work with any other https url?</div><div><br></div><div>-ivan</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-03-25 16:53 GMT+03:00 Thomas Krichel <span dir="ltr"><<a href="mailto:krichel@openlib.org" target="_blank">krichel@openlib.org</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><br>
  Consider<br>
<br>
-----------------------------------------------------------------<br>
#!/usr/bin/perl<br>
<br>
use warnings;<br>
use strict;<br>
<br>
use LWPx::ParanoidAgent;<br>
<br>
my $shortid='pkr1';<br>
my $openid='<a href="https://authors.repec.org/pro/'.$shortid" target="_blank">https://authors.repec.org/pro/'.$shortid</a>;<br>
<br>
#$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'}=0;<br>
<br>
$ENV{HTTPS_CA_FILE} = $ENV{'HOME'} . '/opt/ca-bundle';<br>
$ENV{HTTPS_DEBUG} = 1;<br>
<br>
## user agent<br>
my $ua= LWPx::ParanoidAgent->new;<br>
$ua->whitelisted_hosts("<a href="http://authors.repec.org" target="_blank">authors.repec.org</a>");<br>
<br>
# get/set the DNS resolver object that's used<br>
my $resolver = $ua->resolver;<br>
$ua->resolver(Net::DNS::Resolver->new());<br>
<br>
# and then just like a normal LWP::UserAgent, because it is one.<br>
my $response = $ua->get($openid);<br>
if ($response->is_success) {<br>
  print $response->content;  # or whatever<br>
}<br>
else {<br>
  die $response->status_line;<br>
}<br>
<br>
exit;<br>
<br>
-----------------------------------------------------------------<br>
<br>
  This produces<br>
<br>
SSL_connect:before/connect initialization<br>
SSL_connect:unknown state<br>
SSL_connect:SSLv3 read server hello A<br>
SSL3 alert write:fatal:unknown CA<br>
SSL_connect:error in SSLv3 read server certificate B<br>
SSL_connect:error in SSLv3 read server certificate B<br>
SSL_connect:before/connect initialization<br>
SSL_connect:SSLv3 write client hello A<br>
SSL_connect:SSLv3 read server hello A<br>
SSL3 alert write:fatal:bad certificate<br>
SSL_connect:error in SSLv3 read server certificate B<br>
SSL_connect:before/connect initialization<br>
SSL_connect:SSLv3 write client hello A<br>
SSL_connect:SSLv3 read server hello A<br>
SSL3 alert write:fatal:bad certificate<br>
SSL_connect:error in SSLv3 read server certificate B<br>
500 SSL negotiation failed: error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed at ./test_ras line 30.<br>
<br>
  What is wrong?<br>
<span class="HOEnZb"><font color="#888888"><br>
--<br>
<br>
  Cheers,<br>
<br>
  Thomas Krichel                  <a href="http://openlib.org/home/krichel" target="_blank">http://openlib.org/home/krichel</a><br>
                                              skype:thomaskrichel<br>
<br>
_______________________________________________<br>
RAS-run mailing list<br>
<a href="mailto:RAS-run@lists.openlib.org">RAS-run@lists.openlib.org</a><br>
<a href="http://lists.openlib.org/cgi-bin/mailman/listinfo/ras-run" target="_blank">http://lists.openlib.org/cgi-bin/mailman/listinfo/ras-run</a><br>
</font></span></blockquote></div><br></div>