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 = "";
}
} elsif ($sort eq 'B') {
if ($buffered && $outqueue) {
print $stdout $outqueue;
- pop @echo if @echo > $maxecho;
+ pop @echo while(@echo > $maxecho);
push @echo, $outqueue;
$outqueue = "";
}
$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);
}