Correct elevator URL

This commit is contained in:
ronreg-ribdev 2020-06-01 00:36:08 -07:00
parent ed15a2a5a7
commit 9f2550edc7

View File

@ -168,13 +168,14 @@
::
++ bart-api-elevator-status
^- request:http
=/ url (crip "{bart-api-url-base}/stn.aspx?cmd=stns&key={bart-api-key}&json=y")
=/ url (crip "{bart-api-url-base}/bsa.aspx?cmd=elev&key={bart-api-key}&json=y")
=/ headers [['Accept' 'application/json']]~
[%'GET' url headers *(unit octs)]
++ parse-elevator-status-response
|= response=client-response:iris
^- json
=, format
~& response
(pairs:enjs [[%yolo %b %.y] ~])
::
++ poke-handle-http-request