2016-01-16 02:30:15 +03:00
|
|
|
|%
|
2016-01-20 00:55:51 +03:00
|
|
|
++ bowl-ish ,~
|
2016-01-16 02:30:15 +03:00
|
|
|
++ fass :: rewrite quay
|
|
|
|
|
|= a=quay
|
|
|
|
|
%+ turn a
|
|
|
|
|
|= [p=@t q=@t] ^+ +<
|
|
|
|
|
[(gsub '-' '_' p) q]
|
|
|
|
|
::
|
|
|
|
|
++ gsub :: replace chars
|
|
|
|
|
|= [a=@t b=@t t=@t]
|
|
|
|
|
^- @t
|
|
|
|
|
?~ t t
|
|
|
|
|
%+ add (lsh 3 1 $(t (rsh 3 1 t)))
|
|
|
|
|
=+ c=(mod t (bex 8))
|
|
|
|
|
?:(=(a c) b c)
|
2016-01-20 00:55:51 +03:00
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
::::
|
|
|
|
|
::
|
|
|
|
|
|%
|
|
|
|
|
:: ++ crypto :: XX in zuse
|
|
|
|
|
:: |= [our=@p now=@da]
|
|
|
|
|
:: =+ `mac=mace`p:;;(buck .^(a//(crip <our>)/buck/(crip <now>)/(crip <our>)))
|
|
|
|
|
:: ?> ?=([^ ~] mac) :: current, single life
|
|
|
|
|
:: (weur q.i.mac)
|
2016-01-16 02:30:15 +03:00
|
|
|
::
|
|
|
|
|
++ join |=([a=tape b=(list tank)] rose/[a ~ ~]^b)
|
2016-01-20 00:55:51 +03:00
|
|
|
++ endpoint |=(a=path [[& ~ `/com/googleapis/www] [~ a] ~])
|
|
|
|
|
++ toke-url (endpoint /oauth2/v4/token)
|
|
|
|
|
++ dbg-post `purl`[[| `6.000 `/localhost] `/testing /]
|
2016-01-16 02:30:15 +03:00
|
|
|
++ auth-url
|
|
|
|
|
|= [cid=@t sop=(list cord)] ^- purl
|
|
|
|
|
:+ [& ~ `/com/google/accounts] [~ /o/oauth2/v2/auth]
|
|
|
|
|
%- fass :~
|
|
|
|
|
client-id/cid
|
|
|
|
|
access-type/%offline
|
|
|
|
|
response-type/%code
|
|
|
|
|
=< scope/(crip ~(ram re (join " " (turn sop .))))
|
2016-01-20 00:55:51 +03:00
|
|
|
|=(a=cord leaf/(earn (endpoint /auth/[a])))
|
|
|
|
|
::
|
|
|
|
|
redirect-uri/redirect-uri
|
2016-01-16 02:30:15 +03:00
|
|
|
==
|
2016-01-20 00:55:51 +03:00
|
|
|
++ redirect-uri 'http://localhost:8443/~/ac/www.googleapis.com/auth'
|
|
|
|
|
++ user-state ,[ber=@t]
|
2016-01-16 02:30:15 +03:00
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
::::
|
|
|
|
|
::
|
2016-01-20 00:55:51 +03:00
|
|
|
=+ :- client-id='483346752999-oj6s0hrcrtc8c0sgahr5m8cijmopth0b.apps.googleusercontent.com'
|
|
|
|
|
client-secret=XX :: XX dynamic
|
|
|
|
|
::
|
|
|
|
|
|_ [bowl-ish user-state]
|
|
|
|
|
++ out
|
2016-01-16 02:30:15 +03:00
|
|
|
:: XX dynamic
|
|
|
|
|
|= a=hiss ^- (each hiss purl)
|
|
|
|
|
?~ ber [%| (auth-url client-id 'userinfo.email' 'plus.me' ~)]
|
|
|
|
|
[%& %_(a q.q (~(add ja q.q.a) %authorization (cat 3 'Bearer ' ber)))]
|
2016-01-20 00:55:51 +03:00
|
|
|
::
|
|
|
|
|
++ in
|
|
|
|
|
|= a=quay ^- (each hiss ,_!!)
|
|
|
|
|
=+ cod=~|(%no-code (~(got by (mo a)) %code))
|
|
|
|
|
=+ hed=(mo ~[content-type/~['application/x-www-form-urlencoded']])
|
|
|
|
|
=- [%& toke-url %post hed `(tact +:(tail:earn code/cod -))]
|
|
|
|
|
%- fass
|
|
|
|
|
:~ client-id/client-id
|
|
|
|
|
client-secret/client-secret
|
|
|
|
|
redirect-uri/redirect-uri
|
|
|
|
|
grant-type/'authorization_code'
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ bak !!
|
|
|
|
|
--
|
