X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=inline;f=perl%2Fcluster.pl;h=9511435d72200b4b3cb3f76c726383dcc57882ab;hb=23d995215379c4786c2cb1d930a09c734c2472aa;hp=f46ef82d80f20f7ad4f7ef3d19d2685f1ce101ae;hpb=84505457c5b3757715d97a63acd792b28fc1841a;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index f46ef82d..9511435d 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -16,8 +16,8 @@ BEGIN {
   $root = "/spider"; 
   $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
 
-  unshift @INC, '$root/perl';  # this IS the right way round!
-  unshift @INC, '$root/local';
+  unshift @INC, "$root/perl";  # this IS the right way round!
+  unshift @INC, "$root/local";
 }
 
 use Msg;
@@ -31,6 +31,8 @@ use DXProt;
 use DXMsg;
 use DXCluster;
 use DXDebug;
+use DXCron;
+use DXConnect;
 use Prefix;
 use Bands;
 
@@ -140,7 +142,13 @@ sub process_inqueue
     $dxchan->start($line);  
   } elsif ($sort eq 'D') {
     die "\$user not defined for $call" if !defined $user;
-	$dxchan->normal($line);  
+	if ($dxchan->{func}) {   
+	  # call an ongoing routine if there is a function specified
+	  &{$dxchan->{func}} ($dxchan, $line);
+	} else {
+	  # normal input
+	  $dxchan->normal($line);
+	}
     disconnect($dxchan) if ($dxchan->{state} eq 'bye');
   } elsif ($sort eq 'Z') {
     disconnect($dxchan);
@@ -162,6 +170,9 @@ foreach(@debug) {
 }
 STDOUT->autoflush(1);
 
+# banner
+print "DXSpider DX Cluster Version $version\nCopyright (c) 1998 Dirk Koopman G1TLH\n";
+
 # load Prefixes
 print "loading prefixes ...\n";
 Prefix::load();
@@ -189,6 +200,14 @@ DXProt->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); 
 
+# read in any existing message headers
+print "reading existing message headers\n";
+DXMsg->init();
+
+# read in any cron jobs
+print "reading cron jobs\n";
+DXCron->init();
+
 # this, such as it is, is the main loop!
 print "orft we jolly well go ...\n";
 for (;;) {
@@ -204,6 +223,8 @@ for (;;) {
 	$ztime = &ztime();
     DXCommandmode::process();     # process ongoing command mode stuff
     DXProt::process();              # process ongoing ak1a pcxx stuff
+	DXCron::process();
+	DXConnect::process();
   }
 }