Writing useful bart info into webapp!!
This commit is contained in:
parent
3c0f460993
commit
5f219f00f5
@ -76,8 +76,12 @@
|
|||||||
^- (quip card:agent:gall _this)
|
^- (quip card:agent:gall _this)
|
||||||
~& "on-watch path: {<path>}"
|
~& "on-watch path: {<path>}"
|
||||||
?: ?=([%primary *] path)
|
?: ?=([%primary *] path)
|
||||||
:_ this
|
=/ initial-resp [%give %fact ~ %json !>((bogus-json:cc))]
|
||||||
[%give %fact ~ %json !>((bogus-json:cc))]~
|
=/ out *outbound-config:iris
|
||||||
|
=/ req request-bart-stations:cc
|
||||||
|
::=/ bart-station-request [%pass /[(scot %da now.bol)] %arvo %i %request req out]
|
||||||
|
=/ bart-station-request [%pass /bartstationrequest %arvo %i %request req out]
|
||||||
|
[[initial-resp bart-station-request ~] this]
|
||||||
?: ?=([%http-response *] path)
|
?: ?=([%http-response *] path)
|
||||||
`this
|
`this
|
||||||
?. =(/ path)
|
?. =(/ path)
|
||||||
@ -89,6 +93,13 @@
|
|||||||
++ on-arvo
|
++ on-arvo
|
||||||
|= [=wire =sign-arvo]
|
|= [=wire =sign-arvo]
|
||||||
^- (quip card _this)
|
^- (quip card _this)
|
||||||
|
?: ?=(%http-response +<.sign-arvo)
|
||||||
|
~& "WIRE: {<wire>}"
|
||||||
|
::~& "SIGN ARVO: {<sign-arvo>}"
|
||||||
|
=/ value %- pairs:enjs:format
|
||||||
|
:~ fulltext+s+(crip "{<sign-arvo>}")
|
||||||
|
==
|
||||||
|
[[%give %fact ~[/primary] %json !>(value)]~ this]
|
||||||
?. ?=(%bound +<.sign-arvo)
|
?. ?=(%bound +<.sign-arvo)
|
||||||
(on-arvo:def wire sign-arvo)
|
(on-arvo:def wire sign-arvo)
|
||||||
[~ this]
|
[~ this]
|
||||||
|
Loading…
Reference in New Issue
Block a user