mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 04:11:49 +03:00
34 lines
668 B
Plaintext
34 lines
668 B
Plaintext
|
::
|
||
|
|
:::: /hoon/init-oauth2/hood/gen
|
||
|
|
::
|
||
|
|
/? 314
|
||
|
|
/- sole
|
||
|
|
::
|
||
|
|
::::
|
||
|
|
!:
|
||
|
|
[sole .]
|
||
|
|
:- %ask
|
||
|
|
|= $: [now=@da eny=@uvI bec=beak]
|
||
|
|
[arg=$|(~ [dom=path ~])]
|
||
|
|
~
|
||
|
|
==
|
||
|
|
^- (sole-result ,[%write-sec-atom p=host q=@])
|
||
|
|
=- ?~ arg -
|
||
|
|
(fun.q.q [%& dom.arg])
|
||
|
|
%+ sole-lo
|
||
|
|
[%& %oauth-hostname "api hostname: https://"]
|
||
|
|
%+ sole-go thos:urlp
|
||
|
|
|= hot=host
|
||
|
|
?: ?=(%| -.hot)
|
||
|
|
~|(%ips-unsupported !!)
|
||
|
|
%+ sole-lo
|
||
|
|
[%& %oauth-client "client id: "]
|
||
|
|
%+ sole-go (boss 256 (star prn))
|
||
|
|
|= cid=@t
|
||
|
|
%+ sole-lo
|
||
|
|
[%& %oauth-secret "client secret: "]
|
||
|
|
%+ sole-go (boss 256 (star prn))
|
||
|
|
|= cis=@t
|
||
|
|
%+ sole-so %write-sec-atom :: XX typed pair
|
||
|
|
[hot (role cid cis ~)]
|