X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=93e769ba4e788a2d4ccf0dcac3d0e592b2f7fb94;hb=766014807e2521cc60a219c6eda5b49d13ffc70f;hp=b6c38166b6dba898a1a513f730b015b4850f9673;hpb=56b93915d65c299a5f2d2e555ee361c056773843;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index b6c38166..93e769ba 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -633,9 +633,6 @@ sub setup_start
 
 	Filter::init();				# doesn't do much, but has to be done
 
-	AnnTalk::init();			# initialise announce cache
-	
-	
 
 	# look for the sysop and the alias user and complain if they aren't there
 	{
@@ -727,12 +724,6 @@ sub setup_start
 	dbg("Read in Aliases");
 	CmdAlias->init();
 
-	# initialise the Geomagnetic data engine
-	dbg("Start WWV");
-	Geomag->init();
-	dbg("Start WCY");
-	WCY->init();
-
 	# initialise the protocol engine
 	dbg("Start Protocol Engines ...");
 	DXProt->init();
@@ -741,6 +732,15 @@ sub setup_start
 	my $script = new Script "startup";
 	$script->run($main::me) if $script;
 
+
+	# initialise the Geomagnetic data engine
+	dbg("Start WWV");
+	Geomag->init();
+	dbg("Start WCY");
+	WCY->init();
+	AnnTalk::init();			# initialise announce cache
+   
+
 	# put in a DXCluster node for us here so we can add users and take them away
 	$routeroot = Route::Node->new($mycall, $version*100+5300, Route::here($main::me->here)|Route::conf($main::me->conf));
 	$routeroot->do_pc9x(1);