X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=177009ea20bb4a12cf63ed6d6e8aa994285c086c;hb=bb3889c1d4930e2ca96b47aea10ce5e803737043;hp=2cbdee688139498d087762a3e62d9d45c339dccd;hpb=5d1d9d0ed0577e2459108dba8c82ab3ed591da10;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 2cbdee68..177009ea 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -464,6 +464,9 @@ sub cease
 	# close all databases
 	DXDb::closeall;
 
+	# Write route cache
+	Route::write_cache();
+	
 	# close all listeners
 	foreach my $l (@listeners) {
 		$l->close_server;
@@ -646,7 +649,9 @@ sub setup_start
 		}
 	}
 
-
+	# read any route cache there might be
+	Route::read_cache();
+	
 	# start listening for incoming messages/connects
 	dbg("starting listeners ...");
 	my $conn = IntMsg->new_server($clusteraddr, $clusterport, \&login);
@@ -860,6 +865,7 @@ sub per_minute
 sub per_10_minute
 {
 	RBN::per_10_minute();
+	Route::write_cache();
 }
 
 sub per_hour