From: djk Date: Mon, 22 Nov 1999 00:09:44 +0000 (+0000) Subject: changed sh/moon label to RGain Db X-Git-Tag: R_1_36~6 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ba129dc8a6560155ab5560b2f603d161d34cecb;p=spider.git changed sh/moon label to RGain Db --- diff --git a/cmd/show/moon.pl b/cmd/show/moon.pl index b1e4feb4..d26a9653 100644 --- 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 efbc033f..ded87db7 100644 --- a/perl/Messages +++ b/perl/Messages @@ -109,7 +109,7 @@ package DXM; msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]', msgu => 'usage: msg 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 ', namee2 => 'Can\'t find user $_[0]!', name => 'Your name is now \"$_[0]\"',