<%args>
$derivedObj => undef
</%args>

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

if (ref($derivedObj)) {
    $args = join(' ', @{$derivedObj});
}
else {
    $args = $derivedObj;
}

# Restore derived object and redirect STDERR to STDOUT    
$cmd = "restore_do --inst $dbname $args 2>&1";
@result = `$cmd`;

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