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

adapted to new logging facility of httpd

This commit is contained in:
interp 2002-08-26 08:26:08 +00:00
parent a6f10bc87d
commit 1236b3dccd
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/httpd/scheme-program-server.scm
View File

@ -11,11 +11,8 @@
(doit (lambda () (doit (lambda ()
((runprogram prog) arglist)))) ((runprogram prog) arglist))))
(and (http-log "----------------------------------------~%") (and (http-syslog (syslog-level debug)
(http-log " Programmname : ~s~%" prog) "scheme-program-handler:~% Programmname : ~s~% search : ~s~% Argumente : ~s~%" prog search arglist)
(http-log " search : ~s~%" search)
(http-log " Argumente : ~s~%" arglist)
(http-log "----------------------------------------~%")
(let ((request-method (request:method req))) (let ((request-method (request:method req)))
(if (or (string=? request-method "GET") (if (or (string=? request-method "GET")
@ -28,7 +25,8 @@
(define (runprogram progstring) (define (runprogram progstring)
(let* ( (progsymbol (read (make-string-input-port progstring))) (let* ( (progsymbol (read (make-string-input-port progstring)))
(progsymbol1 (string->symbol progstring))) (progsymbol1 (string->symbol progstring)))
(and (http-log "[]run-program ~s ~s ~s~%" progstring progsymbol progsymbol1) (and (http-syslog (syslog-level debug)
"[]run-program ~s ~s ~s~%" progstring progsymbol progsymbol1)
(eval progsymbol (interaction-environment))))) (eval progsymbol (interaction-environment)))))
(define (split-and-decode-search-spec s) (define (split-and-decode-search-spec s)