X-Git-Url: http://git.kpe.io/?p=cl-modlisp.git;a=blobdiff_plain;f=demo.lisp;fp=demo.lisp;h=cbe5fa61d78dc54fa531aac1aefb6700557db7ba;hp=c9e7e0f9125a67e69c4060758a4ee24558af3225;hb=fa641fe08adb5cede535a6dd79a79047c78ecf8a;hpb=06c0d21709291418242c059d53956f4b164977ea diff --git a/demo.lisp b/demo.lisp index c9e7e0f..cbe5fa6 100644 --- 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 " -

mod_lisp debug page

" *apache-socket*) - (write-request-counts *apache-socket*) +

mod_lisp debug page

" *modlisp-socket*) + (write-request-counts *modlisp-socket*) (write-string " -" *apache-socket*) +" *modlisp-socket*) (loop for (key . value) in command do - (format *apache-socket* "" key value)) - (write-string "
KeyValue
~a~a
" *apache-socket*)) + (format *modlisp-socket* "~a~a" key value)) + (write-string "" *modlisp-socket*)) (defun fixed-html-string () @@ -53,15 +53,15 @@ (write-string "

mod_lisp precomputed page

-

This is a precomputed string sent by mod_lisp

" *apache-socket*) - (write-request-counts *apache-socket*) - (write-string "" *apache-socket*)) +

This is a precomputed string sent by mod_lisp

" *modlisp-socket*) + (write-request-counts *modlisp-socket*) + (write-string "" *modlisp-socket*)) (defun write-request-counts (s) (format s "

Number of server requests: ~D

" - (get-number-server-requests)) + *number-server-requests*) (format s "

Number of worker requests for this socket: ~D

" - (get-number-worker-requests))) + *number-worker-requests*))