From 3d29b1a4d4aab997da2deff10470068601744530 Mon Sep 17 00:00:00 2001 From: djk Date: Fri, 13 Nov 1998 19:31:21 +0000 Subject: [PATCH] tweeked the band handling a touch to see bands with more than one part --- cmd/show/bands.pl | 12 +++++++++--- data/bands.pl | 3 ++- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/cmd/show/bands.pl b/cmd/show/bands.pl index 158238f3..5e71ec0f 100644 --- a/cmd/show/bands.pl +++ b/cmd/show/bands.pl @@ -9,15 +9,21 @@ my @f = split /\s+/, $line; my @bands; my $band; my @out; +my $i; if (!$line) { @bands = sort { Bands::get($a)->band->[0] <=> Bands::get($b)->band->[0] } Bands::get_keys(); push @out, "Bands Available:-"; foreach $band (@bands) { my $ref = Bands::get($band)->band; - my $from = $ref->[0]; - my $to = $ref->[1]; - push @out, sprintf "%10s: %d -> %d", $band, $from, $to; + my $s = sprintf "%10s: ", $band; + 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; } push @out, "Regions Available:-"; @bands = Bands::get_region_keys(); diff --git a/data/bands.pl b/data/bands.pl index c394f390..7ce539d1 100644 --- a/data/bands.pl +++ b/data/bands.pl @@ -12,6 +12,7 @@ # It is up to YOU to make sure that it makes sense! # + %bands = ( '160m' => bless( { band => [ 1800, 2000 ], cw => [ 1800, 1830 ], @@ -130,7 +131,7 @@ ssb => [47087000, 47089000], }, 'Bands'), - 'band1' => bless ( { band => [47000, 68000], + 'band1' => bless ( { band => [47000, 49999, 52000, 68000], }, 'Bands'), 'band2' => bless ( { band => [87500, 108000], -- 2.43.0