X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=0e321f2326efadff00b9ba70a19ee939037ffe85;hb=a204e3cd89e849e97db25879b4ddf62b770bd227;hp=655a986b1af35dfd881795a3a3ffb320a867dc82;hpb=70dbd742db4241e97496db69e89160ec573a5949;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 655a986b..0e321f23 100755
--- a/perl/cluster.pl
+++ b/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} != $dxchan} @inqueue;
+}
+
 sub login
 {
 	return \&new_channel;