<%args> $trkId $mag_limit => 22.5 $radius_arcmin => 5 $brief => undef <%init> my $model = $m->notes('MODEL'); # hacky hacky. We know that mpcheck will name detections MOPS000, MOPS001 for MPC submission, so change # them back to tracklet ID for readability. my $filter_str = $brief ? '--brief' : ''; my $cmd = "mt --miti --xd T$trkId --instance=$model | miti2mpc --mpcheck | mpcheck $filter_str --mag_limit=$mag_limit --radius_arcmin=$radius_arcmin --insert_html --object_name=FOO | perl -pe 's/MOPS\\d+/T$trkId/'"; my @stuff = `$cmd`; $r->content_type('text/html'); $m->clear_buffer; $m->print(@stuff); $m->abort;