#!/usr/bin/perl # by -Sx- :: Run this as cron - # 0 0 * * 1 /usr/bin/MoonPhases > /dev/null 2>&1 # # ... the code was designed for my site, but you could adapt the HTML to your needs... # # The main logic - minus the HTML: # # use Astro::MoonPhase; # my @phases = phasehunt(); # print "New Moon = ", scalar(localtime($phases[0])), "\n"; # print "First quarter = ", scalar(localtime($phases[1])), "\n"; # print "Full moon = ", scalar(localtime($phases[2])), "\n"; # print "Last quarter = ", scalar(localtime($phases[3])), "\n"; # print "New Moon = ", scalar(localtime($phases[4])), "\n"; # use Astro::MoonPhase; my $dataLine; my @phases = phasehunt(); $dataLine .= "
  • New Moon ::  " . scalar(localtime($phases[0])) . "\n"; $dataLine .= "
  • First quarter ::  " . scalar(localtime($phases[1])) . "\n"; $dataLine .= "
  • Full moon ::  " . scalar(localtime($phases[2])) . "\n"; $dataLine .= "
  • Last quarter ::  " . scalar(localtime($phases[3])) . "\n"; $dataLine .= "
  • New Moon ::  " . scalar(localtime($phases[4])) . "\n"; $homeDir = '/usr/local/Forsaken/Perl_Code/1/src'; $fileName = '/moonPhases.html'; open (SXFILE, ">$homeDir$fileName") or die "Cannot open handle for $homeDir$fileName ... $!"; print SXFILE<<_PrimaryHTML_; Moon Phases Jacksonville, Fl
    Moon Phase for Jacksonville, Florida ... by -Sx-
    $dataLine
    _PrimaryHTML_ close (SXFILE) or die "Cannot close handle for $homeDir$fileName ... $!"; __END__