X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fbands.pl;h=d2b818aa0ce9ba5f433db5c090a25d1bc04cd719;hb=ae313f260d904cd45b58e4d1e620a49aef1a42c9;hp=5e71ec0f999b345371ad717940f2c68cf07e452b;hpb=3d29b1a4d4aab997da2deff10470068601744530;p=spider.git

diff --git a/cmd/show/bands.pl b/cmd/show/bands.pl
index 5e71ec0f..d2b818aa 100644
--- a/cmd/show/bands.pl
+++ b/cmd/show/bands.pl
@@ -1,6 +1,10 @@
 #
 # display the band data
 #
+# Copyright (c) 1998 - Dirk Koopman G1TLH
+#
+# $Id$
+#
 
 #$DB::single = 1;
 
@@ -12,26 +16,26 @@ 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 $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();
-  foreach $band (@bands) {
-    my $ref = Bands::get_region($band);
-    my $s = sprintf("%10s: ", $band ) . join(' ', @{$ref}); 
-    push @out, $s;
-  }
+	@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 $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();
+	foreach $band (@bands) {
+		my $ref = Bands::get_region($band);
+		my $s = sprintf("%10s: ", $band ) . join(' ', @{$ref}); 
+		push @out, $s;
+	}
 }
 
 return (1, @out);