Changeset 12527 in project for release/4/spiffy/trunk/cgi-handler.scm
- Timestamp:
- 11/16/08 15:28:06 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/spiffy/trunk/cgi-handler.scm
r12511 r12527 132 132 (string-join (uri-path (request-uri req)) "/")))) 133 133 (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 135 135 (if (file-execute-access? interp) 136 136 ;; 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. 140 140 (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) 142 142 (copy-port (request-port (current-request)) o len) 143 143 (close-output-port o) … … 163 163 code: code 164 164 reason: reason))) 165 (write- response (current-response))165 (write-logged-response) 166 166 (copy-port i (response-port (current-response))) 167 167 (close-input-port i))))
Note: See TracChangeset
for help on using the changeset viewer.