From ce084c25d9052f22e9ef7e3e951622493ad35387 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones <tonygarnockjones@gmail.com> Date: Tue, 2 Aug 2016 21:08:03 -0400 Subject: [PATCH] Include credentials in `simple-json-rpc!` when required. --- src/jsonp-client.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/jsonp-client.rkt b/src/jsonp-client.rkt index cc9f7ec..c8e152e 100644 --- a/src/jsonp-client.rkt +++ b/src/jsonp-client.rkt @@ -90,7 +90,12 @@ (define request-urls (format "~a~a" baseurl site-relative-url)) (define request-url (string->url request-urls)) (define post-data (string->bytes/utf-8 (jsexpr->string jsexpr-to-send))) - (define raw-response (port->string (post-pure-port request-url post-data))) + (define req-headers + (if include-credentials? + (list (make-basic-auth-credentials-header (session-email s) + (session-password s))) + '())) + (define raw-response (port->string (post-pure-port request-url post-data req-headers))) (define reply (string->jsexpr raw-response)) (unless sensitive? (log-info "simple-json-rpc: reply ~v" reply)) reply)