X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fqrz.pl;h=6779db42cbe32375d04f255402bf13fba7ced39d;hb=b67b50de92dbf61ce939b42f7c74e30dc58eba41;hp=910b1997d9fd94e662030cd75d3aac89e80f9915;hpb=c33a59698b9c2a7c319200620765d37706e12c5f;p=spider.git diff --git a/cmd/show/qrz.pl b/cmd/show/qrz.pl index 910b1997..6779db42 100644 --- a/cmd/show/qrz.pl +++ b/cmd/show/qrz.pl @@ -29,7 +29,7 @@ foreach $l (@list) { 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') {