Correct elevator URL
This commit is contained in:
parent
ed15a2a5a7
commit
9f2550edc7
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user