From 39cc6c19e79c19000d5e2174aa3b5f5c2ed2545b Mon Sep 17 00:00:00 2001
From: Linus Nordberg <linus@nordu.net>
Date: Wed, 15 Mar 2017 17:16:06 +0100
Subject: Add compat functions for timing functionality missing in R17.

---
 statusserver/src/statusserver.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'statusserver/src')

diff --git a/statusserver/src/statusserver.erl b/statusserver/src/statusserver.erl
index e4f38d5..81fcd7a 100644
--- a/statusserver/src/statusserver.erl
+++ b/statusserver/src/statusserver.erl
@@ -23,7 +23,7 @@ request(post, ?APPURL_PLOP_STATUS, Service, Input) ->
     end,
     success({[{result, <<"ok">>}]});
 request(get, "", "status", Input) ->
-    Now = erlang:monotonic_time(millisecond),
+    Now = plop_compat:monotonic_time(millisecond),
     Variables = [{struct, [
                            {service, list_to_binary(Service)},
                            {source, Source},
@@ -65,7 +65,7 @@ get_status() ->
 
 set_status(Service, Source, Target, Variable, Status) ->
     lager:info("status: ~p ~p ~p ~p ~p", [Service, Source, Target, Variable, Status]),
-    Timestamp = erlang:monotonic_time(millisecond),
+    Timestamp = plop_compat:monotonic_time(millisecond),
     true = ets:insert(?STATUSDB_TABLE,
                       {{Service, Source, Target, Variable}, Status, Timestamp}),
     ok.
-- 
cgit v1.1