X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=7db7ae3c9a9ddfe57e67903bdb3f58f2ec61acdc;hb=6a0068ec3df1dca0c6ae2714af3c0a4a62998dcf;hp=9511435d72200b4b3cb3f76c726383dcc57882ab;hpb=23d995215379c4786c2cb1d930a09c734c2472aa;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 9511435d..7db7ae3c 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -35,12 +35,14 @@ use DXCron;
 use DXConnect;
 use Prefix;
 use Bands;
+use Geomag;
+use Carp;
 
 package main;
 
 @inqueue = ();                # the main input queue, an array of hashes
 $systime = 0;                 # the time now (in seconds)
-$version = 1.1;               # the version no of the software
+$version = 1.2;               # the version no of the software
 
 # handle disconnections
 sub disconnect
@@ -142,13 +144,10 @@ sub process_inqueue
     $dxchan->start($line);  
   } elsif ($sort eq 'D') {
     die "\$user not defined for $call" if !defined $user;
-	if ($dxchan->{func}) {   
-	  # call an ongoing routine if there is a function specified
-	  &{$dxchan->{func}} ($dxchan, $line);
-	} else {
-	  # normal input
-	  $dxchan->normal($line);
-	}
+	
+	# normal input
+	$dxchan->normal($line);
+
     disconnect($dxchan) if ($dxchan->{state} eq 'bye');
   } elsif ($sort eq 'Z') {
     disconnect($dxchan);
@@ -197,6 +196,12 @@ $SIG{'HUP'} = 'IGNORE';
 # initialise the protocol engine
 DXProt->init();
 
+# initialise the Geomagnetic data engine
+Geomag->init();
+
+# initial the Spot stuff
+Spot->init();
+
 # put in a DXCluster node for us here so we can add users and take them away
 DXNode->new(0, $mycall, 0, 1, $DXProt::myprot_version);