projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove any trailing \rs from the ends of lines
[spider.git]
/
cmd
/
show
/
vhftable.pl
diff --git
a/cmd/show/vhftable.pl
b/cmd/show/vhftable.pl
index 9849db4a178b4f268a1457c535fc3d05fe89f0eb..61193a846462d329c5b3b085ee63d20ad5bc0efc 100644
(file)
--- a/
cmd/show/vhftable.pl
+++ b/
cmd/show/vhftable.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";