r5268: *** empty log message ***

[cl-modlisp.git] / demo.lisp
diff --git a/demo.lisp b/demo.lisp

index c9e7e0f9125a67e69c4060758a4ee24558af3225..cbe5fa61d78dc54fa531aac1aefb6700557db7ba 100644 (file)
--- a/demo.lisp
+++ b/demo.lisp
@@ -7,14 +7,14 @@
  ;;;; 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")
@@ -30,14 +30,14 @@
    (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 ()
@@ -53,15 +53,15 @@
    (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*))