PasteRack.org
Paste # 86127
2015-12-06 02:36:18

Fork as a new paste.

Paste viewed 356 times.


Embed:

post-request

  1. #lang racket/base
  2.  
  3. (require net/url
  4.           net/uri-codec)
  5.  
  6. (define (post-request post-url post-data)
  7.   (define-values
  8.     (response headers input-port)
  9.     (http-sendrecv/url post-url
  10.                        #:method "POST"
  11.                        #:data
  12.                        post-data
  13.                        #:headers
  14.                        (list
  15.                         "Content-Type: application/x-www-form-urlencoded")))
  16.   (define response-data (read-json input-port))
  17.   (close-input-port input-port)
  18.   response-data)

=>