Ignore:
Timestamp:
11/16/08 15:28:06 (12 years ago)
Author:
sjamaan
Message:

Add logging support

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/spiffy/trunk/cgi-handler.scm

    r12511 r12527  
    132132                                           (string-join (uri-path (request-uri req)) "/"))))
    133133         (env (cgi-build-env req path)))
    134     ;; TODO: stderr should be linked to spiffy error log (make log first)
     134    ;; TODO: stderr should be linked to spiffy error log
    135135    (if (file-execute-access? interp)
    136136        ;; XXX The script should be called with the query args on the
     
    139139        ;; XXX Current working directory should be the dir with the script.
    140140        (let-values (((i o pid) (process interp '() env)))
    141           #;(log "(cgi) started program ~a(~a) ..." interp fn)
     141          (log-to (debug-log) "(cgi) started program ~a(~a) ..." interp fn)
    142142          (copy-port (request-port (current-request)) o len)
    143143          (close-output-port o)
     
    163163                                             code: code
    164164                                             reason: reason)))
    165               (write-response (current-response))
     165              (write-logged-response)
    166166              (copy-port i (response-port (current-response)))
    167167              (close-input-port i))))
Note: See TracChangeset for help on using the changeset viewer.