From 04265d71dcfcd46843226baa58749d7cb8980c20 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Tue, 20 Jul 2010 01:38:00 +0200 Subject: [PATCH] egs_user_model: Authenticated users shouldn't be cleaned up. --- src/egs_user_model.erl | 1 + 1 file changed, 1 insertion(+) diff --git a/src/egs_user_model.erl b/src/egs_user_model.erl index c4de4d8..6615b20 100644 --- 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 ])),