<%args> $trkId $brief => undef <%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;