Changeset 28576 for trunk/ippScripts

Timestamp:

Jul 1, 2010, 1:55:23 PM (16 years ago)

Author:

Paul Price

Message:

Fix file type.

File:

• trunk/ippScripts/scripts/publish_file.pl (modified) (4 diffs)

trunk/ippScripts/scripts/publish_file.pl

@@ -83 +83 @@
 
 my ($dsFile, $dsFileName) = tempfile("/tmp/publish.$pub_id.ds.XXXX", UNLINK => !$save_temps );
+my $dsType = $mops ? "IPP-MOPS" : $product; # Type for DataStore
 
 my $comment;                    # Comment for exposure
@@ -230 +231 @@
                 print $mopsNegativeFile "$filename\n";
             } else {
-                print $dsFile "$filename|||$product|${skycell_id}.neg|\n";
+                print $dsFile "$filename|||$dsType|${skycell_id}.neg|\n";
             }
         }
@@ -241 +242 @@
         if (scalar keys %positive > 0) {
             my $output = mops_combine(\%positive, "$outroot.pos.mops", $mopsPositiveFileName);
-            print $dsFile "$output|||$product|positive|\n";
+            print $dsFile "$output|||$dsType|positive|\n";
         }
         if (scalar keys %negative > 0) {
             my $output = mops_combine(\%negative, "$outroot.neg.mops", $mopsNegativeFileName);
-            print $dsFile "$output|||$product|negative|\n";
+            print $dsFile "$output|||$dsType|negative|\n";
         }
     }
@@ -252 +253 @@
 close $dsFile;
 
-my $fileset_type = $mops ? "IPP-MOPS" : $product; # Type of fileset for DataStore
-
 unless ($no_update) {
-    my $command = "$dsreg --add pub.$pub_id.$stage.$stage_id --copy --abspath --product $product --type $fileset_type --list $dsFileName";
+    my $command = "$dsreg --add pub.$pub_id.$stage.$stage_id --copy --abspath --product $product --type $dsType --list $dsFileName";
     $command .= " --ps0 \"$comment\"" if defined $comment;