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;
  14 my $band;
  15 my @out;
  16 my $i;
  17
  18 if (!$line) {
  19         @bands = sort { Bands::get($a)->band->[0] <=> Bands::get($b)->band->[0] } Bands::get_keys();
  20         push @out, "Bands Available:-";
  21         foreach $band (@bands) {
  22                 my $ref = Bands::get($band)->band;
  23                 my $s = sprintf "%10s: ", $band;
  24                 for ($i = 0; $i < $#{$ref}; $i += 2) {
  25                         my $from = $ref->[$i];
  26                         my $to = $ref->[$i+1];
  27                         $s .= ", " if $i;
  28                         $s .= "$from -> $to";
  29                 }
  30                 push @out, $s;
  31         }
  32         push @out, "Regions Available:-";
  33         @bands = Bands::get_region_keys();
  34         foreach $band (@bands) {
  35                 my $ref = Bands::get_region($band);
  36                 my $s = sprintf("%10s: ", $band ) . join(' ', @{$ref});
  37                 push @out, $s;
  38         }
  39 }
  40
  41 return (1, @out);