X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=d108a560c3187871f370b6615afad51bab761ce4;hb=cde4b624b9eccd5b360d9cc7047a7f73527885aa;hp=203f6956a1bc8a011dd054b3e21e6d64c8ceacbd;hpb=b0d0a20f3a8f9c5cd0f2e034a32dc524e3f2f003;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 203f6956..d108a560 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -293,7 +293,7 @@ sub process_inqueue
 	while (@inqueue) {
 		my $self = shift @inqueue;
 		return if !$self;
-	
+
 		my $data = $self->{data};
 		my $dxchan = $self->{dxchan};
 		my $error;
@@ -302,13 +302,18 @@ sub process_inqueue
 	
 		# do the really sexy console interface bit! (Who is going to do the TK interface then?)
 		dbg("<- $sort $call $line\n") if $sort ne 'D' && isdbg('chan');
-
+		if ($self->{disconnecting}) {
+			dbg('In disconnection, ignored');
+			next;
+		}
+		
 		# handle A records
 		my $user = $dxchan->user;
 		if ($sort eq 'A' || $sort eq 'O') {
 			$dxchan->start($line, $sort);  
 		} elsif ($sort eq 'I') {
 			die "\$user not defined for $call" if !defined $user;
+
 			# normal input
 			$dxchan->normal($line);
 		} elsif ($sort eq 'Z') {