From: minima Date: Sun, 9 Sep 2001 15:49:38 +0000 (+0000) Subject: add stats commands X-Git-Tag: R_1_48~37 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=70ffd373d199a2a83072da4e2b75572a2270383f;p=spider.git add stats commands --- diff --git a/cmd/show/dxstats.pl b/cmd/show/dxstats.pl new file mode 100644 index 00000000..0b60e7a4 --- /dev/null +++ b/cmd/show/dxstats.pl @@ -0,0 +1,48 @@ +# +# Show total DXStats per day +# +# Copyright (c) 2001 Dirk Koopman G1TLH +# +# $Id$ +# + +my ($self, $line) = @_; +my @f = split /\s+/, $line; +my @calls; +my $days = 31; +my @dxcc; + +my $now = Julian::Day->new(time())->sub(31); +my $i; +my @in; + +# generate the spot list +for ($i = 0; $i < $days; $i++) { + my $fh = $Spot::statp->open($now); # get the next file + unless ($fh) { + Spot::genstats($now); + $fh = $Spot::statp->open($now); + } + while (<$fh>) { + chomp; + my @l = split /\^/; + next unless $l[0] eq 'TOTALS'; + next unless $l[1]; + $l[0] = $now; + push @in, \@l; + last; + } + $now = $now->add(1); +} + +my @out; +my $tot; + +push @out, $self->msg('statdx'); +foreach my $ref (@in) { + push @out, sprintf "%12s: %7d", $ref->[0]->as_string, $ref->[1]; + $tot += $ref->[1]; +} +push @out, sprintf "%12s: %7d", "Total", $tot; + +return (1, @out); diff --git a/cmd/show/hfstats.pl b/cmd/show/hfstats.pl new file mode 100644 index 00000000..63a3b56c --- /dev/null +++ b/cmd/show/hfstats.pl @@ -0,0 +1,51 @@ +# +# Show total HF DX Spot Stats per day +# +# Copyright (c) 2001 Dirk Koopman G1TLH +# +# $Id$ +# + +my ($self, $line) = @_; +my @f = split /\s+/, $line; +my $days = 31; +my $now = Julian::Day->new(time())->sub(31); +my $i; +my @in; + +# generate the spot list +for ($i = 0; $i < $days; $i++) { + my $fh = $Spot::statp->open($now); # get the next file + unless ($fh) { + Spot::genstats($now); + $fh = $Spot::statp->open($now); + } + while (<$fh>) { + chomp; + my @l = split /\^/; + next unless $l[0] eq 'TOTALS'; + next unless $l[1]; + $l[0] = $now; + push @in, \@l; + last; + } + $now = $now->add(1); +} + +my @out; +my @tot; + +push @out, $self->msg('stathf'); +push @out, sprintf "%11s|%6s|%5s|%5s|%5s|%5s|%5s|%5s|%5s|%5s|%5s|", qw(Date Total 160m 80m 40m 30m 20m 17m 15m 12m 10m); +foreach my $ref (@in) { + my $linetot = 0; + foreach my $j (3..11) { + $tot[$j] += $ref->[$j]; + $tot[0] += $ref->[$j]; + $linetot += $ref->[$j]; + } + push @out, join '|', sprintf("%11s|%6d", $ref->[0]->as_string, $linetot), map {$_ ? sprintf("%5d", $_) : ' '} @$ref[3..11], ""; +} +push @out, join '|', sprintf("%11s|%6d", 'Total', $tot[0]), map {$_ ? sprintf("%5d", $_) : ' '} @tot[3..11], ""; + +return (1, @out); diff --git a/cmd/show/hftable.pl b/cmd/show/hftable.pl new file mode 100644 index 00000000..2b83994a --- /dev/null +++ b/cmd/show/hftable.pl @@ -0,0 +1,74 @@ +# +# do an HFSpot table +# +# Copyright (c) 2001 Dirk Koopman G1TLH +# +# $Id$ +# + +my ($self, $line) = @_; +my @f = split /\s+/, $line; +my @calls; +my $days = 31; +my @dxcc; + +push @dxcc, (61..67) if $self->dxcc >= 61 && $self->dxcc < 67; +push @dxcc, $self->dxcc unless @dxcc; + +my $now = Julian::Day->new(time())->sub(1); +my %list; +my $i; + +# generate the spot list +for ($i = 0; $i < $days; $i++) { + my $fh = $Spot::statp->open($now); # get the next file + unless ($fh) { + Spot::genstats($now); + $fh = $Spot::statp->open($now); + } + while (<$fh>) { + chomp; + my @l = split /\^/; + next if $l[0] eq 'TOTALS'; + next unless grep $l[2] eq $_, @dxcc; + my $ref = $list{$l[0]} || [0,0,0,0,0,0,0,0,0,0]; + my $j = 1; + foreach my $item (@l[3..11]) { + $ref->[$j] += $item; + $ref->[0] += $item; + $j++; + } + $list{$l[0]} = $ref if $ref->[0]; + } + $now = $now->sub(1); +} + +my @out; +my @tot; +my $nocalls; + +push @out, $self->msg('stathft', join(',', @dxcc)); +push @out, sprintf "%10s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|", qw(Callsign Tot 160m 80m 40m 30m 20m 17m 15m 12m 10m); + +for (sort {$list{$b}->[0] <=> $list{$a}->[0] || $a cmp $b} keys %list) { + my $ref = $list{$_}; + $nocalls++; + my @list = (sprintf "%10s", $_); + foreach my $j (0..10) { + my $r = $ref->[$j]; + if ($r) { + $tot[$j] += $r; + $r = sprintf("%4d", $r); + } else { + $r = ' '; + } + push @list, $r; + } + push @out, join('|', @list); +} + +$nocalls = sprintf "%10s", "$nocalls calls"; +@tot = map {$_ ? sprintf("%4d", $_) : ' ' } @tot; +push @out, join('|', $nocalls, @tot, ""); + +return (1, @out); diff --git a/cmd/show/vhfstats.pl b/cmd/show/vhfstats.pl new file mode 100644 index 00000000..cba3fb83 --- /dev/null +++ b/cmd/show/vhfstats.pl @@ -0,0 +1,51 @@ +# +# Show total VHF DX Spot Stats per day +# +# Copyright (c) 2001 Dirk Koopman G1TLH +# +# $Id$ +# + +my ($self, $line) = @_; +my @f = split /\s+/, $line; +my $days = 31; +my $now = Julian::Day->new(time())->sub(31); +my $i; +my @in; + +# generate the spot list +for ($i = 0; $i < $days; $i++) { + my $fh = $Spot::statp->open($now); # get the next file + unless ($fh) { + Spot::genstats($now); + $fh = $Spot::statp->open($now); + } + while (<$fh>) { + chomp; + my @l = split /\^/; + next unless $l[0] eq 'TOTALS'; + next unless $l[1]; + $l[0] = $now; + push @in, \@l; + last; + } + $now = $now->add(1); +} + +my @out; +my @tot; + +push @out, $self->msg('statvhf'); +push @out, sprintf "%11s|%6s|%5s|%5s|%5s|%5s|%5s|%5s|%5s|%5s|%5s|", qw(Callsign Total 6m 4m 2m 70cm 23cm 13cm 9cm 6cm 3cm); +foreach my $ref (@in) { + my $linetot = 0; + foreach my $j (12..14,16..21) { + $tot[$j] += $ref->[$j]; + $tot[0] += $ref->[$j]; + $linetot += $ref->[$j]; + } + push @out, join('|', sprintf("%11s|%6d", $ref->[0]->as_string, $linetot), map {$_ ? sprintf("%5d", $_) : ' '} @$ref[12..14,16..21]) . '|'; +} +push @out, join('|', sprintf("%11s|%6d", 'Total', $tot[0]), map {$_ ? sprintf("%5d", $_) : ' '} @tot[12..14,16..21]) . '|'; + +return (1, @out); diff --git a/cmd/show/vhftable.pl b/cmd/show/vhftable.pl new file mode 100644 index 00000000..9849db4a --- /dev/null +++ b/cmd/show/vhftable.pl @@ -0,0 +1,74 @@ +# +# do an VHFSpot table +# +# Copyright (c) 2001 Dirk Koopman G1TLH +# +# $Id$ +# + +my ($self, $line) = @_; +my @f = split /\s+/, $line; +my @calls; +my $days = 31; +my @dxcc; + +push @dxcc, (61..67) if $self->dxcc >= 61 && $self->dxcc < 67; +push @dxcc, $self->dxcc unless @dxcc; + +my $now = Julian::Day->new(time())->sub(1); +my %list; +my $i; + +# generate the spot list +for ($i = 0; $i < $days; $i++) { + my $fh = $Spot::statp->open($now); # get the next file + unless ($fh) { + Spot::genstats($now); + $fh = $Spot::statp->open($now); + } + while (<$fh>) { + chomp; + my @l = split /\^/; + next if $l[0] eq 'TOTALS'; + next unless grep $l[2] eq $_, @dxcc; + my $ref = $list{$l[0]} || [0,0,0,0,0,0,0,0,0,0]; + my $j = 1; + foreach my $item (@l[12..14, 16..22]) { + $ref->[$j] += $item; + $ref->[0] += $item; + $j++; + } + $list{$l[0]} = $ref if $ref->[0]; + } + $now = $now->sub(1); +} + +my @out; +my @tot; +my $nocalls; + +push @out, $self->msg('statvhft', join ',', @dxcc); +push @out, sprintf "%10s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|", qw(Callsign Tot 6m 4m 2m 70cm 23cm 13cm 9cm 6cm 3cm); + +for (sort {$list{$b}->[0] <=> $list{$a}->[0] || $a cmp $b} keys %list) { + my $ref = $list{$_}; + $nocalls++; + my @list = (sprintf "%10s", $_); + foreach my $j (0..9) { + my $r = $ref->[$j]; + if ($r) { + $tot[$j] += $r; + $r = sprintf("%4d", $r); + } else { + $r = ' '; + } + push @list, $r; + } + push @out, join('|', @list, ""); +} + +$nocalls = sprintf "%10s", "$nocalls calls"; +@tot = map {$_ ? sprintf("%4d", $_) : ' ' } @tot; +push @out, join('|', $nocalls, @tot, ""); + +return (1, @out);