Changeset 12527 in project for release/4/spiffy/trunk/ssp-handler.scm

Timestamp:

11/16/08 15:28:06 (12 years ago)

Author:

sjamaan

Message:

Add logging support

File:

• release/4/spiffy/trunk/ssp-handler.scm (modified) (4 diffs)

release/4/spiffy/trunk/ssp-handler.scm

@@ -35 +35 @@
 (module ssp-handler
   (ssp-handler ssp-include ssp-stringize ssp-short-open-tag ssp-long-open-tag
-   ssp-close-tag ssp-eval-environment current-workdir exit-handler)
+   ssp-close-tag ssp-eval-environment current-workdir ssp-exit-handler)
 
 (import chicken scheme spiffy extras ports regex files posix)
@@ -41 +41 @@
 
 (define current-workdir (make-parameter #f))
-(define exit-handler    (make-parameter #f))
+(define ssp-exit-handler    (make-parameter #f))
 
 (define ssp-eval-environment (make-parameter (interaction-environment)))
@@ -50 +50 @@
                   (content-length ,(string-length out)))
     (lambda ()
-      (write-response (current-response))
+      (write-logged-response)
       (display out (response-port (current-response)))))))
 
@@ -121 +121 @@
    (lambda (return)
      (parameterize ((load-verbose #f)
-                    (exit-handler (lambda _ (return #f))))
+                    (ssp-exit-handler (lambda _ (return #f))))
        (load filename (cut eval <> (ssp-eval-environment)))))))