urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 11:08:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

changed to :bit+send 0cADDRESS 'BTC-amount'

Browse Source
This commit is contained in:
Anton Dyudin 2015-05-20 12:17:52 -07:00
parent 31527132c6
commit 1515de98c3
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
base/ape/bit/core.hook
View File

@ -83,7 +83,15 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
^- move ^- move
[ost %send way [his app.hid] %poke mez] [ost %send way [his app.hid] %poke mez]
:: ::
++ poke-bit-send :: send to ship ++ poke-bit-send :: send to address
|= [[ost=bone @] addr=@uc amount=@t]
:_ +>.$
:_ ~
=+ info=[to/s/(rsh 3 2 (scot %uc addr)) amount/s/amount ~]
=+ jon=(joba %transaction (jobe info))
(api-call ost /send /transactions/'send_money' %post jon)
::
++ poke-bit-ship-send :: send to ship
|= [[ost=bone @] to=ship amount=@t] |= [[ost=bone @] to=ship amount=@t]
=. outgoing.vat (~(put by outgoing.vat) to amount) =. outgoing.vat (~(put by outgoing.vat) to amount)
:_ +>.$ :_ +>.$

2
base/cat/bit/send/gate.hook
View File

@ -5,7 +5,7 @@
:: ::
::::::: :::::::
!: !:
|= [^ [to=ship amo=@t ~] ~] |= [^ [to=@uc amo=@t ~] ~]
[%bit-send to amo] [%bit-send to amo]