28 |
(require 'url-parse) |
(require 'url-parse) |
29 |
(require 'url-util) |
(require 'url-util) |
30 |
(require 'ldap) |
(require 'ldap) |
31 |
|
(autoload 'tls-certificate-information "tls") |
32 |
|
|
33 |
;; This has been implemented from RFC2255 'The LDAP URL Format' (Dec 1997) |
;; This has been implemented from RFC2255 'The LDAP URL Format' (Dec 1997) |
34 |
;; |
;; |
97 |
(require 'ssl) |
(require 'ssl) |
98 |
(error nil)) |
(error nil)) |
99 |
(let ((vals (if (fboundp 'ssl-certificate-information) |
(let ((vals (if (fboundp 'ssl-certificate-information) |
100 |
(ssl-certificate-information data)))) |
(ssl-certificate-information data) |
101 |
|
(tls-certificate-information data)))) |
102 |
(if (not vals) |
(if (not vals) |
103 |
"<b>Unable to parse certificate</b>" |
"<b>Unable to parse certificate</b>" |
104 |
(concat "<table border=0>\n" |
(concat "<table border=0>\n" |