cmd/show/hfstats.pl

   1 #
   2 # Show total HF DX Spot Stats per day
   3 #
   4 # Copyright (c) 2001 Dirk Koopman G1TLH
   5 #
   6 #
   7 #
   8 # Modified on 2002/10/29 by K1XX for his own use
   9 # Valid inputs:
  10 #
  11 # sh/hfstats
  12 #
  13 # sh/hfstats <date> <no. of days>
  14 #
  15 # Known good data formats
  16 # dd-mmm-yy
  17 # 24-Nov-02 (using - . or / as separator)
  18 #
  19 # mm-dd-yy
  20 # 11/24/02 (using - . or / as separator)
  21 #
  22 # yymmdd
  23 # 021124
  24 #
  25
  26 use Date::Parse;
  27
  28 my $days = 31;
  29 my $now;
  30 my $date = cldate($main::systime);
  31 my $utime = $main::systime;
  32
  33 sub handle
  34 {
  35
  36         my ($self, $line) = @_;
  37         my @f = split /\s+/, $line;
  38         my @out;
  39
  40         while (@f) {
  41                 my $f = shift @f;
  42
  43                 if ($f =~ /^\d+$/ && $f < 366) { # no of days
  44                         $days = $f;
  45                         next;
  46                 }
  47                 if (my $ut = Date::Parse::str2time($f)) { # is it a parseable date?
  48                         $utime = $ut+3600;
  49                         next;
  50                 }
  51                 push @out, $self->msg('e33', $f);
  52         }
  53
  54         return (1, @out) if @out;
  55
  56         $now = Julian::Day->new($utime);
  57         $now = $now->sub($days);
  58         $date = cldate($utime);
  59
  60         @out = $self->spawn_cmd("show/hfstats $line", sub {
  61                                                         });
  62
  63         if ($self->{_nospawn}) {
  64                 return (1, generate($self));
  65         }
  66         else {
  67                 return (1, $self->spawn_cmd("show/hfstats $line", sub { (generate($self)); }));
  68         }
  69 }
  70
  71
  72 sub generate
  73 {
  74         my $self = shift;
  75         my %list;
  76         my @out;
  77         my @in;
  78         my $i;
  79         # generate the spot list
  80         for ($i = 0; $i < $days; $i++) {
  81                 my $fh = $Spot::statp->open($now); # get the next file
  82                 unless ($fh) {
  83                         Spot::genstats($now);
  84                         $fh = $Spot::statp->open($now);
  85                 }
  86                 while (<$fh>) {
  87                         chomp;
  88                         my @l = split /\^/;
  89                         next unless $l[0] eq 'TOTALS';
  90                         next unless $l[1];
  91                         $l[0] = $now;
  92                         push @in, \@l;
  93                         last;
  94                 }
  95                 $now = $now->add(1);
  96         }
  97
  98         my @tot;
  99
 100         push @out, $self->msg('stathf', $date, $days);
 101         push @out, sprintf "%6s|%6s|%5s|%5s|%5s|%5s|%5s|%5s|%5s|%5s|%5s|%5s|", qw(Date Total 160m 80m 60m 40m 30m 20m 17m 15m 12m 10m);
 102         foreach my $ref (@in) {
 103                 my $linetot = 0;
 104                 foreach my $j (4..13) {
 105                         $tot[$j] += $ref->[$j];
 106                         $tot[0] += $ref->[$j];
 107                         $linetot += $ref->[$j];
 108                 }
 109                 my $date = $ref->[0]->as_string;
 110                 $date =~ s/-\d+$//;
 111                 push @out, join '|', sprintf("%6s|%6d", $date, $linetot), map {$_ ? sprintf("%5d", $_) : '     '} @$ref[4..13], "";
 112         }
 113         push @out, join '|', sprintf("%6s|%6d", 'Total', $tot[0]), map {$_ ? sprintf("%5d", $_) : '     '} @tot[4..13], "";
 114         return @out
 115
 116 }