<%args>
$trkId
$brief => undef
</%args>

<%init>
my $model = $m->notes('MODEL');
my $OORB_DATA = $ENV{OORB_DATA} || '/home/mops/MOPS_DEVEL/data/oorb';
my $cmd = "env OORB_DATA=$OORB_DATA neoburn $model T$trkId";
my @stuff = `$cmd`;

if ($brief) {
    my @foo;
    my @z;
    foreach my $line (@stuff) {
        next if $line =~ /^#/;
        $line =~ s/^\s+//g;     # trim leading whitespace
        @z = split /\s+/, $line;
        push @foo, sprintf("%-20s %0.7f\r\n", @z[1..2]) if (@z == 3 and $z[2] > 0);
    }
    @stuff = @foo;
}

$r->content_type('text/plain');
$m->clear_buffer;
$m->print(@stuff);
$m->abort;
</%init>