scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

adapting to new httpd logging facility

This commit is contained in:
interp 2002-08-26 08:15:43 +00:00
parent 60df692033
commit a6f10bc87d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/httpd/seval.scm
View File

@ -108,7 +108,8 @@
(q (parse-html-form-query qs)) ; and parse them up. (q (parse-html-form-query qs)) ; and parse them up.
(s (cond ((assoc "program" q) => cdr) (s (cond ((assoc "program" q) => cdr)
(else (error "No program in entity body."))))) (else (error "No program in entity body.")))))
(http-log "Seval sexp:~%~s~%" s) (http-syslog (syslog-level debug)
"Seval sexp:~%~s~%" s)
(read (make-string-input-port s))))) (read (make-string-input-port s)))))
(else (http-error http-reply/bad-request req (else (http-error http-reply/bad-request req
"No Content-length: field in POST request.")))) "No Content-length: field in POST request."))))