;;;; -*- coding: utf-8; mode: lisp -*- ;;;; Copyright 2007, Matthias Andreas Benkard. ;;;------------------------------------------------------------------------ ;;; This file is part of The Mulkblog Project. ;;; ;;; The Mulkblog Project is free software. You can redistribute it and/or ;;; modify it under the terms of the Affero General Public License as ;;; published by Affero, Inc.; either version 1 of the License, or ;;; (at your option) any later version. ;;; ;;; The Mulkblog Project is distributed in the hope that it will be ;;; useful, but WITHOUT ANY WARRANTY; without even the implied warranty ;;; of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; Affero General Public License for more details. ;;; ;;; You should have received a copy of the Affero General Public ;;; License in the COPYING file that comes with The Mulkblog Project; if ;;; not, write to Affero, Inc., 510 Third Street, Suite 225, San ;;; Francisco, CA 94107 USA. ;;;------------------------------------------------------------------------ (in-package #:mulk.journal) (defparameter *site* nil "One of :WIRSELKRAUT and :NFS.NET.") (defparameter *notification-email* "auto@mail.matthias.benkard.de" "The e-mail address that comment submissions are to be sent to.") (defparameter *debugging-p* nil) (defparameter *query* nil "The HTTP query string transformed into a property list.") (defparameter *subpath-query* nil "The query string stripped of the script location.") (defparameter *subpath-string* nil "The query string stripped of the script location and query parameters, that is, the virtual path below the script.") (defparameter *subpath* nil "*SUBPATH-STRING* parsed into a list of nested directories.") (defparameter *post-number* nil "The identification number of the journal entry to be acted upon. May be NIL.") (defparameter *action* nil "One of NIL, :INDEX, :VIEW-ATOM-FEED, :VIEW, :POST, :EDIT, :PREVIEW, and :POST-COMMENT.") (defparameter *method* nil "One of :GET, :POST, :PUT, and :DELETE.") (defparameter *script-filename* nil) (defparameter *script-dir* nil "The directory which all the Lisp code lives in.") (defparameter *data-dir* nil "The directory which all the journal data lives in.") (defparameter *cache-dir* nil "The directory used for caching generated markup.") (defparameter *static-dir* nil "The directory which all the generated HTML files will live in.") (defparameter *wordpress-key* nil "The WordPress/Akismet API key to use.") (defparameter *journal-warnings* nil "Warnings that should be displayed to the user.") (defparameter *full-entry-view* t) (defparameter *site-root* nil) (defparameter *if-modified-since* nil) (defparameter *wsse* nil) (defparameter *wsse-key* nil) (defparameter *xml-rpc-key* nil) (defparameter *mode* :http ;either :HTTP or :FILE "Whether we are serving stuff dynamically over HTTP or storing it into files for later static service.")