fixed github auth

This commit is contained in:
Ted Blackman 2017-10-20 13:13:10 -07:00
parent aae12cb0ab
commit 3efebb02dc
4 changed files with 7 additions and 7 deletions

View File

@ -13,13 +13,13 @@
{arg/$@($~ {dom/path $~})} {arg/$@($~ {dom/path $~})}
$~ $~
== ==
^- (sole-result {$write-sec-atom p/host q/@}) ^- (sole-result {$write-sec-atom p/host:eyre q/@})
=- ?~ arg - =- ?~ arg -
(fun.q.q [%& dom.arg]) (fun.q.q [%& dom.arg])
%+ sole-lo %+ sole-lo
[%& %oauth-hostname "api hostname: https://"] [%& %oauth-hostname "api hostname: https://"]
%+ sole-go thos:urlp %+ sole-go thos:de-purl:html
|= hot/host |= hot/host:eyre
?: ?=($| -.hot) ?: ?=($| -.hot)
~|(%ips-unsupported !!) ~|(%ips-unsupported !!)
%+ sole-lo %+ sole-lo
@ -31,4 +31,4 @@
%+ sole-go (boss 256 (star prn)) %+ sole-go (boss 256 (star prn))
|= pas/@t |= pas/@t
%+ sole-so %write-sec-atom :: XX typed pair %+ sole-so %write-sec-atom :: XX typed pair
[hot (crip (sifo (rap 3 usr ':' pas ~)))] [hot (crip (en-base64:mimes:html (rap 3 usr ':' pas ~)))]

View File

@ -22,7 +22,7 @@
:: ::
++ add-auth-header ++ add-auth-header
|= a/hiss ^- hiss |= a/hiss ^- hiss
~& auth+(earn p.a) ~& auth+(en-purl:html p.a)
%_(a q.q (~(add ja q.q.a) %authorization header:auth)) %_(a q.q (~(add ja q.q.a) %authorization header:auth))
:: ::
++ standard ++ standard

View File

@ -12,7 +12,7 @@
$% {$request-token oauth-token/@t token-secret/@t} :: intermediate $% {$request-token oauth-token/@t token-secret/@t} :: intermediate
{$access-token oauth-token/@t token-secret/@t} :: full {$access-token oauth-token/@t token-secret/@t} :: full
== ==
++ quay-enc (list tape):quay :: partially rendered query string ++ quay-enc (list tape) :: partially rendered query string
-- --
:: ::
:::: ::::

View File

@ -4,7 +4,7 @@
:: ::
/+ basic-auth /+ basic-auth
:: ::
|_ {bal/(bale keys:basic-auth) $~} |_ {bal/(bale:eyre keys:basic-auth) $~}
++ aut ~(standard basic-auth bal ~) ++ aut ~(standard basic-auth bal ~)
++ filter-request out-adding-header:aut ++ filter-request out-adding-header:aut
-- --