diff --git a/gen/hood/init-oauth1.hoon b/gen/hood/init-oauth1.hoon new file mode 100644 index 000000000..2abb8d601 --- /dev/null +++ b/gen/hood/init-oauth1.hoon @@ -0,0 +1,34 @@ +:: +:::: /hoon/init-oauth1/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 !!) +=. p.hot (scag 2 p.hot) :: ignore subdomain +%+ sole-lo + [%& %oauth-client "consumer key: "] +%+ sole-go (boss 256 (star prn)) +|= key/@t +%+ sole-lo + [%& %oauth-secret "consumer secret: "] +%+ sole-go (boss 256 (star prn)) +|= sec/@t +%+ sole-so %write-sec-atom :: XX typed pair +[hot (role key sec ~)] diff --git a/gen/hood/init-oauth2.hoon b/gen/hood/init-oauth2.hoon index 04e217c23..f0b8b412d 100644 --- a/gen/hood/init-oauth2.hoon +++ b/gen/hood/init-oauth2.hoon @@ -21,6 +21,7 @@ |= hot/host ?: ?=($| -.hot) ~|(%ips-unsupported !!) +=. p.hot (scag 2 p.hot) :: ignore subdomain %+ sole-lo [%& %oauth-client "client id: "] %+ sole-go (boss 256 (star prn))