2019-07-10 23:00:39 +03:00
|
|
|
:: :acme domain validation request handler
|
|
|
|
|
::
|
2020-11-25 22:39:13 +03:00
|
|
|
|= [[now=@da eny=@ bek=beak] ~ ~]
|
2019-07-10 23:00:39 +03:00
|
|
|
|= [authorized=? =request:http]
|
|
|
|
|
^- simple-payload:http
|
|
|
|
|
=/ url=(unit (pair pork:eyre quay:eyre))
|
|
|
|
|
%+ rush url.request
|
|
|
|
|
;~(plug ;~(pose apat:de-purl:html (easy *pork:eyre)) yque:de-purl:html)
|
|
|
|
|
::
|
|
|
|
|
:: url doesn't match expected binding from :acme
|
|
|
|
|
::
|
|
|
|
|
?. ?=(^ url)
|
|
|
|
|
~| [%invalid-url url.request] !!
|
|
|
|
|
?. ?=([%'.well-known' %acme-challenge *] q.p.u.url)
|
|
|
|
|
~| [%unknown-url url.request] !!
|
|
|
|
|
::
|
|
|
|
|
:: 404 if token missing from url or not in app
|
|
|
|
|
::
|
|
|
|
|
?~ t.t.q.p.u.url
|
|
|
|
|
[[%404 ~] ~]
|
|
|
|
|
=/ challenge=@t i.t.t.q.p.u.url
|
|
|
|
|
=/ response
|
2020-05-19 23:53:55 +03:00
|
|
|
.^ (unit @t)
|
|
|
|
|
%gx
|
|
|
|
|
(scot %p p.bek)
|
|
|
|
|
%acme
|
|
|
|
|
(scot %da now)
|
|
|
|
|
/domain-validation/[challenge]/noun
|
|
|
|
|
==
|
2019-07-10 23:00:39 +03:00
|
|
|
?~ response
|
|
|
|
|
[[%404 ~] ~]
|
|
|
|
|
:- [200 ['content-type' 'text/html']~]
|
|
|
|
|
(some (as-octs:mimes:html u.response))
|
