changed sh/moon label to RGain Db

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+)$}{};
-       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]',
-                               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]\"',