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

thttpd - web daemon software - fixes 2

This commit is contained in:
erana 2012-01-23 12:53:59 +09:00
parent 6005f64915
commit ec8f219430
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scsh/thttpd/thttpdaemon.scm
View File

@ -29,7 +29,7 @@
(define (eoln) (string #\newline)) (define (eoln) (string #\newline))
(define (servermsg) (string "::thttpd-msg::")) (define (servermsg) (string "::thttpd-msg::"))
(define (errormsg) (string "::thttpd-error::")) (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 (define :thttpd-daemon-record
(make-record-type 'thttpd-daemon-record (make-record-type 'thttpd-daemon-record
'(hostname port sock))) '(hostname port sock)))
@ -66,9 +66,10 @@
(if (symbol? a) (if (symbol? a)
(cond ((eq? a 'GET) (cond ((eq? a 'GET)
(write "Hello World") (write "Hello World")
(write aspect-content out) ;;(display "200 OK" out)
(write (string #\newline) out) (display aspect-content out)
(write "Hello World" out) (display (string #\return #\newline) out)
(display "\"Hello World\"" out)
;;(close-input-port in) ;;(close-input-port in)
;;(close-socket *socket) ;;(close-socket *socket)
;;(close-output-port out) ;;(close-output-port out)