From: minima <minima>
Date: Sat, 15 Dec 2001 11:02:34 +0000 (+0000)
Subject: added spaces back in for clx
X-Git-Tag: R_1_50~137
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4c4e8bb5564df1acbdce0b67f27bd78d924b4cef;p=spider.git

added spaces back in for clx
---

diff --git a/Changes b/Changes
index 145b7708..28f1d675 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+15Dec01=======================================================================
+1. added superfluous spaces back into PC73 for the benefit of clx
 14Dec01=======================================================================
 1. make Spanish in set/lang & Messages 'es' instead of 'sp'
 2. added prototype WCY and WWV commands (for qualified users only)
diff --git a/cmd/wcy.pl b/cmd/wcy.pl
index c874b2e2..dc52b6aa 100644
--- a/cmd/wcy.pl
+++ b/cmd/wcy.pl
@@ -60,7 +60,7 @@ my $today = cldate($main::systime);
 # 14-Dec-2001   15   220   3   1     0 212 act   qui       no <DK0WCY-3>
 my @field = ('PC73',$today,$hour,$args{sf},$args{a},$args{k},$args{expk},$args{r},$args{sa},$args{gmf},$args{au}, $self->call ,$main::mycall, 'H99');
 
-my $s = join('^', @field) . '^';
+my $s = sprintf "%s^%s^%02d^%3d^%2d^%2d^%2d^%3d^%s^%s^%s^%s^%s^%s^", @field;
 WCY::update($d, @field[2..12]);
 DXProt::send_wcy_spot($self, $s, $d, @field[2..12]);
 $self->wcy($s, 0, @field[1..12]);