Changeset 27859 for trunk/pstamp/scripts/dquery_finish.pl
- Timestamp:
- May 4, 2010, 4:10:59 PM (16 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/scripts/dquery_finish.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/scripts/dquery_finish.pl
r27578 r27859 119 119 # XXX: have the jobs produce the reglist as with postage stamp requests 120 120 my ($REGLIST, $reg_list) = tempfile("$out_dir/reqlist.XXXX", UNLINK => !$save_temps); 121 121 122 foreach my $job (@jobs) { 122 123 my $job_id = $job->{job_id}; … … 127 128 # the job generated a response file put it into the Data Store 128 129 print $REGLIST "$response_file|||table|\n"; 130 131 # do the same if we have an error file. Should the parse data be uploaded as well? 132 my $err_file = "parse_error.txt"; 133 if (-e "$out_dir/$err_file") { 134 print $REGLIST "$err_file|||text|\n"; 135 } 129 136 } else { 130 137 print STDERR "detect_query response file for job $job_id not found\n" if $verbose; … … 138 145 $command .= " --copy --datapath $out_dir"; 139 146 $command .= " --type MOPS_DETECTABILITY_RESPONSE"; 147 $command .= " --ps0 $req_id"; 140 148 $command .= " --dbname $dbname" if $dbname; 141 149
Note:
See TracChangeset
for help on using the changeset viewer.
