From 33d77f9a645c054669d6b6fdfcefb09f8dd9c747 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 17 Dec 2001 18:34:54 +0000 Subject: [PATCH] improve wcy command --- Changes | 1 + cmd/wcy.pl | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 22131356..40c4fd1f 100644 --- 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 dc52b6aa..17f8d6a3 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 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]); -- 2.34.1