<& /htmlheader, title => 'MPC Observation Search' &> % if ($observations) {
% if (!@res) {

No matches found.

% } % else { Matching designations:

% foreach my $r (@res) { % my ($mops_desig, $desig) = $r =~ /(\w+)\s+(\S+)/; <% qq{$mops_desig $desig} %>
% } # for

% } # if !@res

% } # if obs

MPC Observation Search

Paste your MPC observations below:

<& /htmlfooter &> <%args> $observations => '' <%init> use FileHandle; use File::Temp; my @res; my $obstmp; my $cmd = 'no'; # Write obs to temp file. if ($observations) { $obstmp = new File::Temp(dir => '/tmp', TEMPLATE => 'lmpcXXXXXX', UNLINK => 1); print $obstmp $observations; $obstmp->close; # Crank obs through searcher. my $f = $obstmp->filename; $cmd = "lookup_sub --instance=psmops_export --multi < $f"; (@res) = `$cmd`; }