X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2Fcluster.pl;h=1f011c55584971360363523d3c332d3e8c6f5766;hb=d7338541ed3f380b0d10e0676bb5d64e6e5e4d7a;hp=c3f61038fda99ed19f746b92e58b6c99d5bb423a;hpb=adf3cc7462a4544d2bca7f380593631edcff120b;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index c3f61038..1f011c55 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -208,6 +208,10 @@ sub cease
 	Msg->event_loop(1, 0.05);
 	Msg->event_loop(1, 0.05);
 	DXUser::finish();
+
+	# close all databases
+	DXDb::closeall;
+	
 	dbg('chan', "DXSpider version $version ended");
 	Log('cluster', "DXSpider V$version stopped");
 	dbgclose();
@@ -346,6 +350,10 @@ DXMsg::clean_old();
 print "reading cron jobs ...\n";
 DXCron->init();
 
+# read in database descriptors
+print "reading database descriptors ...\n";
+DXDb::load();
+
 # starting local stuff
 print "doing local initialisation ...\n";
 eval {
@@ -375,6 +383,7 @@ for (;;) {
 		DXProt::process();		# process ongoing ak1a pcxx stuff
 		DXConnect::process();
 		DXMsg::process();
+		DXDb::process();
 		eval { 
 			Local::process();       # do any localised processing
 		};