projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make sure that callsigns and locators are all upper case
[spider.git]
/
cmd
/
show
/
hftable.pl
diff --git
a/cmd/show/hftable.pl
b/cmd/show/hftable.pl
index 2b83994aea6e19f02508eaffc44ef0f529751daa..abd04b0065d165d17d15dbc38eca62ea29b85b68 100644
(file)
--- a/
cmd/show/hftable.pl
+++ b/
cmd/show/hftable.pl
@@
-11,6
+11,7
@@
my @f = split /\s+/, $line;
my @calls;
my $days = 31;
my @dxcc;
my @calls;
my $days = 31;
my @dxcc;
+my $limit = 100;
push @dxcc, (61..67) if $self->dxcc >= 61 && $self->dxcc < 67;
push @dxcc, $self->dxcc unless @dxcc;
push @dxcc, (61..67) if $self->dxcc >= 61 && $self->dxcc < 67;
push @dxcc, $self->dxcc unless @dxcc;
@@
-65,6
+66,7
@@
for (sort {$list{$b}->[0] <=> $list{$a}->[0] || $a cmp $b} keys %list) {
push @list, $r;
}
push @out, join('|', @list);
push @list, $r;
}
push @out, join('|', @list);
+ last if $limit && $nocalls >= $limit;
}
$nocalls = sprintf "%10s", "$nocalls calls";
}
$nocalls = sprintf "%10s", "$nocalls calls";