mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 01:41:37 +03:00
28 lines
798 B
Plaintext
28 lines
798 B
Plaintext
:: :acme domain validation request handler
|
|
::
|
|
|= [[now=@da eny=@ bek=beak] $~ $~]
|
|
|= [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
|
|
.^((unit @t) %gx /=acme/(scot %da now)/domain-validation/[challenge]/noun)
|
|
?~ response
|
|
[[%404 ~] ~]
|
|
:- [200 ['content-type' 'text/html']~]
|
|
(some (as-octs:mimes:html u.response))
|