improve wcy command

diff --git a/Changes b/Changes
index 22131356f75cb8b0897157336833e09dcc1ec325..40c4fd1ffc747141e13167bde94f523c47a0e54e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -5,6 +5,7 @@ in convkeps.pl.
 file from a msg (hopefully containing 2 Line Nasa keps) and then load - all
 in one step. Added load/keps to the help files
 3. Updated spanish Messages
+4. Improve wcy command from Stephan DK8LV's input
 15Dec01=======================================================================
 1. added superfluous spaces back into PC73 for the benefit of clx
 14Dec01=======================================================================

diff --git a/cmd/wcy.pl b/cmd/wcy.pl
index dc52b6aa78eaddf86994a4de9d68a2034ec09330..17f8d6a36a897d1ad7316a36382c539a014f0f5c 100644 (file)
--- 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 = sprintf "%s^%s^%02d^%3d^%2d^%2d^%2d^%3d^%s^%s^%s^%s^%s^%s^", @field;
+my $s = sprintf "%s^%s^%02d^%3d^%3d^%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]);