Function: url-ldap-certificate-formatter

url-ldap-certificate-formatter is a byte-compiled function defined in url-ldap.el.gz.

Signature

(url-ldap-certificate-formatter DATA)

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-ldap.el.gz
(defun url-ldap-certificate-formatter (data)
  (condition-case ()
      (require 'ssl)
    (error nil))
  (let ((vals (if (fboundp 'ssl-certificate-information)
		  (ssl-certificate-information data)
		(tls-certificate-information data))))
    (if (not vals)
	"<b>Unable to parse certificate</b>"
      (concat "<table border=0>\n"
	      (mapconcat
	       (lambda (ava)
		 (format "<tr><td>%s</td><td>%s</td></tr>\n" (car ava) (cdr ava)))
	       vals "\n")
	      "</table>\n"))))