Require that storage servers sign stored entriesstorage-signature

1 files changed, 7 insertions, 2 deletions

diff --git a/src/signing.erl b/src/signing.erl
index 86ccb88..5bcd3eb 100644
--- a/src/signing.erl
+++ b/src/signing.erl
@@ -15,8 +15,13 @@ request(post, ?APPURL_PLOP_SIGNING, "sct", Input) ->
             html("sendentry: bad input:", E);
         {struct, PropList} ->
             Data = base64:decode(proplists:get_value(<<"data">>, PropList)),
-
-            Result = sign:sign_sct(Data),
+            Signatures = case proplists:get_value(<<"signatures">>, PropList) of
+                             undefined ->
+                                 [];
+                             Sigs ->
+                                 Sigs
+                         end,
+            Result = sign:sign_sct(Data, Signatures),
             success({[{result, base64:encode(Result)}]})
     end;
 request(post, ?APPURL_PLOP_SIGNING, "sth", Input) ->