projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d465d78
)
improve wcy command
author
minima
<minima>
Mon, 17 Dec 2001 18:34:54 +0000
(18:34 +0000)
committer
minima
<minima>
Mon, 17 Dec 2001 18:34:54 +0000
(18:34 +0000)
Changes
patch
|
blob
|
history
cmd/wcy.pl
patch
|
blob
|
history
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
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=======================================================================
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');
# 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^%
2
d^%2d^%2d^%3d^%s^%s^%s^%s^%s^%s^", @field;
+my $s = sprintf "%s^%s^%02d^%3d^%
3
d^%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]);
WCY::update($d, @field[2..12]);
DXProt::send_wcy_spot($self, $s, $d, @field[2..12]);
$self->wcy($s, 0, @field[1..12]);