From 7444e3bfd1aaaac9470d00cf47b0d97727d080e9 Mon Sep 17 00:00:00 2001
From: Jacob Vorreuter <jacob.vorreuter@gmail.com>
Date: Mon, 23 Jan 2012 17:28:20 -0800
Subject: [PATCH] add 'load' API resource

---
 src/logplex_api.erl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/src/logplex_api.erl b/src/logplex_api.erl
index 1edbb41d..8ab39524 100644
--- a/src/logplex_api.erl
+++ b/src/logplex_api.erl
@@ -87,6 +87,24 @@ handlers() ->
         {200, <<"OK">>}
     end},
 
+    {['POST', "/load$"], fun(Req, _Match) ->
+        authorize(Req),
+        Body = Req:recv_body(),
+        {struct, Modules} = mochijson2:decode(Body),
+        not is_list(Modules) andalso exit({expected_list}),
+
+        {RespCode, Json} = lists:foldl(fun(Module, {Code, Acc}) ->
+            Module1 = binary_to_atom(Module, latin1),
+            case c:l(Module1) of
+                {module, _} when Code == 200 -> {200, Acc};
+                {module, _} -> {Code, Acc};
+                {error, Reason} -> {400, [{Module, atom_to_binary(Reason, latin1)}|Acc]}
+            end
+        end, {200, []}, Modules),
+
+        {RespCode, iolist_to_binary(mochijson2:encode(Json))}
+    end},
+
     {['POST', "/channels$"], fun(Req, _Match) ->
         authorize(Req),
         Body = Req:recv_body(),