mirror of
https://github.com/urbit/shrub.git
synced 2024-12-01 14:42:02 +03:00
32 lines
783 B
Plaintext
32 lines
783 B
Plaintext
:: API: input auth2 client_secret_*.json for .googleapis.com
|
|
::
|
|
:::: /hoon/google/init-oauth2/hood/gen
|
|
::
|
|
/? 314
|
|
/- sole
|
|
/+ generators
|
|
::
|
|
::::
|
|
::
|
|
=, generators
|
|
=, format
|
|
:- %ask
|
|
|= $: [now=@da eny=@uvJ bec=beak]
|
|
[arg=$@(~ [jon=json ~])]
|
|
~
|
|
==
|
|
^- (sole-result:sole [%write-sec-atom p=host:eyre q=@])
|
|
%+ print leaf+"Accepting credentials for https://*.googleapis.com"
|
|
=+ hot=[%& /com/googleapis]
|
|
=- ?~ arg -
|
|
(fun.q.q jon.arg)
|
|
%+ prompt
|
|
[%& %oauth-json "json credentials: "]
|
|
%+ parse apex:de:json:html
|
|
|= jon=json
|
|
=+ ~| bad-json+jon
|
|
=- `[cid=@t cis=@t]`(need (rep jon))
|
|
rep=(ot web+(ot 'client_id'^so 'client_secret'^so ~) ~):dejs-soft:format
|
|
%+ produce %write-sec-atom :: XX typed pair
|
|
[hot (of-wain:format cid cis ~)]
|