projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0b3e23b
)
changed sh/moon label to RGain Db
author
djk
<djk>
Mon, 22 Nov 1999 00:09:44 +0000
(
00:09
+0000)
committer
djk
<djk>
Mon, 22 Nov 1999 00:09:44 +0000
(
00:09
+0000)
cmd/show/moon.pl
patch
|
blob
|
history
perl/Messages
patch
|
blob
|
history
diff --git
a/cmd/show/moon.pl
b/cmd/show/moon.pl
index b1e4feb4fc0d64780845c441a0e2a1a66fc0e7c1..d26a96536ef8109ca8c26a3af0fd71eb45240d11 100644
(file)
--- a/
cmd/show/moon.pl
+++ b/
cmd/show/moon.pl
@@
-48,7
+48,7
@@
push @out, $self->msg('moon');
foreach $l (@in) {
my ($rise, $set, $az, $dec, $loss )=Sun::rise_set($yr,$month,$day,$hr,$min,$l->[1],$l->[2],1);
$l->[3] =~ s{(-\d+|/\w+)$}{};
foreach $l (@in) {
my ($rise, $set, $az, $dec, $loss )=Sun::rise_set($yr,$month,$day,$hr,$min,$l->[1],$l->[2],1);
$l->[3] =~ s{(-\d+|/\w+)$}{};
- push @out,sprintf("%-6.6s %-30.30s %s %s %6.1f %6.1f %3.1f", $l->[3], $l->[0], $rise, $set, $az, $dec, $loss);
+ push @out,sprintf("%-6.6s %-30.30s %s %s %6.1f %6.1f
%3.1f", $l->[3], $l->[0], $rise, $set, $az, $dec, $loss);
}
}
diff --git
a/perl/Messages
b/perl/Messages
index efbc033f5ad1c24e0041fe297b65a7871b1e1e69..ded87db7588d74faf120a3e31b27a5f2dd7e47db 100644
(file)
--- a/
perl/Messages
+++ b/
perl/Messages
@@
-109,7
+109,7
@@
package DXM;
msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]',
msgu => 'usage: msg <cmd> <msgno> data...',
merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]',
msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]',
msgu => 'usage: msg <cmd> <msgno> data...',
merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]',
- moon => 'Location Rise Set Azim Elev
Loss
dB',
+ moon => 'Location Rise Set Azim Elev
RGain
dB',
namee1 => 'Please enter your name, set/name <your name>',
namee2 => 'Can\'t find user $_[0]!',
name => 'Your name is now \"$_[0]\"',
namee1 => 'Please enter your name, set/name <your name>',
namee2 => 'Can\'t find user $_[0]!',
name => 'Your name is now \"$_[0]\"',