<%args>
$trkId
</%args>

<%init>
use LWP::UserAgent;
my $model = $m->notes('MODEL');

# Get MPC-formatted tracklet.
my @data = `mt --global_oid=$trkId --instance=$model --mpc --xd $trkId`;
my $data = join("\r\n", @data) . "\r\n";

# Get digest over HTTP from MPC.
my $url = 'http://scully.harvard.edu/cgi-bin/possneo.cgi';
my $ua = LWP::UserAgent->new(timeout => 600);
$ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.1) Gecko/20061208 Firefox/2.0.0.1");
my $response = $ua->post(
    $url,
    { TextArea => $data },
);
my $html = $response->content;

# Run MOPS digest2.
my @mops_digest2 = `neodigest $model $trkId all`;

# Emit.
$r->content_type('text/plain');
$m->clear_buffer;
$m->print($html);
$m->print("\r\n--- INPUT DATA ---\r\n\r\n");
$m->print(@data);
$m->print("\r\n--- MOPS OUTPUT ---\r\n\r\n");
$m->print(@mops_digest2);

$m->abort;
</%init>