#!/usr/bin/perl 

use Time::Piece;
use Astro::Coord::ECI::Utils 'deg2rad';
use Astro::Coords;
use Astro::Telescope;
use Log::Log4perl;

my $file = '/home/hogan/Documents/hogan/logs/3.log4perl.txt';

# unlink $file or warn "Could not unlink $file: $!";
my $log_conf4 = "/home/hogan/Documents/hogan/logs/conf_files/3.conf";
Log::Log4perl::init($log_conf4);    #info
my $logger = Log::Log4perl->get_logger();
$logger->info("$0");

$logger->info("Object\tAzimuth\tElevation");
$logger->info("Right Ascension\tDeclination ");

for my $name (qw/Mars Moon/) {

  my $planet = Astro::Coords->new( planet => $name );

  $planet->datetime( Time::Piece->new );

  $planet->telescope(
    Astro::Telescope->new(
      Name => 'boise',
      Long => deg2rad(-116.2),    #43.615833, -116.201667
      Lat  => deg2rad(43.61),
      Alt  => 8321,               #meters above sea level boise
    )
  );

  my $az = $planet->az( format => 'deg' );
  my $el = $planet->el( format => 'deg' );
  $logger->info("$name\t$az\t $el");

  my $planet2 = Astro::Coords->new( planet => $name );

  $planet2->datetime( Time::Piece->new );

  my $ra  = $planet2->ra( format => q/deg/ );
  my $dec = $planet2->dec( format => q/deg/ );

  $logger->info("$name\t$ra\t$dec");

}
my $t  = localtime;
my $jd = $t->julian_day;

$logger->info("Time is $t");
$logger->info("Julian day is $jd");
__END__