fix problem with things banging out and leaving stuff in the input queue

perl/DXChannel.pm

@@ -426,6 +426,7 @@ sub disconnect
 	my $self = shift;
 	my $user = $self->{user};
 	
+	main::clean_inqueue($self);          # clear out any remaining incoming frames
 	$user->close() if defined $user;
 	$self->{conn}->disconnect;
 	$self->del();

perl/cluster.pl

@@ -240,6 +240,13 @@ sub rec
 	}
 }
 
+# remove any outstanding entries on the inqueue after a disconnection (usually)
+sub clean_inqueue
+{
+	my $dxchan = shift;
+	@inqueue = grep {$_ != $dxchan} @inqueue;
+}
+
 sub login
 {
 	return \&new_channel;