[Emacs-diffs] nsm 02/04: Return the valid-from/to as a string instead of an integer

[Lars Ingebrigtsen]

branch: nsm
commit 9484ae8fc48e3098581c9a1dc4675ab7bc5bc6e1
Author: Lars Magne Ingebrigtsen <address@hidden>
Date:   Tue Nov 18 15:11:53 2014 +0100

    Return the valid-from/to as a string instead of an integer
    
    The integer might not fit in all Emacs ints
---
 src/gnutls.c |   12 ++++++++++--
 1 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/gnutls.c b/src/gnutls.c
index 3e8eaab..39854a0 100644
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -769,11 +769,19 @@ gnutls_certificate_details (gnutls_x509_crt_t cert)
 
   /* Validity. */
   {
+    char buf[11];
+    size_t buf_size = sizeof (buf);
+    struct tm t;
     time_t tim = gnutls_x509_crt_get_activation_time (cert);
-    res = nconc2 (res, list2 (intern (":valid-from"), make_number (tim)));
+
+    if (gmtime_r (&tim, &t) != NULL &&
+       strftime (buf, buf_size, "%Y-%m-%d", &t) != 0)
+      res = nconc2 (res, list2 (intern (":valid-from"), build_string (buf)));
 
     tim = gnutls_x509_crt_get_expiration_time (cert);
-    res = nconc2 (res, list2 (intern (":valid-to"), make_number (tim)));
+    if (gmtime_r (&tim, &t) != NULL &&
+       strftime (buf, buf_size, "%Y-%m-%d", &t) != 0)
+      res = nconc2 (res, list2 (intern (":valid-to"), build_string (buf)));
   }
 
   /* Subject. */