cmd/show/bands.pl

   1 #
   2 # display the band data
   3 #
   4 # Copyright (c) 1998 - Dirk Koopman G1TLH
   5 #
   6 #
   7 #
   8
   9 #DB::single = 1;
  10
  11 my ($self, $line) = @_;
  12 my @f = split /\s+/, $line;
  13 my @bands = grep {Bands::get($_)?$_:()} @f;
  14 my @regs = grep {Bands::get_region($_)?$_:()} @f;
  15 my $band;
  16 my @out;
  17 my $i;
  18
  19 unless (@f) {
  20         @bands = Bands::get_keys();
  21         @regs =  Bands::get_region_keys();
  22 }
  23 if (@bands) {
  24         @bands = sort { Bands::get($a)->band->[0] <=> Bands::get($b)->band->[0] } @bands;
  25         push @out, "Bands Available:-";
  26         foreach my $name (@bands) {
  27                 my $band = Bands::get($name);
  28                 my $ref = $band->band;
  29                 my $s = sprintf "%10s: ", $name;
  30                 for ($i = 0; $i < @$ref; $i += 2) {
  31                         my $from = $ref->[$i];
  32                         my $to = $ref->[$i+1];
  33                         $s .= ", " if $i;
  34                         $s .= "$from -> $to";
  35                 }
  36                 push @out, $s;
  37         }
  38 }
  39
  40 if (@regs) {
  41         push @out, "Regions Available:-";
  42         @regs = sort @regs;
  43         foreach my $region (@regs) {
  44                 my $ref = Bands::get_region($region);
  45                 my $s = sprintf("%10s: ", $region ) . join(' ', @{$ref});
  46                 push @out, $s;
  47         }
  48 }
  49
  50 return (1, @out);