;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
-;;;; $Id: classes.lisp,v 1.2 2003/07/16 16:40:35 kevin Exp $
+;;;; $Id: classes.lisp,v 1.3 2003/07/18 21:34:18 kevin Exp $
;;;;
;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
:accessor project-index)
(server :initarg :server :initform nil :accessor project-server)
(session-master :initform (make-instance 'session-master)
- :accessor session-master)))
+ :accessor session-master)
+ (connector :initarg :connector :accessor project-connector)))
(defclass entity ()
- ((project :initarg :project :accessor entity-project))
- )
+ ((project :initarg :project :accessor entity-project)
+ (aserve-entity :initarg :aserve-entity :initform nil
+ :accessor entity-aserve-entity)))
+
(defclass http-request ()
((method :initarg :method :accessor request-method)
(protocol-string :initarg :protocol-string :reader request-protocol-string)
(socket :initarg :socket :reader request-socket)
(ml-server :initarg :ml-server :reader request-ml-server)
+ (aserve-server :initarg :aserve-server :reader request-aserve-server)
+ (host :initarg :host :accessor request-host)
(vhost :initarg :vhost :accessor request-vhost)
(posted-content :initarg :posted-content :accessor request-posted-content)
(headers :initarg :headers :accessor request-headers)
- (project :initarg :project :accessor project)
(page :initarg :page :initform nil :accessor request-page)
(plist :initarg :plist :initform nil :accessor request-plist)
(next-plists :initarg :next-plists :initform nil
:accessor request-query-alist)
(session :initarg :session :initform nil
:accessor websession-from-req)
+ (aserve-request :initarg :aserve-request :initform nil
+ :accessor aserve-request)
))
(defvar *reap-interval* 300)
(defvar +plist-header+ "/sdata"
"string that starts an encoded plist")
-(defvar *wol-version* "0.1.0")
+(defparameter *wol-version* '(0 1 0))
+
+(defvar *wol-stream* nil
+ "The output stream for the current request")