检查通过LWP请求返回的SSL证书

Question

我在perl中请求使用LWP的网页，我希望能够访问Web服务器提供的SSL证书（我正在寻找证书中的过期日期等）。 我想要的信息不在Crypt :: SSLeay添加到请求的三个标头中。 是否有一种我可以忽略的方式，我可以获得SSL证书的对象引用（理想情况下）？ 我已经扫描了一些perl文档和谷歌，但这是一个漫长的一周，我可能只是没有读正确的东西。

如果我可以避免它，我不想通过建立单独的原始SSL连接来直接获取证书 - 因为有一个经过身份验证的Web代理，LWP只是让这个问题透明地消失了。 :)当我需要的数据已经传输到我的机器/某个地方/时，建立两个连接是愚蠢的...

Answer 1

LWP提供的回调都没有给予（有意）访问套接字，但似乎有一个潜在的解决方法 - 如果你向LWP提供keep_alive和conn_cache选项，请求LWP将调用->deposit在连接套接字作为参数的conn_cache对象上。 您可以编写一个虚拟conn-cache对象，也可以“创造性地”使用LWP提供的LWP::ConnCache 。

无论如何，如果您使用该反向方法来获取套接字，它将是Net::SSL的子类（假设您正在使用ssleay），因此您将能够在其上调用->get_peer_certificate 。