MOPS Solar System Simulation
MJD <% "$mjd ($date)" %>
| Field ID
| Num Detections
| RA (deg)
| DEC (deg)
| Time (MJD)
| Detections
| Motion
|
% foreach my $item (@goo) {
| <% $item->{field_id} %> |
<% $item->{num_dets} %> |
<% $item->{ra} %> |
<% $item->{dec} %> |
<% $item->{time} %> |
MPC |
MITI |
PNG |
EPS |
% }
<%args>
$mjd
<%init>
use Astro::Time;
# Get basic obsTool summary output.
$m->comp('/mops_env');
my @stuff = `obsTool --mjd $mjd`;
my @cal = mjd2cal($mjd);
my $date = sprintf "%4d-%02d-%02d", @cal[2, 1, 0];
my @things;
my @goo;
@stuff = grep !/^#/, @stuff;
foreach (@stuff) {
@things = split /\s+/, $_;
push @goo, {
field_id => $things[0],
num_dets => $things[1],
time => $things[2],
ra => $things[3],
dec => $things[4],
};
}