Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-03 11:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

better error handling in http-server request parsing

Browse source
This commit is contained in:
Alex Shinn 2020-09-02 11:53:49 +09:00
parent 24d1f6a8a5
commit 8597c3eda5
3 changed files with 29 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
lib/chibi/net/http-server.scm
View file

@ -40,16 +40,28 @@
(cond
((= 2 (length ls))
(let ((request
(make-request command (car ls) (cadr ls) in out sock addr)))
(log-info `(request: ,command ,(car ls) ,(cadr ls)
,(request-headers request)))
(protect (exn
(protect
(exn
(else
(log-error "internal error: " exn)
(print-stack-trace exn)
(servlet-respond request 500 "Internal server error")))
(let restart ((request request))
(servlet cfg request servlet-bad-request restart)))))
;; error parsing headers, can't use servlet-respond
(log-error "request error: " exn ls
(sockaddr-name (address-info-address addr)))
(servlet-write-status out 500 "Internal server error")
(mime-write-headers `((Status . "500")) out)
(display "\r\n" out)
#f))
(make-request command (car ls) (cadr ls) in out sock addr))))
(cond
(request
(log-info `(request: ,command ,(car ls) ,(cadr ls)
,(request-headers request)))
(protect (exn
(else
(log-error "internal error: " exn)
(print-stack-trace exn)
(servlet-respond request 500 "Internal server error")))
(let restart ((request request))
(servlet cfg request servlet-bad-request restart)))))))
(else
(let ((request (make-request command #f #f in out sock addr)))
(servlet-respond request 400 "bad request")))))))))

13
lib/chibi/net/http-server.sld
View file

@ -9,10 +9,11 @@
http-regexp-servlet http-path-regexp-servlet http-uri-regexp-servlet
http-host-regexp-servlet http-redirect-servlet http-rewrite-servlet
http-cgi-bin-dir-servlet http-scheme-script-dir-servlet)
(import (scheme time) (srfi 39) (srfi 95)
(chibi) (chibi mime) (chibi regexp) (chibi pathname) (chibi uri)
(chibi filesystem) (chibi io) (chibi string) (chibi process)
(chibi net server) (chibi net server-util) (chibi net servlet)
(chibi app) (chibi ast) (chibi config) (chibi log) (chibi memoize)
(chibi temp-file))
(import
(scheme time) (srfi 39) (srfi 95)
(chibi) (chibi mime) (chibi regexp) (chibi pathname) (chibi uri)
(chibi filesystem) (chibi io) (chibi string) (chibi process)
(chibi net) (chibi net server) (chibi net server-util) (chibi net servlet)
(chibi app) (chibi ast) (chibi config) (chibi log) (chibi memoize)
(chibi temp-file))
(include "http-server.scm"))

2
lib/chibi/net/servlet.sld
View file

@ -17,7 +17,7 @@
request-uri-string request-with-uri request-path
copy-request make-request make-cgi-request
;; servlets
servlet-write servlet-respond servlet-parse-body!
servlet-write servlet-write-status servlet-respond servlet-parse-body!
make-status-servlet servlet-handler servlet-run
servlet-bad-request)
(import