如何确定连接在mod_perl中使用的SSL客户端证书？

    SSLEngine on
    SSLCertificateFile "/path/to/your/server.crt"
    SSLCertificateKeyFile "/path/to/your/server.key"
    SSLCACertificateFile "/path/to/your/ca.crt"
    SSLVerifyClient require
    SSLVerifyDepth 1
</VirtualHost>

my $ssl_client_cert = $r->connection->client_cert;

my $cert_info = Net::SSLeay::X509_get_subject_name($ssl_client_cert);
my $cn = Net::SSLeay::X509_NAME_get_text_by_NID($cert_info, &Net::SSLeay::NID_commonName);

if ($cn eq "example.com") {
    # 允许访问
} else {
    # 拒绝访问
}