X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fdx.pl;h=57271e8f874a192713ee5e1ac5a1c731d3b50be2;hb=290cd395e4bac4a92dfc3c40a2a3fd7de93110eb;hp=f9d03f623dc0956676e068216691330e5bf03db7;hpb=6896890cedfefd163cec63c5dcde207e28c87472;p=spider.git

diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl
index f9d03f62..57271e8f 100644
--- a/cmd/show/dx.pl
+++ b/cmd/show/dx.pl
@@ -20,6 +20,7 @@ my $info;
 my $expr;
 my $hint;
 my $dxcc;
+my $real;
 my $fromdxcc;
 my ($doqsl, $doiota, $doqra);
 
@@ -37,6 +38,10 @@ while ($f = shift @list) {		# next field
 		$dxcc = 1;
 		next;
 	}
+	if (lc $f eq 'rt' || $f =~ /^real/i) {
+		$real = 1;
+		next;
+	}
 	if (lc $f eq 'on' && $list[0]) { # is it freq range?
 		#    print "yup freq\n";
 		if ($list[0] =~ m|^(\d+)(?:\.\d+)?[-/](\d+)(?:\.\d+)?$|) {
@@ -239,7 +244,11 @@ my @res = Spot::search($expr, $fromday, $today, $from, $to, $hint);
 my $ref;
 my @dx;
 foreach $ref (@res) {
-	push @out, Spot::formatl(@$ref);
+	if ($real) {
+		push @out, $self->format_dx_spot(@$ref);
+	} else {
+		push @out, Spot::formatl(@$ref);
+	}
 }
 
 return (1, @out);