aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--README19
-rw-r--r--erlbal.erl5
2 files changed, 21 insertions, 3 deletions
diff --git a/README b/README
index e69de29..5b4d3cd 100644
--- a/README
+++ b/README
@@ -0,0 +1,19 @@
+erlbal is an erlang load balancer.
+
+
+start_bal/0 spawns a balancer.
+stop_bal/1 takes a balancer and kills all of its servers and then kills the balancer.
+list_servers/1 takes a balancer and returns a list of the servers it balances over.
+
+start_server/2 takes a balancer and a function and spawns a server to serve the function.
+stop_server/2 takes a balancer and a server PID and stops the server and removes it from the balancer.
+
+make_request/2 takes a balancer and an argument and returns the response from the server.
+
+
+The balancer round robins requests between erlang processes.
+When it receives a request, it forwards it on to the next server in the round robin.
+The server then runs the function with the argument passed to it and returns a response to the balancer.
+The balancer forwards the response back to the requestor.
+
+The function arg could be anything, so you can pass multiple args in a tuple or list, etc.
diff --git a/erlbal.erl b/erlbal.erl
index e24dd26..decfc42 100644
--- a/erlbal.erl
+++ b/erlbal.erl
@@ -27,8 +27,7 @@ start_bal() ->
spawn(fun() -> bal_loop([], 1) end).
stop_bal(Balancer) ->
- Balancer ! die,
- unregister(Balancer).
+ Balancer ! die.
bal_loop(Serverlist, Nextserver) ->
receive
@@ -48,7 +47,7 @@ bal_loop(Serverlist, Nextserver) ->
NS > SLL ->
bal_loop(Serverlist, 1);
true ->
- bal_loop(Serverlist, Nextserver+1)
+ bal_loop(Serverlist, NS)
end;
{response, To, Ret} ->
To ! Ret,