X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2Fcluster.pl;h=7db7ae3c9a9ddfe57e67903bdb3f58f2ec61acdc;hp=5b3f64668cf2f10cd6a0c8238f6f78e7dc34a5f7;hb=6a0068ec3df1dca0c6ae2714af3c0a4a62998dcf;hpb=3f145290a93b39bf15b50269dd8be585d7b4bc9c diff --git a/perl/cluster.pl b/perl/cluster.pl index 5b3f6466..7db7ae3c 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -35,13 +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 @@ -195,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);