1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(in-package :araneida)
(defclass request ()
((url :initarg :url :accessor request-url
:documentation "The URL requested.")
(http-version :initarg :http-version :reader request-http-version)
(urlstring :initarg :urlstring :accessor request-urlstring)
(handled-by :initform nil :accessor request-handled-by)
(user :initarg :user :accessor request-user
:documentation "The user associated with the request, filled in by the authentication handler")
(method :initarg :method :reader request-method
:documentation "The request method, as a keyword")
#+nil ;unused
(socket :initarg :socket :reader request-socket
:documentation "This socket connects to the client browser")
(stream :initarg :stream :accessor request-stream
:documentation "This stream is connected to the peer")
(headers :initarg :headers :reader request-headers
:documentation "Internal use only.")
(body :initarg :body :reader request-body
:documentation "Request body")
(unparsed-body :initform "" :initarg :unparsed-body :reader request-unparsed-body
:documentation "Unparsed request body")
(base-url :initarg :base-url :accessor request-base-url
:documentation "The URL prefix that requests of this class know how to handle.")
(condition :initarg :condition :accessor request-condition
:documentation "If a previous handler raised a condition, it is stored here for the :error hander"))
(:documentation "This is instantiated when a client makes a request to the http server"))
|
