1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(in-package :araneida)
;;; This is legacy code, kept around for old clients. new
;;; applications should be using the HTTP-LISTENER api instead
(defclass server ()
((base-url :initarg :base-url :accessor server-base-url
:documentation "The base URL of the web site as the user sees it")
(port :initarg :port :accessor server-port
:documentation "The port to actually bind to. Typically this is 8000 or so when SERVER-BASE-URL refers to port 80")
(name :initarg :name :accessor server-name
:documentation "The local address to actually listen to. Should usually be set to the hostname of the server's base-url")
(ssl-enabled-p :initarg :ssl-enabled-p :accessor server-ssl-enabled-p
:initform nil
:documentation "Use SSL on this server? Note: we do not handle SSL ourselves; this is only useful for OUTPUT-APACHE-CONF")
(ssl-certificate :initarg :ssl-certificate :initform nil
:documentation "Pathname for SSL certificate file"
:accessor server-ssl-certificate )
(ssl-private-key :initarg :ssl-private-key :initform nil
:documentation "Pathname for SSL private key. May be NIL if ssl-certificate includes it"
:accessor server-ssl-private-key)))
|
