]> scm.dxcluster.org Git - spider.git/blob - cmd/show/bands.pl
mv HTTPMsg to AsyncMsg, add 'raw' method
[spider.git] / 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);