;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: demo.lisp,v 1.2 2003/07/08 06:40:00 kevin Exp $
+;;;; $Id: demo.lisp,v 1.3 2003/07/10 18:58:29 kevin Exp $
;;;; *************************************************************************
(in-package #:modlisp)
-(defun demo-apache-command-processor (command)
- "Sample function to process an apache command"
+(defun demo-modlisp-command-processor (command)
+ "Sample function to process an modlisp command"
(let ((url (header-value command "url")))
(cond
((equal url "/fixed.lsp")
(write-string "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">
<html><head></head>
<body>
-<h1>mod_lisp debug page</h1>" *apache-socket*)
- (write-request-counts *apache-socket*)
+<h1>mod_lisp debug page</h1>" *modlisp-socket*)
+ (write-request-counts *modlisp-socket*)
(write-string "<table>
<thead><tr><th>Key</th><th>Value</th></tr></thead>
-<tbody>" *apache-socket*)
+<tbody>" *modlisp-socket*)
(loop for (key . value) in command do
- (format *apache-socket* "<tr><td>~a</td><td>~a</td></tr>" key value))
- (write-string "</tbody></table></body></html>" *apache-socket*))
+ (format *modlisp-socket* "<tr><td>~a</td><td>~a</td></tr>" key value))
+ (write-string "</tbody></table></body></html>" *modlisp-socket*))
(defun fixed-html-string ()
(write-string
"<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">
<html><head></head><body><h1>mod_lisp precomputed page</h1>
-<p>This is a precomputed string sent by mod_lisp</p>" *apache-socket*)
- (write-request-counts *apache-socket*)
- (write-string "</body></html>" *apache-socket*))
+<p>This is a precomputed string sent by mod_lisp</p>" *modlisp-socket*)
+ (write-request-counts *modlisp-socket*)
+ (write-string "</body></html>" *modlisp-socket*))
(defun write-request-counts (s)
(format s "<p>Number of server requests: ~D</p>"
- (get-number-server-requests))
+ *number-server-requests*)
(format s "<p>Number of worker requests for this socket: ~D</p>"
- (get-number-worker-requests)))
+ *number-worker-requests*))