diff options
| -rw-r--r-- | README | 19 | ||||
| -rw-r--r-- | erlbal.erl | 5 |
2 files changed, 21 insertions, 3 deletions
@@ -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. @@ -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, |