prepare for POST requests

scheme/httpd/surflets/surflets.scm

@@ -37,7 +37,31 @@
 
 (define form-query parse-html-form-query)
 (define (get-bindings request)
+  (let ((request-method (request:method request)))
+    (cond
+     ((string=? request-method "GET")
       (form-query (http-url:search (request:url request))))
+;     ((string=? request-method "POST")
+;      (let* ((content-length (get-content-length (request:headers request)))
+;	     (form-data (read-line **IN**)))
+;	(form-query form-data)))
+     (else
+      (error "unsupported request type")))))
+
+;; Will be needed when we handle POST requests.
+;(define (get-content-length headers)
+;  (cond ((get-header headers 'content-length) =>
+;	 ;; adopted from httpd/cgi-server.scm
+;	 (lambda (content-length)	; Skip initial whitespace (& other non-digits).
+;	   (let ((first-digit (string-index content-length char-set:digit))
+;		 (content-length-len (string-length content-length)))
+;	     (if first-digit
+;		 (number->string (substring content-length first-digit 
+;					    content-length-len))
+;		 ;; http-status/bad-request req 
+;		 `(error "Illegal `Content-length:' header.")))))
+;	(else 
+;	 (error "No Content-length specified for POST data."))))
 
 (define (extract-bindings bindings key)
   (let ((key (if (symbol? key) (symbol->string key) key)))