From bf6fc033b757ae4b572ab6ff7fff332236525791 Mon Sep 17 00:00:00 2001
From: Linus Nordberg <linus@nordberg.se>
Date: Mon, 5 May 2014 00:54:45 +0200
Subject: Add support for get-sth.

---
 src/v1.erl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'src/v1.erl')

diff --git a/src/v1.erl b/src/v1.erl
index 8948d1d..73f7c28 100644
--- a/src/v1.erl
+++ b/src/v1.erl
@@ -28,7 +28,17 @@ add_pre_chain(SessionID, _Env, _Input) ->
     niy(SessionID).
 
 get_sth(SessionID, _Env, _Input) ->
-    niy(SessionID).
+    #sth{
+       treesize = Treesize,
+       timestamp = Timestamp,
+       roothash = Roothash,
+       signature = Signature} = plop:sth(),
+    R = [{treesize, Treesize},
+         {timestamp, Timestamp},
+         {sha256_root_hash, base64:encode(Roothash)},
+         {tree_head_signature, base64:encode(Signature)}],
+    mod_esi:deliver(SessionID, binary_to_list(jiffy:encode({R}))).
+
 get_sth_consistency(SessionID, _Env, _Input) ->
     niy(SessionID).
 get_proof_by_hash(SessionID, _Env, _Input) ->
-- 
cgit v1.1