mirror of
https://salsa.debian.org/dskoll/remind.git
synced 2026-04-17 14:59:20 +02:00
33 lines
800 B
Plaintext
33 lines
800 B
Plaintext
# File for giving moon phase info.
|
|
#
|
|
# This file is part of REMIND.
|
|
# Copyright (C) 1992-2018 by Dianne Skoll
|
|
|
|
set now now()
|
|
|
|
banner %
|
|
|
|
MSG <HEAD>%
|
|
MSG <TITLE>Moon over [$Location]</TITLE>%
|
|
MSG </HEAD>%
|
|
|
|
MSG <BODY>
|
|
MSG <H1>Moon over [$Location]</H1>
|
|
|
|
set ndate moondate(0)
|
|
set ntime moontime(0)
|
|
set fdate moondate(2)
|
|
set ftime moontime(2)
|
|
|
|
fset t(x) wkday(x)+", "+day(x)+" "+mon(x)+", "+year(x)
|
|
msg Today is %w, %d %m, %y.<P>
|
|
msg The local time in [$Location] is [now].<P>
|
|
|
|
if ndate < fdate
|
|
msg The next new moon is on [t(ndate)] at [ntime], [$Location] time.<P>
|
|
msg The next full moon is on [t(fdate)] at [ftime], [$Location] time.<P>
|
|
else
|
|
msg The next full moon is on [t(fdate)] at [ftime], [$Location] time.<P>
|
|
msg The next new moon is on [t(ndate)] at [ntime], [$Location] time.<P>
|
|
endif
|