zotonic_mod_ssl_letsencrypt

%% @author Marc Worrell <marc@worrell.nl>
%% @copyright 2016 Marc Worrell
%% @doc Handle the challenge requested by Letsencrypt

%% Copyright 2016 Marc Worrell
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%%     http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.

-module(controller_letsencrypt_challenge).
-author("Marc Worrell <marc@worrell.nl>").

-export([
    service_available/1,
    allowed_methods/1,
    content_types_provided/1,
    process/4
]).

-include_lib("kernel/include/logger.hrl").


service_available(Context) ->
    Context1 = z_context:set_noindex_header(Context),
    Context2 = z_context:set_nocache_headers(Context1),
    {true, Context2}.

allowed_methods(Context) ->
    {[ <<"GET">> ], Context}.

content_types_provided(Context) ->
    {[ {<<"text">>, <<"plain">>, []} ], Context}.

process(_Method, _AcceptedCT, _ProvidedCT, Context0) ->
    Context = z_context:set_noindex_header(z_context:set_nocache_headers(Context0)),
    {ok, Challenges} = mod_ssl_letsencrypt:get_challenge(Context),
    Token = z_context:get_q(<<"token">>, Context),
    case maps:get(Token, Challenges, undefined) of
        undefined ->
            ?LOG_WARNING(#{
                text => <<"Letsencrypt unknown token for host">>,
                in => zotonic_mod_ssl_letsencrypt,
                result => error,
                reason => 404,
                hostname => m_req:get(host, Context)
            }),
            {{halt, 404}, Context};
        Thumbprint ->
            ?LOG_INFO(#{
                text => <<"Letsencrypt token matched for host">>,
                in => zotonic_mod_ssl_letsencrypt,
                result => ok,
                hostname => m_req:get(host, Context)
            }),
            {Thumbprint, Context}
    end.