Log('call', "$call: show/qrz \U$l");
my $state = "blank";
while (my $result = $t->getline) {
-# print $result;
+ dbg('qrz', $result);
if ($state eq 'blank' && $result =~ /^\s*Callsign\s*:/i) {
$state = 'go';
} elsif ($state eq 'go') {
}
}
$t->close;
+ push @out, $self->msg('e3', 'qrz.com', uc $l) unless @out;
} else {
push @out, $self->msg('e18', 'QRZ.com');
}