a mostly working send message implementation

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 9511435d72200b4b3cb3f76c726383dcc57882ab..5b3f64668cf2f10cd6a0c8238f6f78e7dc34a5f7 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -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);