Index: trunk/pstamp/scripts/dquery_finish.pl
===================================================================
--- trunk/pstamp/scripts/dquery_finish.pl	(revision 24831)
+++ trunk/pstamp/scripts/dquery_finish.pl	(revision 27578)
@@ -20,11 +20,12 @@
 use PS::IPP::Config qw( :standard );
 
-my ( $req_id, $req_name, $req_file, $product, $dbname, $dbserver, $verbose, $save_temps );
+my ( $req_id, $req_name, $req_file, $product, $out_dir, $dbname, $dbserver, $verbose, $save_temps );
 
 GetOptions(
            'req_id=s'   => \$req_id,
+           'req_name=s' => \$req_name,
            'req_file=s' => \$req_file,
-           'req_name=s' => \$req_name,
            'product=s'  => \$product,
+           'out_dir=s'  => \$out_dir,
 	   'dbname=s'   => \$dbname,
 	   'dbserver=s' => \$dbserver,
@@ -40,4 +41,5 @@
 $err .= "--req_name is required\n" if !$req_name;
 $err .= "--product is required\n" if !$product;
+$err .= "--out_dir is required\n" if !$out_dir;
 
 die "$err" if $err;
@@ -67,4 +69,5 @@
     exit 0;
 }
+if (0) {
 my $prod_dir = "$outputDataStoreRoot/$product";
 if (! -e $prod_dir ) {
@@ -74,4 +77,5 @@
 }
 my $out_dir = "$prod_dir/$req_name";
+}
 if (! -e $out_dir ) {
     # something must have gone wrong at the parse stage
@@ -113,4 +117,5 @@
 }
 
+# XXX: have the jobs produce the reglist as with postage stamp requests
 my ($REGLIST, $reg_list) = tempfile("$out_dir/reqlist.XXXX", UNLINK => !$save_temps);
 foreach my $job (@jobs) {
@@ -131,4 +136,5 @@
 if (-s $reg_list) {
     my $command = "$dsreg --add $req_name --product $product --list $reg_list";
+    $command .= " --copy --datapath $out_dir";
     $command .= " --type MOPS_DETECTABILITY_RESPONSE";
     $command .= " --dbname $dbname" if $dbname;