Add help for sh/band and improve sh/band command

[spider.git] / cmd / show / bands.pl

diff --git a/cmd/show/bands.pl b/cmd/show/bands.pl
index 9bdd5dc6585fc4ea6274fd4b1cc6661248ec15d3..67b0cb5e0b7dd9021e0c3b6095b33d401c0e74dd 100644 (file)
--- a/cmd/show/bands.pl
+++ b/cmd/show/bands.pl
@@ -6,34 +6,43 @@
 #
 #
 
-#$DB::single = 1;
+$DB::single = 1;
 
 my ($self, $line) = @_;
 my @f = split /\s+/, $line;
-my @bands;
+my @bands = grep {Bands::get($_)?$_:()} @f;
+my @regs = grep {Bands::get_region($_)?$_:()} @f;
 my $band;
 my @out;
 my $i;
 
-if (!$line) {
-       @bands = sort { Bands::get($a)->band->[0] <=> Bands::get($b)->band->[0] } Bands::get_keys();
+unless (@f) {
+       @bands = Bands::get_keys();
+       @regs =  Bands::get_region_keys();
+}
+if (@bands) {
+       @bands = sort { Bands::get($a)->band->[0] <=> Bands::get($b)->band->[0] } @bands;
        push @out, "Bands Available:-";
-       foreach $band (@bands) {
-               my $ref = Bands::get($band)->band;
-               my $s = sprintf "%10s: ", $band;
-               for ($i = 0; $i < $#{$ref}; $i += 2) {
+       foreach my $name (@bands) {
+               my $band = Bands::get($name);
+               my $ref = $band->band;
+               my $s = sprintf "%10s: ", $name;
+               for ($i = 0; $i < @$ref; $i += 2) {
                        my $from = $ref->[$i];
                        my $to = $ref->[$i+1];
                        $s .= ", " if $i;
                        $s .= "$from -> $to";
                }
                push @out, $s;
-       } 
+       }
+}
+
+if (@regs) {
        push @out, "Regions Available:-";
-       @bands = Bands::get_region_keys();
-       foreach $band (@bands) {
-               my $ref = Bands::get_region($band);
-               my $s = sprintf("%10s: ", $band ) . join(' ', @{$ref}); 
+       @regs = sort @regs;
+       foreach my $region (@regs) {
+               my $ref = Bands::get_region($region);
+               my $s = sprintf("%10s: ", $region ) . join(' ', @{$ref});
                push @out, $s;
        }
 }