Browse Source

Remove debug messages.

master
Fabian Kurz 4 years ago
parent
commit
a4b4e62ab2
  1. 7
      yfksubs.pl

7
yfksubs.pl

@ -180,8 +180,6 @@ sub rundxc {
$bcfh{$dxband}{$dxcall} = $freq;
$bcth{$dxband}{$dxcall} = time;
print STDERR "set bcth >$dxband< >$dxcall< ==> ".$bcth{$dxband}{$dxcall}."\n";
print STDERR "set bcfh >$dxband< >$dxcall< ==> ".$bcfh{$dxband}{$dxcall}."\n";
addstr($win, 0, 0, " "x9999);
@ -191,16 +189,13 @@ sub rundxc {
$c++ if ($c);
for my $call ( sort { $bcfh{$band}{$a} <=> $bcfh{$band}{$b} } keys %{ $bcfh{$band} } ) {
$line = sprintf("%7.1f %s", $bcfh{$band}{$call}, $call);
print STDERR "LINE === >>$line<< $band\n";
$c++;
# we split into columns with a width of 25
my $mrow = $c % $rows;
my $mcol = int($c / $rows);
addstr($win, $mrow , 1 + $mcol*25, $line);
if ((time - $bcth{$band}{$call}) > 10) {
print STDERR "timeout for >$call< on >$band< . current time = ".time." saved time = ".$bcth{$band}{$call}."\n";
if ((time - $bcth{$band}{$call}) > 300) {
delete($bcfh{$band}{$call});
delete($bcth{$band}{$call});
}

Loading…
Cancel
Save