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

Timestamp:

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

Author:

sjamaan

Message:

Add logging support

File:

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

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

@@ -132 +132 @@
                                            (string-join (uri-path (request-uri req)) "/"))))
          (env (cgi-build-env req path)))
-    ;; TODO: stderr should be linked to spiffy error log (make log first)
+    ;; TODO: stderr should be linked to spiffy error log
     (if (file-execute-access? interp)
         ;; XXX The script should be called with the query args on the
@@ -139 +139 @@
         ;; XXX Current working directory should be the dir with the script.
         (let-values (((i o pid) (process interp '() env)))
-          #;(log "(cgi) started program ~a(~a) ..." interp fn)
+          (log-to (debug-log) "(cgi) started program ~a(~a) ..." interp fn)
           (copy-port (request-port (current-request)) o len)
           (close-output-port o)
@@ -163 +163 @@
                                              code: code
                                              reason: reason)))
-              (write-response (current-response))
+              (write-logged-response)
               (copy-port i (response-port (current-response)))
               (close-input-port i))))