1 files changed, 31 insertions, 0 deletions
diff --git a/client/client.erl b/client/client.erl
new file mode 100644
index 0000000..9781b74
--- /dev/null
+++ b/client/client.erl
@@ -0,0 +1,31 @@
+-module(client).
+-export([register/3, login/3, list/0, logged_in/1]).
+
+register(Server, Name, Password) ->
+    rpc:call(Server, client, register, [self(), {Name, Password}]),
+    receive
+	{_, ok, Msg} ->
+	    Msg;
+	{_, error, Msg} ->
+	    Msg
+    end.
+
+login(Server, Name, Password) ->
+    rpc:call(Server, client, login, [self(), {Name, Password}]),
+    receive
+	{_, ok, {ok, {logged_in, Client}}} ->
+	    register(cli, spawn(client, logged_in, [Client]));
+	{_, error, Msg} ->
+	    Msg
+    end.
+
+list() ->
+    cli ! {list}.
+
+logged_in(Client) ->
+    receive
+	{list} ->
+	    Client ! {list};
+	_ ->
+	    logged_in(Client)
+    end.