X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=8abd8d4eeadc586b387b71974c38951be9f3069e;hp=1960a8905f36a4561e1a23a41790328c2f3088fa;hb=d5bbb8b5085e57870503e56c79cdebb26122c915;hpb=eb38b7e683f110d295e49b2d1aa75cb79f56fa41

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 1960a890..8abd8d4e 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -1057,7 +1057,21 @@ sub format_dx_spot
 		}
 	}
 
-	return sprintf "DX de %-8.8s%10.1f  %-12.12s %-s $t$slot2", "$_[4]:", $_[0], $_[1], $comment;
+	my $o = sprintf("%-9s", $_[4] . ':');
+	my $qrg = sprintf "%8.1f", $_[0];
+	if (length $qrg >= 9) {
+		while (length($o)+length($qrg) > 17 && $o =~ / $/) {
+			chop $o;
+		}
+	}
+	my $spot = sprintf "%-12s", $_[1];
+	my $front = "DX de $o $qrg  $spot";
+	while (length($front) > 38 && $front =~ /  $/) {
+		chop $front;
+	}
+
+	
+	return sprintf "$front %-s $t$slot2", $comment;
 }