X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=5b3f64668cf2f10cd6a0c8238f6f78e7dc34a5f7;hb=57b5e464bc44ae8eee23ab94c1f499f527595dc9;hp=f1759ef5a01e80a178d2210206081afa50ca5409;hpb=78ed3f6025103ec1c47c90725e37b417647d83c8;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index f1759ef5..5b3f6466 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;
@@ -35,6 +35,7 @@ use DXCron;
 use DXConnect;
 use Prefix;
 use Bands;
+use Carp;
 
 package main;
 
@@ -142,13 +143,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);
@@ -170,6 +168,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();