From d03d1f7bcdb62d68d577c3239033e92f43a583dd Mon Sep 17 00:00:00 2001 From: Guido Günther Date: Tue, 8 May 2018 15:42:38 +0200 Subject: Add version API used by Foreman 1.17 --- src/ldapsp_version.erl | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 src/ldapsp_version.erl (limited to 'src/ldapsp_version.erl') diff --git a/src/ldapsp_version.erl b/src/ldapsp_version.erl new file mode 100644 index 0000000..0d1e749 --- /dev/null +++ b/src/ldapsp_version.erl @@ -0,0 +1,52 @@ +%%------------------------------------------------------------------- +%% This file is part of ldapsp. +%% +%% Copyright (C) 2016 Guido Günther +%% +%% ldapsp is free software: you can redistribute it and/or modify +%% it under the terms of the GNU General Public License as published by +%% the Free Software Foundation, either version 3 of the License, or +%% (at your option) any later version. +%% +%% ldapsp is distributed in the hope that it will be useful, +%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +%% GNU General Public License for more details. +%% +%% You should have received a copy of the GNU General Public License +%% along with ldapsp. If not, see . +%%------------------------------------------------------------------- +-module(ldapsp_version). +-export([ + init/1, + routes/0, + to_html/2, + to_json/2, + content_types_provided/2 +]). + +-include_lib("webmachine/include/webmachine.hrl"). + +-spec init(list()) -> {ok, term()}. +init([]) -> + {ok, undefined}. + +%% @doc Return the routes this module should respond to. +routes() -> + [{["version"], ?MODULE, []}]. + +-spec to_json(wrq:reqdata(), term()) -> {iodata(), wrq:reqdata(), term()}. +to_json(ReqData, State) -> + [Ver | _] = [ V || {App, _, V} <- application:which_applications(), App == ldapsp], + Version = list_to_binary(Ver), + Resp = mochijson2:encode([{"version", Version}, + {"modules", [{"realm", Version}]}]), + {Resp, ReqData, State}. + +to_html(ReqData, State) -> + to_json(ReqData, State). + +content_types_provided(RD, Ctx) -> + {[{"application/json", to_json}, + {"text/html", to_html}], + RD, Ctx}. -- cgit v1.2.3