projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
66046ec
)
added spaces back in for clx
author
minima
<minima>
Sat, 15 Dec 2001 11:02:34 +0000
(11:02 +0000)
committer
minima
<minima>
Sat, 15 Dec 2001 11:02:34 +0000
(11:02 +0000)
Changes
patch
|
blob
|
history
cmd/wcy.pl
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 145b77088e2e5ae5883546a37316270b0f81b0ea..28f1d6758085782cf4c6ed798267badda5b13ef3 100644
(file)
--- 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)
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 c874b2e245b612e588cb86ed7633bcf44664db7e..dc52b6aa78eaddf86994a4de9d68a2034ec09330 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 =
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]);
WCY::update($d, @field[2..12]);
DXProt::send_wcy_spot($self, $s, $d, @field[2..12]);
$self->wcy($s, 0, @field[1..12]);