summaryrefslogtreecommitdiff
path: root/mess_server.erl
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-24 16:05:34 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-10-24 16:05:34 +0200
commit4646c9a35619408bc23852e3bc9fd1067d94f236 (patch)
treeaf237a534712cb93393a6bb49ddffd3d97d717a7 /mess_server.erl
parent2a392910b0812122713229306b4e91f9bfd696fb (diff)
Whitespace
Diffstat (limited to 'mess_server.erl')
-rw-r--r--mess_server.erl18
1 files changed, 10 insertions, 8 deletions
diff --git a/mess_server.erl b/mess_server.erl
index 3a25a98..98afb52 100644
--- a/mess_server.erl
+++ b/mess_server.erl
@@ -1,7 +1,9 @@
%%% This is the server process of the messenger service
-module(mess_server).
+
-export([server_start/0, server/0]).
+
-include("mess_interface.hrl").
server() ->
@@ -12,13 +14,13 @@ server() ->
server(User_List) ->
io:format("User list = ~p~n", [User_List]),
receive
- #logon{client_pid=From, username=Name} ->
+ #logon{client_pid = From, username = Name} ->
New_User_List = server_logon(From, Name, User_List),
server(New_User_List);
{'EXIT', From, _} ->
New_User_List = server_logoff(From, User_List),
server(New_User_List);
- #message{client_pid=From, to_name=ToName, message=Message} ->
+ #message{client_pid = From, to_name = ToName, message = Message} ->
server_transfer(From, ToName, Message, User_List),
server(User_List)
end.
@@ -32,10 +34,10 @@ server_logon(From, Name, User_List) ->
%% check if logged on anyone else
case lists:keymember(Name, 2, User_List) of
true ->
- From ! #abort_client{message=user_exists_at_other_node},
+ From ! #abort_client{message = user_exists_at_other_node},
User_List;
false ->
- From ! #server_reply{message=logged_on},
+ From ! #server_reply{message = logged_on},
link(From),
[{From, Name} | User_List] % add user to the list
end.
@@ -49,7 +51,7 @@ server_transfer(From, To, Message, User_List) ->
%% check that the user is logged on and who he is
case lists:keysearch(From, 1, User_List) of
false ->
- From ! #abort_client{message=you_are_not_logged_on};
+ From ! #abort_client{message = you_are_not_logged_on};
{value, {_, Name}} ->
server_transfer(From, Name, To, Message, User_List)
end.
@@ -58,8 +60,8 @@ server_transfer(From, To, Message, User_List) ->
server_transfer(From, Name, To, Message, User_List) ->
case lists:keysearch(To, 2, User_List) of
false ->
- From ! #server_reply{message=receiver_not_found};
+ From ! #server_reply{message = receiver_not_found};
{value, {ToPid, To}} ->
- ToPid ! #message_from{from_name=Name, message=Message},
- From ! #server_reply{message=sent}
+ ToPid ! #message_from{from_name = Name, message = Message},
+ From ! #server_reply{message = sent}
end.