X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fclient.pl;h=5e975c157bf18d903e8a11b3acdef0838cc6340a;hb=575db552c5a635ce2eb431de07f568113374735f;hp=ff2ca473f82b03451e0f023d7d72d3ee6e9adc5b;hpb=c20a2c1e01d707d6c3fa25067df93d491aba8fff;p=spider.git

diff --git a/perl/client.pl b/perl/client.pl
index ff2ca473..5e975c15 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -119,7 +119,7 @@ sub rec_socket
 			if ($buffered) {
 				if (length $outqueue >= $client_buffer_lth) {
 					print $stdout $outqueue;
-					pop @echo if @echo > $maxecho;
+					pop @echo while (@echo > $maxecho);
 					push @echo, $outqueue;
 					$outqueue = "";
 				}
@@ -146,7 +146,7 @@ sub rec_socket
 		} elsif ($sort eq 'B') {
 			if ($buffered && $outqueue) {
 				print $stdout $outqueue;
-				pop @echo if @echo > $maxecho;
+				pop @echo while(@echo > $maxecho);
 				push @echo, $outqueue;
 				$outqueue = "";
 			}
@@ -419,7 +419,7 @@ if ($loginreq) {
 	$s =~ s/\s+//og;
 	$s =~ s/-\d+$//o;            # no ssids!
 	cease(0) unless $s && $s gt ' ';
-	unless (iscallsign($s)) {
+	unless (is_callsign($s)) {
 		$stdout->print("Sorry, $s is an invalid callsign");
 		cease(0);
 	}