Changeset 25432

Timestamp:

Sep 17, 2009, 12:14:41 PM (17 years ago)

Author:

bills

Message:

Get rid of extra stack.$stack_id and diff.$diff_id in fileset names.

File:

• trunk/ippScripts/scripts/dist_make_fileset.pl (modified) (3 diffs)

trunk/ippScripts/scripts/dist_make_fileset.pl

@@ -79 +79 @@
 my $fs_tag = get_fileset_tag($ipprc, $stage, $stage_id, $dbname);
 
-&my_die("failed to lookup fileset tag", $dist_id, $prod_id, $PS_EXIT_UNKNOWN_ERROR) if !$fs_tag;
-
-my $fileset_name = "$fs_tag.$stage.$stage_id.$dist_id.$prod_id";
+&my_die("failed to lookup fileset tag", $dist_id, $prod_id, $PS_EXIT_UNKNOWN_ERROR) if !defined $fs_tag;
+
+my $fileset_name = "$fs_tag$stage.$stage_id.$dist_id.$prod_id";
 
 print "$fileset_name\n";
@@ -211 +211 @@
     my $dbname = shift;
 
-    if ($stage eq 'stack') {
-        return "stack.$stage_id";
-    } elsif ($stage eq 'diff') {
-        return "diff.$stage_id";
+    if (($stage eq 'stack') or ($stage eq 'diff')) {
+        return "";
     }
 
@@ -248 +246 @@
     my $tag = $ref->{exp_name};
 
-    return $tag;
+    return "$tag.";
 }