|
14
|
1 ;;; ssl.el,v --- ssl functions for emacsen without them builtin
|
|
|
2 ;; Author: wmperry
|
|
|
3 ;; Created: 1996/05/28 01:20:06
|
|
|
4 ;; Version: 1.2
|
|
|
5 ;; Keywords: comm
|
|
|
6
|
|
|
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
8 ;;; Copyright (c) 1995, 1996 by William M. Perry (wmperry@cs.indiana.edu)
|
|
16
|
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
|
|
14
|
10 ;;;
|
|
|
11 ;;; This file is not part of GNU Emacs, but the same permissions apply.
|
|
|
12 ;;;
|
|
|
13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
|
14 ;;; it under the terms of the GNU General Public License as published by
|
|
|
15 ;;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
16 ;;; any later version.
|
|
|
17 ;;;
|
|
|
18 ;;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
19 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
21 ;;; GNU General Public License for more details.
|
|
|
22 ;;;
|
|
|
23 ;;; You should have received a copy of the GNU General Public License
|
|
|
24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
|
25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
26 ;;; Boston, MA 02111-1307, USA.
|
|
|
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
28
|
|
22
|
29 (defvar ssl-program-name "ssl"
|
|
|
30 "*The program to run in a subprocess to open an SSL connection.")
|
|
|
31
|
|
|
32 (defvar ssl-program-arguments nil
|
|
|
33 "*Arguments that should be passed to the program `ssl-program-name'.
|
|
|
34 This should be used if your SSL program needs command line switches to
|
|
|
35 specify any behaviour (certificate file locations, etc).")
|
|
14
|
36
|
|
|
37 (defun open-ssl-stream (name buffer host service)
|
|
|
38 "Open a SSL connection for a service to a host.
|
|
|
39 Returns a subprocess-object to represent the connection.
|
|
|
40 Input and output work as for subprocesses; `delete-process' closes it.
|
|
|
41 Args are NAME BUFFER HOST SERVICE.
|
|
|
42 NAME is name for process. It is modified if necessary to make it unique.
|
|
|
43 BUFFER is the buffer (or buffer-name) to associate with the process.
|
|
|
44 Process output goes at end of that buffer, unless you specify
|
|
|
45 an output stream or filter function to handle the output.
|
|
|
46 BUFFER may be also nil, meaning that this process is not associated
|
|
|
47 with any buffer
|
|
|
48 Third arg is name of the host to connect to, or its IP address.
|
|
|
49 Fourth arg SERVICE is name of the service desired, or an integer
|
|
|
50 specifying a port number to connect to."
|
|
22
|
51 (let ((proc (apply 'start-process
|
|
|
52 name
|
|
|
53 buffer
|
|
|
54 ssl-program-name
|
|
|
55 (append ssl-program-arguments
|
|
|
56 (list host
|
|
|
57 (if (stringp service)
|
|
|
58 service
|
|
|
59 (int-to-string service)))))))
|
|
14
|
60 (process-kill-without-query proc)
|
|
|
61 proc))
|
|
|
62
|
|
|
63 (provide 'ssl)
|
