X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fdx.pl;h=c98699969ad095cc4518eab077ee5bf936009821;hb=8942c27356acc5d5f5a20134461bcf7e6bd6a044;hp=06cc5d041e8ab2d51e3bf8e86f3c3e2c6e9c73b9;hpb=8ac487c0c3297023df07493b11fe166d4c857081;p=spider.git

diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl
index 06cc5d04..c9869996 100644
--- a/cmd/show/dx.pl
+++ b/cmd/show/dx.pl
@@ -32,11 +32,12 @@ while ($f = shift @list) {		# next field
 	if (lc $f eq 'on' && $list[0]) { # is it freq range?
 		#    print "yup freq\n";
 		my @r = split '/', $list[0];
-		#	print "r0: $r[0] r1: $r[1]\n";
-		@freq = Bands::get_freq($r[0], $r[1]);
-		if (@freq) {			# yup, get rid of extranous param
-			#	  print "freq: ", join(',', @freq), "\n";
+			# print "r0: $r[0] r1: $r[1]\n";
+		my @fr = Bands::get_freq($r[0], $r[1]);
+		if (@fr) {			# yup, get rid of extranous param
+			#	  print "freq: ", join(',', @fr), "\n";
 			shift @list;
+			push @freq, @fr;    # add these to the list
 			next;
 		}
 	}
@@ -50,7 +51,7 @@ while ($f = shift @list) {		# next field
 		$info = shift @list;
 		next;
 	}
-	if (lc $f eq 'spotter' && $list[0]) {
+	if ((lc $f eq 'spotter' || lc $f eq 'by') && $list[0]) {
 		#    print "got spotter\n";
 		$spotter = uc shift @list;
 		next;