X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=8b45e2bd65d805d7fc411650b387a586199d103f;hb=9e2fbafcfdab1ee45e581524311f1a97ac41f6ad;hp=c3f61038fda99ed19f746b92e58b6c99d5bb423a;hpb=6ab5f0300e614249c24916600817ae221a6bdc8c;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index c3f61038..8b45e2bd 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -178,6 +178,9 @@ sub cease
 	};
 	dbg('local', "Local::finish error $@") if $@;
 
+	# close all databases
+	DXDb::closeall;
+	
 	# disconnect users
 	foreach $dxchan (DXChannel->get_all()) {
 		next if $dxchan->is_ak1a;
@@ -346,6 +349,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 +382,7 @@ for (;;) {
 		DXProt::process();		# process ongoing ak1a pcxx stuff
 		DXConnect::process();
 		DXMsg::process();
+		DXDb::process();
 		eval { 
 			Local::process();       # do any localised processing
 		};