The http-sendrecv function returns three values:
status : bytes?
header : (listof bytes?)
response : input-port?
You need to look at the third one for the response. You could pass it
to read-json or you could do port->string or anything else that you
can do with an input port.
Jay
On Wed, Jun 17, 2015 at 5:14 PM, <bruc...@gmail.com> wrote:
> John,
>
> Thank you so much. That solved the problem of controlling the lights.
> However, I still can't figure out how to get at the response from the Hue
> Bridge. I should be receiving:
>
> [
> {"success":{"/lights/1/state/on":true}},
> {"success":{"/lights/1/state/bri":170}},
> {"success":{"/lights/1/state/ct":500}}
> ]
>
> I'm having the same problem when I use GET to inquire about the state of the
> lights.
>
> My best,
> Bruce
>
> On Wednesday, June 17, 2015 at 2:50:36 PM UTC-4, johnbclements wrote:
>> > On Jun 17, 2015, at 11:38 AM, Bruce wrote:
>> >
>> > Thanks so much; however, I'm still having trouble getting the lights to
>> > respond. I had to alter your example somewhat, because Racket was
>> > complaining about an "in-string: contract violation". The following seems
>> > to work:
>>
>> Oops forgot to cc: group:
>>
>> Going back to your original message, it appears that the data was encoded as
>> JSON, not using a urlencoding (that would make sense for a GET, but not for
>> a PUT or POST).
>>
>> Try using this code to generate the data:
>>
>> #lang racket
>> (require json)
>>
>> (jsexpr->string
>> (hash 'on #t
>> 'bri 170
>> 'ct 500))
>>
>> Let me know if you want me to stuff it into the http-sendrecv call.
>>
>> John
>>
>>
>> >
>>
>> > (http-sendrecv
>> > "192.168.1.95" "/api/<username>/lights/1/state"
>> > #:method 'PUT
>> > #:data
>> > (alist->form-urlencoded
>> > (list (cons 'bri "1")
>> > (cons 'ct "500")))
>> > #:headers
>> > '("Content-Type: application/x-www-form-urlencoded"))
>> >
>> > However, instead of affecting the light, I just get the following on the
>> > REPL:
>> >
>> > #"HTTP/1.1 200 OK"
>> > '(#"Cache-Control: no-store, no-cache, must-revalidate, post-check=0,
>> > pre-check=0"
>> > #"Pragma: no-cache"
>> > #"Expires: Mon, 1 Aug 2011 09:00:00 GMT"
>> > #"Connection: close"
>> > #"Access-Control-Max-Age: 3600"
>> > #"Access-Control-Allow-Origin: *"
>> > #"Access-Control-Allow-Credentials: true"
>> > #"Access-Control-Allow-Methods: POST, GET, OPTIONS, PUT, DELETE, HEAD"
>> > #"Access-Control-Allow-Headers: Content-Type"
>> > #"Content-type: application/json")
>> > #<input-port:pipe>
>> >
>> > I've also tried sending the message using:
>> >
>> > #:data
>> > (form-urlencoded-encode "\"bri\": 1")
>> >
>> > and changing the #:headers to '("Content-Type: application/json")
>> >
>> > Any thoughts?
>> >
>> > My best,
>> > Bruce
>> >
>> > On Wednesday, June 17, 2015 at 11:35:32 AM UTC-4, Alexis King wrote:
>> >> You probably want to use the net/http-client library, specifically the
>> >> http-sendrecv function. I’m not 100% sure, but I’d guess that the
>> >> equivalent Racket code for your curl command would look something like
>> >> this.
>> >>
>> >> (require net/http-client
>> >> net/uri-codec)
>> >>
>> >> (http-sendrecv
>> >> "192.168.1.20" "/api/<username>/lights/8/state"
>> >> #:method 'PUT
>> >> #:data
>> >> (alist->form-urlencoded
>> >> '((on #t)
>> >> (bri 170)
>> >> (ct 500)))
>> >> #:headers
>> >> '("Content-Type: application/x-www-form-urlencoded"))
>> >>
>> >> See
>> >> http://docs.racket-lang.org/net/http-client.html#%28def._%28%28lib._net%2Fhttp-client..rkt%29._http-sendrecv%29%29
>> >>
>> >>> On Jun 17, 2015, at 7:57 AM, Bruce wrote:
>> >>>
>> >>> Hello,
>> >>>
>> >>> I'm new to programming, so patience is appreciated. I'm writing a simple
>> >>> program in Racket to control Phillip Hue Bulbs in a performance
>> >>> environment. Phillips has a simple RESTful API and I'm looking for the
>> >>> Racket commands or library to send the commands. Previously I've used
>> >>> AppleScript to launch bash curl commands, like:
>> >>>
>> >>> curl -x PUT -d '{"on":true,"bri":170,"ct":500}'
>> >>> http://192.168.1.20/api/<username>/lights/8/state
>> >>>
>> >>> Is there an easy way to send a similar message in Racket?
>> >>>
>> >>> Thank you,
>> >>> Bruce
>> >
>> > --
>> > You received this message because you are subscribed to the Google Groups
>> > "Racket Users" group.
>> > To unsubscribe from this group and stop receiving emails from it, send an
>> > email to racket-users+unsubscr...@googlegroups.com.
>> > For more options, visit https://groups.google.com/d/optout.
>
> --
> You received this message because you are subscribed to the Google Groups
> "Racket Users" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to racket-users+unsubscr...@googlegroups.com.
> For more options, visit https://groups.google.com/d/optout.
--
Jay McCarthy
http://jeapostrophe.github.io
"Wherefore, be not weary in well-doing,
for ye are laying the foundation of a great work.
And out of small things proceedeth that which is great."
- D&C 64:33
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
