added SSL_SERVER_M_SERIAL environment variable

1 files changed, 5 insertions, 0 deletions

diff --git a/src/gnutls_hooks.c b/src/gnutls_hooks.c
index e20592b..e89c7f0 100644
--- a/src/gnutls_hooks.c
+++ b/src/gnutls_hooks.c
@@ -834,6 +834,11 @@ mgs_add_common_cert_vars(request_rec * r, gnutls_x509_crt cert, int side,
     apr_table_setn(env, apr_pstrcat(r->pool, MGS_SIDE, "_M_SERIAL", NULL),
                    apr_pstrdup(r->pool, tmp));
 
+    alg = gnutls_x509_crt_get_version(cert);
+    if (alg > 0)
+      apr_table_setn(env, apr_pstrcat(r->pool, MGS_SIDE, "_M_VERSION", NULL),
+                   apr_psprintf(r->pool, "%u", alg));
+
     tmp =
         mgs_time2sz(gnutls_x509_crt_get_expiration_time
                     (cert), buf, sizeof(buf));