From 5d7f5c3a7913e1dac3cbb3d206f2a4b8ceb592f6 Mon Sep 17 00:00:00 2001
From: Alexey Shchepin <alexey@process-one.net>
Date: Sat, 3 Jan 2004 17:25:21 +0000
Subject: * src/ejabberd_router.erl (do_route/3): Slightly changed behaviour

SVN Revision: 195
---
 src/ejabberd_router.erl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/ejabberd_router.erl b/src/ejabberd_router.erl
index fcc89375b..74352254d 100644
--- a/src/ejabberd_router.erl
+++ b/src/ejabberd_router.erl
@@ -80,7 +80,11 @@ do_route(From, To, Packet) ->
 	    ?DEBUG("routed to process ~p~n", [Pid]),
 	    Pid ! {route, From, To, Packet};
 	Rs ->
-	    R = lists:nth(erlang:phash(now(), length(Rs)), Rs),
+	    Rs1 = case [R || R <- Rs, node(R#route.pid) == node()] of
+		      [] -> Rs;
+		      LRs -> LRs
+		  end,
+	    R = lists:nth(erlang:phash(now(), length(Rs1)), Rs1),
 	    Pid = R#route.pid,
 	    ?DEBUG("routed to process ~p~n", [Pid]),
 	    Pid ! {route, From, To, Packet}
-- 
cgit v1.2.3