1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: wol -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: classes.lisp
6 ;;;; Purpose: Classes for Wol library
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: July 2003
10 ;;;; $Id: classes.lisp,v 1.2 2003/07/16 16:40:35 kevin Exp $
12 ;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
13 ;;;; *************************************************************************
18 (defclass session-master ()
19 ((lifetime :initarg lifetime :initform nil :accessor lifetime)
20 (cookie-name :initarg cookie-name :accessor cookie-name)
21 (counter :initform 0 :accessor counter)
22 (prefix :initform "/" :accessor prefix)
23 (sessions :initform nil :accessor sessions)))
26 (defclass websession ()
27 ((key :initarg :key :accessor websession-key)
28 (lastref :initarg :lastref :accessor websession-lastref)
29 (lifetime :initarg :lifetime :initform nil
30 :accessor websession-lifetime)
31 (data :initform nil :accessor websession-data)
32 (method :initarg :method :accessor websession-method)
33 (variables :initform (make-hash-table :test 'equal)
34 :accessor websession-variables)))
36 (defclass wol-project ()
37 ((name :initarg :name :initform "" :type string :accessor project-name)
38 (project-prefix :initarg :project-prefix :type string
39 :initform "/" :accessor project-prefix)
40 (map :initarg :map :initform nil :type list :accessor project-map)
41 (hash :initarg :hash :initform nil :accessor project-hash-map)
42 (index :initarg :index :initform "index" :type string
43 :accessor project-index)
44 (server :initarg :server :initform nil :accessor project-server)
45 (session-master :initform (make-instance 'session-master)
46 :accessor session-master)))
49 ((project :initarg :project :accessor entity-project))
52 (defclass http-request ()
53 ((method :initarg :method :accessor request-method)
54 (uri :initarg :uri :accessor request-uri)
55 (raw-uri :initarg :raw-uri :accessor request-raw-uri)
56 (protocol :initarg :protocol :reader request-protocol)
57 (protocol-string :initarg :protocol-string :reader request-protocol-string)
58 (socket :initarg :socket :reader request-socket)
59 (ml-server :initarg :ml-server :reader request-ml-server)
60 (vhost :initarg :vhost :accessor request-vhost)
61 (posted-content :initarg :posted-content :accessor request-posted-content)
62 (headers :initarg :headers :accessor request-headers)
63 (project :initarg :project :accessor project)
64 (page :initarg :page :initform nil :accessor request-page)
65 (plist :initarg :plist :initform nil :accessor request-plist)
66 (next-plists :initarg :next-plists :initform nil
67 :accessor request-next-plists)
68 (uri-query :initarg :uri-query :initform nil
69 :accessor request-uri-query)
70 (query-alist :initarg :query-alist :initform nil
71 :accessor request-query-alist)
72 (session :initarg :session :initform nil
73 :accessor websession-from-req)
76 (defvar *reap-interval* 300)
77 (defvar *reaper-process* nil)
79 (defvar *active-projects* (make-hash-table :test 'equal))
81 (defvar +asp-header+ "lsp")
82 (defvar +full-asp-header+ "/lsp")
84 (defvar +plist-header+ "/sdata"
85 "string that starts an encoded plist")
87 (defvar *wol-version* "0.1.0")