From ec8f2194301a99f08f8d6e90775d75cb72ca8fd5 Mon Sep 17 00:00:00 2001 From: erana Date: Mon, 23 Jan 2012 12:53:59 +0900 Subject: [PATCH] thttpd - web daemon software - fixes 2 --- scsh/thttpd/thttpdaemon.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/scsh/thttpd/thttpdaemon.scm b/scsh/thttpd/thttpdaemon.scm index 9c569d8..e3677e3 100644 --- a/scsh/thttpd/thttpdaemon.scm +++ b/scsh/thttpd/thttpdaemon.scm @@ -29,7 +29,7 @@ (define (eoln) (string #\newline)) (define (servermsg) (string "::thttpd-msg::")) (define (errormsg) (string "::thttpd-error::")) -(define aspect-content (string-append "Content-Type: text/plain;charset=utf-8" (string #\newline))) +(define aspect-content (string-append "Content-Type: text/plain;charset=utf-8" (string #\return#\newline))) (define :thttpd-daemon-record (make-record-type 'thttpd-daemon-record '(hostname port sock))) @@ -66,9 +66,10 @@ (if (symbol? a) (cond ((eq? a 'GET) (write "Hello World") - (write aspect-content out) - (write (string #\newline) out) - (write "Hello World" out) + ;;(display "200 OK" out) + (display aspect-content out) + (display (string #\return #\newline) out) + (display "\"Hello World\"" out) ;;(close-input-port in) ;;(close-socket *socket) ;;(close-output-port out)