From 1236b3dccd5644236c19cf51262afc2d0a31b915 Mon Sep 17 00:00:00 2001 From: interp Date: Mon, 26 Aug 2002 08:26:08 +0000 Subject: [PATCH] adapted to new logging facility of httpd --- scheme/httpd/scheme-program-server.scm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/scheme/httpd/scheme-program-server.scm b/scheme/httpd/scheme-program-server.scm index 08152e1..89b38c8 100644 --- a/scheme/httpd/scheme-program-server.scm +++ b/scheme/httpd/scheme-program-server.scm @@ -11,11 +11,8 @@ (doit (lambda () ((runprogram prog) arglist)))) - (and (http-log "----------------------------------------~%") - (http-log " Programmname : ~s~%" prog) - (http-log " search : ~s~%" search) - (http-log " Argumente : ~s~%" arglist) - (http-log "----------------------------------------~%") + (and (http-syslog (syslog-level debug) + "scheme-program-handler:~% Programmname : ~s~% search : ~s~% Argumente : ~s~%" prog search arglist) (let ((request-method (request:method req))) (if (or (string=? request-method "GET") @@ -28,7 +25,8 @@ (define (runprogram progstring) (let* ( (progsymbol (read (make-string-input-port 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))))) (define (split-and-decode-search-spec s)