From 8ce78ba045474b606267e351e945ef6be1b969c0 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Fri, 15 Oct 2010 10:51:00 +0200
Subject: moved register and login form server/client to server/dispatcher

---
 server/client.erl     | 11 +----------
 server/dispatcher.erl | 12 +++++++++++-
 2 files changed, 12 insertions(+), 11 deletions(-)

(limited to 'server')

diff --git a/server/client.erl b/server/client.erl
index c5beda7..3f9ece2 100644
--- a/server/client.erl
+++ b/server/client.erl
@@ -1,5 +1,5 @@
 -module(client).
--export([start/2, loop/2, register/2, login/2]).
+-export([start/2, loop/2]).
 
 start(Node, User) ->
     %% start linked processes on client and server to get noticed if
@@ -68,12 +68,3 @@ loop(Client, User) ->
 	    Client ! {error, {unknown_command, Cmd}}
     end,
     loop(Client, User).
-
-register(Client, {Name, Password}) ->
-    %% forward the register messages to the dispatcher (if user is not
-    %% logged in)
-    dis ! {Client, {register, {Name, Password}}}.
-
-login(Client, {Node, Name, Password}) ->
-    %% forward the login messages to the dispatcher
-    dis ! {Client, {login, {Node, Name, Password}}}.
diff --git a/server/dispatcher.erl b/server/dispatcher.erl
index 27c2d4c..b3db9bb 100644
--- a/server/dispatcher.erl
+++ b/server/dispatcher.erl
@@ -1,5 +1,5 @@
 -module(dispatcher).
--export([start/0, handle/2]).
+-export([start/0, handle/2, register/2, login/2]).
 
 checkUserExists([_|_]) ->
     %% helper function to check if given array contains at least one element
@@ -74,3 +74,13 @@ handle({'EXIT', From, _}, State) ->
 handle(Cmd, State) ->
     %% standard command, to find invalid commands and emit an error
     {{error, {unknown_command, Cmd}}, State}.
+
+register(Client, {Name, Password}) ->
+    %% forward the register messages to the dispatcher (called form
+    %% the client)
+    dis ! {Client, {register, {Name, Password}}}.
+
+login(Client, {Node, Name, Password}) ->
+    %% forward the login messages to the dispatcher (called form the
+    %% client)
+    dis ! {Client, {login, {Node, Name, Password}}}.
-- 
cgit v1.2.3