aboutsummaryrefslogtreecommitdiffstats
path: root/client
diff options
context:
space:
mode:
Diffstat (limited to 'client')
-rw-r--r--client/client.erl31
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.