sync the user database every 15 secs

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index b96cf370b3162081628d7e355e66fe316215b1b3..cab4b0baf24339032f360f541bfb791049653f4d 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -188,6 +188,8 @@ sub cease
        $SIG{'TERM'} = 'IGNORE';
        $SIG{'INT'} = 'IGNORE';
        
+       DXUser::sync;
+
        eval {
                Local::finish();   # end local processing
        };
@@ -404,6 +406,7 @@ for (;;) {
                DXConnect::process();
                DXMsg::process();
                DXDb::process();
+               DXUser::process();
                eval { 
                        Local::process();       # do any localised processing
                };