From 5ba129dc8a6560155ab5560b2f603d161d34cecb Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 22 Nov 1999 00:09:44 +0000 Subject: [PATCH] changed sh/moon label to RGain Db --- cmd/show/moon.pl | 2 +- perl/Messages | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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]\"', -- 2.34.1