<%args> $detection => undef <%init> use Data::Dumper; my $inst = $m->notes('INST'); my $dbname = $inst->dbname; my @stuff; my $args; my $cmd; my $did; if (ref($detection)) { $args = join(' ', @{$detection}); } else { $args = $detection; } $cmd = "echo $args"; @stuff = `$cmd`; $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"); $m->abort;