;;;
;;; client
;;;

(use http-client uri-common intarweb)

(define data "foobar")

(call-with-response
 (make-request uri: (uri-reference "http://localhost:8080/echo-service")
               method: 'POST
               (headers `((content-type text/plain)
                          (content-length ,(string-length data)))))
 (lambda (req)
   (let ((port (request-port req)))
     (display data port)
     (flush-output port)))
 #f)


;;;
;;; server
;;;

(use awful)

(define-page "/echo-service"
  (lambda ()
    (with-request-variables (data)
      (print "-----------------")
      (print data)
      (->string data)))
  method: 'post)