X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=2f96af8814e9a2e2333e0d9118716bf61e28210e;hb=625ce0adf070a7e900fa03714a391652db0c065a;hp=bdd1f7d9c2020b5252be34f54d9cddf736488459;hpb=56b610b0ed32b6d10122bca7554ce7a11251cdaa;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index bdd1f7d9..2f96af88 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -98,8 +98,8 @@ sub process_inqueue
   my ($sort, $call, $line) = $data =~ /^(\w)(\S+)\|(.*)$/;
   
   # do the really sexy console interface bit! (Who is going to do the TK interface then?)
-  print DEBUG atime, " < $sort $call $line\n" if defined DEBUG;
-  print "< $sort $call $line\n";
+  print DEBUG atime, " <- $sort $call $line\n" if defined DEBUG;
+  print "<- $sort $call $line\n";
   
   # handle A records
   my $user = $dxchan->{user};
@@ -117,6 +117,7 @@ sub process_inqueue
 	} else {
 	  $dxchan->user_normal($line);
 	}
+    disconnect($dxchan) if ($dxchan->{state} eq 'bye');
   } elsif ($sort eq 'Z') {
     disconnect($dxchan);
   } else {