<& /htmlheader &>
<& modelheader &>
<%perl>
if ($all) {
print foreach (@stuff); # print all rows
}
else {
print foreach (@stuff[0..99]); # print first 100 rows
}
<& /htmlfooter &>
<%args>
$all => undef
<%init>
my $model = $m->notes('MODEL');
my @stuff = `catOrbits --instance $model --format=MITI --neos --nonsynthetic --derived --resid --classification`;
# Put in table tags.
my @elems;
my $zug; # tmp str
foreach my $line (@stuff) {
@elems = split /\s+/, $line;
# Format for precision.
$elems[0] = sprintf "%.5f", $elems[0]; # q
$elems[1] = sprintf "%.4f", $elems[1]; # e
$elems[2] = sprintf "%.4f", $elems[2]; # i
$elems[3] = sprintf "%.6f", $elems[3]; # node
$elems[4] = sprintf "%.6f", $elems[4]; # argPeri
$elems[5] = sprintf "%.6f", $elems[5]; # timePeri
$elems[6] = sprintf "%.3f", $elems[6]; # hV
$elems[7] = sprintf "%.6f", $elems[7]; # epoch
$elems[9] = sprintf "%.2f", $elems[9]; # residual
$elems[10] = qq{Check}; # MPCheck link
push @elems, qq{Detections};
push @elems, qq{History};
my $a_AU = $elems[1] < 1 ? sprintf "%.4f", $elems[0] / (1 - $elems[1]) : 'N/A';
$line = '| ' . join(' | ', $elems[0], $a_AU, @elems[1..$#elems]) . " |
\n";
}