Changeset 24125 for trunk/ippScripts/scripts/dist_make_fileset.pl
- Timestamp:
- May 9, 2009, 2:19:48 PM (17 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/dist_make_fileset.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/dist_make_fileset.pl
r24104 r24125 91 91 &my_die("dbinfo file for dist run $dbinfo_file not found", $dist_id, $prod_id, $PS_EXIT_UNKNOWN_ERROR); 92 92 } 93 print "dbinfo file $dbinfo_file exists\n"; 93 print "dbinfo file $dbinfo_file exists\n" if $verbose; 94 95 # make sure that the dirinfo file for this run exists 96 my $dirinfo_file = "dirinfo.$stage.$stage_id.mdc"; 97 if (! -e "$dist_dir/$dirinfo_file" ) { 98 &my_die("dirinfo file for dist run $dirinfo_file not found", $dist_id, $prod_id, $PS_EXIT_UNKNOWN_ERROR); 99 } 100 print "dirinfo file $dirinfo_file exists\n" if $verbose; 94 101 95 102 # open the dsreg file list … … 97 104 98 105 # add the dbinfo file to the list 99 # XXX: change type from text to dbinfo once we descide ontypes106 # XXX: change type from text to dbinfo and dirinfo once we define the types 100 107 print $listFile "$dbinfo_file|||text|dbinfo|\n"; 108 print $listFile "$dirinfo_file|||text|dirinfo|\n"; 101 109 102 110 my $components;
Note:
See TracChangeset
for help on using the changeset viewer.
