If you're on linux, one dirty trick you could try is to start up a local
web server like netcat to just listen on the HTTP port and show you
the request that's happening:
nc -l -p 80
Then, point Curl and your Racket script to localhost and compare the
request sent by each.
bruc...@gmail.com writes:
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.
--
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.