comparison lisp/net/gnutls.el @ 110611:6c735824d0c1

Add gnutls logging and clean up various gnutls bits. From: Teodor Zlatanov <[e-mail]>

110610:f3646cf59e9f

;;
;; (setq jas (open-ssl-stream "ssl" (current-buffer) "www.pdc.kth.se" 443))
;; (process-send-string jas "GET /\r\n\r\n")

;;; Code:

(defun open-ssl-stream (name buffer host service)
  "Open a SSL connection for a service to a host.
Returns a subprocess-object to represent the connection.
Input and output work as for subprocesses; `delete-process' closes it.

                               ((eq credentials 'gnutls-x509pki)
                                "NORMAL"))))
         ret)

    (gnutls-message-maybe
     (setq ret (gnutls-boot proc priority-string credentials credentials-file))     
     "boot: %s")

    (when (gnutls-errorp ret)
      (error "Could not boot GnuTLS for this process"));

110611:6c735824d0c1

;;
;; (setq jas (open-ssl-stream "ssl" (current-buffer) "www.pdc.kth.se" 443))
;; (process-send-string jas "GET /\r\n\r\n")

;;; Code:

(defgroup gnutls nil
  "Emacs interface to the GnuTLS library."
  :prefix "gnutls-"
  :group 'net-utils)

(defcustom gnutls-log-level 2
  "Logging level to be used by `starttls-negotiate' and GnuTLS."
  :type 'integer
  :group 'gnutls)

(defun open-ssl-stream (name buffer host service)
  "Open a SSL connection for a service to a host.
Returns a subprocess-object to represent the connection.
Input and output work as for subprocesses; `delete-process' closes it.

                               ((eq credentials 'gnutls-x509pki)
                                "NORMAL"))))
         ret)

    (gnutls-message-maybe
     (setq ret (gnutls-boot proc priority-string
                            credentials credentials-file
                            nil nil gnutls-log-level))
     "boot: %s")

    (when (gnutls-errorp ret)
      (error "Could not boot GnuTLS for this process"));