<%args>
$tracklet => undef
$neotracklet => undef
</%args>

<%init>
use Data::Dumper;
my $inst = $m->notes('INST');
my $dbname = $inst->dbname;
my @stuff;
my @neostuff;
my $args;
my $cmd;
my $neocmd;
my $did;

if ($tracklet) {
    if (ref($tracklet)) {
        $args = join(' ', @{$tracklet});
    }
    else {
        $args = $tracklet;
    }
    $cmd = "mpc_sub --instance=$dbname --submitter=$ENV{REMOTE_USER} $args";
    @stuff = `$cmd`;
    $did = 1;
}

if ($neotracklet) {
    if (ref($neotracklet)) {
        $args = join(' ', @{$neotracklet});
    }
    else {
        $args = $neotracklet;
    }
    $neocmd = "mpc_sub --instance=$dbname --neobatch --submitter=$ENV{REMOTE_USER} $args";
    @neostuff = `$neocmd`;
    $did = 1;
}

if (!$did) {
    @stuff = ("Nothing to submit -- did you forget to check some objects?");
}

$r->content_type('text/plain');
$m->clear_buffer;
#$m->print(Dumper($tracklet), $cmd, "\n", @stuff);
$m->print($cmd, "\n", @stuff, "\n\n", $neocmd, "\n", @neostuff);
$m->abort;
</%init>
