From 23e50709e723c7ca87939cfd86441e22a9e5a264 Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 9 Sep 2001 17:18:18 +0000 Subject: [PATCH] limit the table to the first 100 entries --- cmd/show/hftable.pl | 2 ++ cmd/show/vhftable.pl | 2 ++ 2 files changed, 4 insertions(+) diff --git a/cmd/show/hftable.pl b/cmd/show/hftable.pl index 2b83994a..abd04b00 100644 --- 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 $limit = 100; 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); + last if $limit && $nocalls >= $limit; } $nocalls = sprintf "%10s", "$nocalls calls"; diff --git a/cmd/show/vhftable.pl b/cmd/show/vhftable.pl index 9849db4a..61193a84 100644 --- 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 $limit = 100; 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, ""); + last if $limit && $nocalls >= $limit; } $nocalls = sprintf "%10s", "$nocalls calls"; -- 2.43.0