urbit/base/app/bit/core.hook

261 lines
7.7 KiB
Plaintext
Raw Normal View History

2015-05-07 00:00:06 +03:00
::
::
::::
::
/? 314
/- *talk
/+ talk, sole, http
!:
2015-05-08 00:33:18 +03:00
:::: sivtyv-barnel
2015-05-07 00:00:06 +03:00
:: be sure to have oauth2-code mark
|%
++ axle cred
++ cred
$: client-id=(unit ,@t) app-secret=(unit ,@t)
oauth-code=(unit ,@t) auth-token=(unit ,@t)
refr-token=(unit ,@t) contacts=(map ,@t ,@t)
2015-05-08 00:33:18 +03:00
outgoing=(map ship ,@t) incoming=(map ,@t ship)
2015-05-07 00:00:06 +03:00
==
++ move ,[bone (mold note gift)]
++ hapt ,[ship path]
++ note
$% [%g %mess hapt ship cage]
[%e %them (unit hiss)]
==
++ gift
$% [%nice ~]
[%mean ares]
==
2015-05-07 00:00:06 +03:00
++ sign
$% $: %e
$% [%thou p=httr]
== ==
[%g %nice ~]
==
--
::
!:
|_ [hid=hide vat=axle]
2015-05-08 00:33:18 +03:00
++ prep ,_`.
++ redirect-uri (crip (weld hostname "/~~/home/pub/bit/fab"))
2015-05-08 01:23:22 +03:00
++ hostname "http://104.236.139.191:{?+((clan our.hid) !! %czar "8444", %duke "8443")}"::{+:<our.hid>}.urbit.org
++ auth-url
%+ weld "https://www.coinbase.com/oauth/authorize"
%- tail:earn :~
'response_type'^%code
'client_id'^(need client-id.vat)
'redirect_uri'^redirect-uri
'scope'^'user balance buy sell send transactions addresses'
'meta[send_limit_amount]'^'1'
'meta[send_limit_curency]'^'BTC'
'meta[send_limit_period]'^'day'
==
++ api-call
|= [ost=bone pour-path=wire end-point=path req=$|(%get [%post p=json])]
^- move
%^ httpreq ost pour-path
[/com/coinbase/api v1/end-point req ~ ['access_token' (need auth-token.vat)]~]
::
++ callback-uri (weld hostname "/~/to/{(trip app.hid)}/json.json?anon&wire=/")
2015-05-07 00:00:06 +03:00
++ poke-auth
|= [ost=bone you=ship arg=[secr=cord id=cord]]
=: app-secret.vat [~ secr.arg]
client-id.vat [~ id.arg]
==
=+ prl=`purl`(need (epur (crip auth-url)))
:_ +>.$
:+ %- publish
:^ ost you ?+((clan our.hid) !! %czar %court, %duke %porch)
2015-05-07 09:49:30 +03:00
:~ [%lin & 'secret and client id saved successfully']
[%lin & 'please click on the url below to continue authentication']
[%url prl]
==
2015-05-07 00:00:06 +03:00
[ost %give %nice ~]
~
::
++ send-message :: inter-app interface
|= [ost=bone his=ship mez=$%([%bit-addr-request ~] [%bit-addr-made @t])]
^- move
=+ vax=(spec !>(mez))
[ost %pass /message `note`[%g %mess [his /[app.hid]] our.hid `cage`[-.mez (slot 3 vax)]]]
::
++ poke--send :: send to ship
|= [ost=bone @ to=ship amount=@t]
=. outgoing.vat (~(put by outgoing.vat) to amount)
:_ +>.$
:_ [ost %give %nice ~]~
(send-message ost to %bit-addr-request ~)
++ poke-bit-addr-request :: give your address to receive bit
|= [ost=bone his=ship req=~] :: gen new address with callback
:_ +>.$
:_ [ost %give %nice ~]~
%^ api-call ost /addr-request/(scot %p his)
:+ /addresses %post
%+ joba %address
%- jobe :~
label/(jape "address for {<his>}")
'callback_url'^(jape callback-uri)
==
::
++ pour-addr-request :: send new address to sender
|= [ost=bone pax=path rez=json]
2015-05-08 00:33:18 +03:00
=+ adr=(need ((ot address/so ~):jo rez))
=+ his=(slav %p +<.pax)
~! incoming.vat
=. incoming.vat
(~(put by incoming.vat) adr his)
:_ +>.$
:_ ~
2015-05-08 00:33:18 +03:00
(send-message ost his %bit-addr-made adr)
::
++ poke-bit-addr-made :: receive address for sending
|= [ost=bone his=ship addr=@t]
:_ +>.$
:_ [ost %give %nice ~]~
=+ amount=(~(got by outgoing.vat) his) :: get amount to send
=+ info=[to/s/addr amount/s/amount ~]
=+ jon=(joba %transaction (jobe info))
(api-call ost /send /transactions/'send_money' %post jon)
::
2015-05-07 00:00:06 +03:00
++ poke-oauth2-code
|= [ost=bone you=ship code=cord]
~& 'oauth poked'
=. oauth-code.vat
[~ code]
2015-05-07 00:00:06 +03:00
?< |(?=(~ client-id.vat) ?=(~ oauth-code.vat))
=+ ^= queries
:~ ['grant_type' 'authorization_code']
['code' (need oauth-code.vat)]
['redirect_uri' redirect-uri]
2015-05-07 00:00:06 +03:00
['client_id' (need client-id.vat)]
['client_secret' (need app-secret.vat)]
==
:_ +>.$
:+ [ost %give %nice ~]
2015-05-07 09:49:30 +03:00
(httpreq ost /auth-token /com/coinbase /oauth/token [%post ~] ~ queries)
2015-05-07 00:00:06 +03:00
~
++ poke-buy
|= [ost=bone you=ship arg=[amount=@t currency=@t]]
~& 'buy boked'
?< =(~ amount.arg)
=+ query=['access_token' (need auth-token.vat)]~
=+ ^= pst
?: =(~ currency.arg)
(jobe qty/s/amount.arg ~)
(jobe qty/s/amount.arg currency/s/currency.arg ~)
:_ +>.$
:+ [ost %give %nice ~]
2015-05-07 09:49:30 +03:00
(httpreq ost /buy /com/coinbase/api /v1/buys [%post pst] ~ query)
2015-05-07 00:00:06 +03:00
~
::
2015-05-07 09:49:30 +03:00
++ poke-list
2015-05-07 00:00:06 +03:00
|= [ost=bone you=ship arg=~]
=+ query=['access_token' (need auth-token.vat)]~
:_ +>.$
:+ [ost %give %nice ~]
2015-05-07 09:49:30 +03:00
(httpreq ost /list /com/coinbase/api /v1/accounts %get ~ query)
2015-05-07 00:00:06 +03:00
~
::
++ poke-sell
|= [ost=bone you=ship arg=[amount=@t currency=@t]]
?< =(amount.arg ~)
~& 'haven\'t crashed'
=+ query=['access_token' (need auth-token.vat)]~
=+ ^= pst
?: =(~ currency.arg)
(jobe qty/s/amount.arg currency/s/currency.arg ~)
(jobe qty/s/amount.arg ~)
:_ +>.$
:+ [ost %give %nice ~]~
2015-05-07 09:49:30 +03:00
(httpreq ost /buy /com/coinbase/api /v1/sells [%post pst] ~ query)
2015-05-07 00:00:06 +03:00
~
::
++ poke-send-raw
2015-05-07 00:00:06 +03:00
|= $: ost=bone you=ship
arg=[to=@t amone=(unit ,@t) cur=(unit ,@t) amtwo=(unit ,@t) nt=(unit ,@t)]
==
=+ adr=?~((~(get by contacts.vat) to.arg) to ~&('contact-exists' (~(get by contacts.vat) to.arg)))
=+ query=['access_token' (need auth-token.vat)]~
=+ ^= info
?~ cur.arg
[to/s/to.arg amount/s/(need amone.arg) ~]
?~ nt.arg
[to/s/to.arg 'amount_currency_iso'^s/(need cur.arg) 'amount_string'^s/(need amtwo.arg) ~]
[to/s/to.arg amount/s/(need amtwo.arg) 'amount_string'^s/(need amtwo.arg) ~]
=+ ^= pst
(jobe transaction/(jobe info) ~)
:_ +>.$
:+ [ost %give %nice ~]
2015-05-07 09:49:30 +03:00
(httpreq ost /send /com/coinbase/api /v1/transactions/'send_money' [%post pst] ~ query)
2015-05-07 00:00:06 +03:00
~
2015-05-07 09:49:30 +03:00
::
++ poke-json
|= [ost=bone you=ship arg=json]
~& arg
:_ +>.$
=+ [adr amo]=(need %.(arg (ot address/sa amount/no ~):jo))
2015-05-08 00:33:18 +03:00
=+ frm=(~(get by incoming.vat) adr)
2015-05-07 09:49:30 +03:00
:_ [ost %give %nice ~]~
2015-05-08 00:33:18 +03:00
~! frm
(publish ost our.hid %porch [%lin & (crip "just received {(trip amo)} BTC from {<frm>}")]~)
::(api-call ost /get-id /transactions/[transaction-id] %get)
++ pour-get-id :: display transaction info
|= [ost=bone pax=path rez=json]
:_ +>.$
:_ ~
!!
::
2015-05-07 00:00:06 +03:00
++ pour
|= [ost=bone pax=path res=sign]
?+ -.pax !!
%auth-token
?> ?=(%e -.res)
~| 'must receive a 200'^oauth-code.vat
~| res
2015-05-07 00:00:06 +03:00
?> =(200 p.p.res)
=+ resp=(rash q:(need r.p.res) apex:poja)
=+ parsed=(need ((ot 'refresh_token'^so 'access_token'^so ~):jo resp))
~& parsed
=: auth-token.vat [~ +.parsed]
refr-token.vat [~ -.parsed]
==
~& [auth-token.vat refr-token.vat]
:_ +>.$ [ost %give %nice ~]~
%message `+>.$
?(%addr-request %get-id)
?> ?=(%e -.res)
~| 'must receive a 200'
~| res
?> =(200 p.p.res)
%- ?-(-.pax %addr-request pour-addr-request, %get-id pour-get-id)
[ost pax (rash q:(need r.p.res) apex:poja)]
2015-05-07 00:00:06 +03:00
%auth
:_ +>.$
[ost %give %nice ~]~
?(%get-id %send %buy %list %sell)
~& [`@tas`-.pax res]
2015-05-07 00:00:06 +03:00
:_ +>.$
[ost %give %nice ~]~
==
::
++ publish
2015-05-07 09:49:30 +03:00
|= [ost=bone you=ship dest=?(%porch %court) act=(list speech)]
^- move
2015-05-07 09:49:30 +03:00
=+ ^= spchz
%+ turn act
|= sp=speech
=+ ^= tail
:- ^- audience
:+ :- `partner`[%& our.hid dest]
2015-05-07 09:49:30 +03:00
^- (pair envelope delivery)
[`envelope`[& ~] %pending]
~
2015-05-07 00:00:06 +03:00
~
2015-05-07 09:49:30 +03:00
`statement`[lat.hid ~ sp]
^- thought
:- `@`(sham eny.hid tail)
tail
=+ cag=`cage`[%talk-command !>([%publish `(list thought)`spchz])]
2015-05-07 00:00:06 +03:00
[ost %pass /auth %g %mess [our.hid /talk] you cag]
--