2 # display the band data
7 my ($self, $line) = @_;
8 my @f = split /\s+/, $line;
14 @bands = sort { Bands::get($a)->band->[0] <=> Bands::get($b)->band->[0] } Bands::get_keys();
15 push @out, "Bands Available:-";
16 foreach $band (@bands) {
17 my $ref = Bands::get($band)->band;
20 push @out, sprintf "%10s: %d -> %d", $band, $from, $to;
22 push @out, "Regions Available:-";
23 @bands = Bands::get_region_keys();
24 foreach $band (@bands) {
25 my $ref = Bands::get_region($band);
26 my $s = sprintf("%10s: ", $band ) . join(' ', @{$ref});