egs_user_model: Authenticated users shouldn't be cleaned up.

2010-07-20 01:38:00 +02:00 · 2010-07-20 01:38:00 +02:00 · 04265d71dc
commit 04265d71dc
parent f86aeb8f17
1 changed files with 1 additions and 0 deletions
--- a/src/egs_user_model.erl
+++ b/src/egs_user_model.erl
@ -126,6 +126,7 @@ handle_cast({delete, ID}, State) ->
 handle_cast(cleanup, State) ->
 	Timeout = calendar:datetime_to_gregorian_seconds(calendar:universal_time()) - 300,
 	List = do(qlc:q([X#?TABLE.id || X <- mnesia:table(?TABLE),
+		X#?TABLE.state /= authenticated,
 		X#?TABLE.state /= online,
 		X#?TABLE.time < Timeout
 	])),