sharyanto/perl-Gepok — pull request #1 by tobyink (2012-05-04 13:07:47+00:00)
Title: client certificate support

This includes a test case which sets up an HTTPS server that echoes back the client certificate, performs an HTTPS request with a certificate, and checks that the response matches the certificate used in the request.

The test case is not pretty as I couldn't reliably make LWP::UserAgent perform a request using a client certificate. (LWP::Protocol::https seems to support two different SSL backends which work differently.) So it uses Net::SSL as a socket and prints an HTTP request to it, then reads the response. If this wasn't in a controlled environment (known server, etc) then it would be horrific. As things are, it's just ugly. Ugly is better than horrific.

It bundles some certificates I've used for testing. Once the certificates expire, this test will probably start failing. The certificates expire in May 2032 - write it in your diary to generate some new ones in April 2032.