X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=cab4b0baf24339032f360f541bfb791049653f4d;hb=79f4593964c44fb39faf9d070a418125e90e1333;hp=4da018b0bfd25b8d6b2d55e407288a923acffc62;hpb=72e9dcbade3fdb51d9291a2856ca1cc998241f9b;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 4da018b0..cab4b0ba 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -71,7 +71,7 @@ package main;
 
 @inqueue = ();					# the main input queue, an array of hashes
 $systime = 0;					# the time now (in seconds)
-$version = "1.42";				# the version no of the software
+$version = "1.43";				# the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 $lockfn = "cluster.lock";       # lock file name
 @outstanding_connects = ();     # list of outstanding connects
@@ -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
 		};