Changeset 24538
- Timestamp:
- Jun 24, 2009, 10:57:17 AM (17 years ago)
- File:
-
- 1 edited
-
trunk/tools/ipp_apply_burntool.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/ipp_apply_burntool.pl
r24018 r24538 111 111 foreach my $file (@files) { 112 112 my $exp_id = $file->{exp_id}; 113 if ($skip_burned and ($file->{user_1} > 0.5)) { next; }114 113 115 114 my $rawImfile = $file->{uri}; … … 147 146 } 148 147 149 # uncompress the image (do we need to check if it is compressed?) 150 my $status = vsystem ("$funpack -S $rawImfileReal > $tmpImfileReal", $REALRUN); 151 if ($status) { 152 &my_die("failed on funpack"); 153 } 154 155 if ($RAWTABLES) { 156 $status = vsystem ("$burntool $tmpImfileReal out=$artImfileReal $prevFileOpt", $REALRUN); 157 } else { 158 $status = vsystem ("$burntool $tmpImfileReal $prevFileOpt", $REALRUN); 159 } 160 if ($status) { 161 &my_die("failed on burntool"); 162 } 163 164 # compress the image (do we need to check if it is compressed?) 165 $status = vsystem ("$fpack -S $tmpImfileReal > $outImfileReal", $REALRUN); 166 if ($status) { 167 &my_die("failed on fpack"); 168 } 169 170 $status = vsystem ("$regtool -dbname $dbname -updateprocessedimfile -exp_id $exp_id -class_id $class_id -user_1 1.0", 1); 171 if ($status) { 172 &my_die("failed to update imfile"); 173 } 174 148 if (! ($skip_burned and ($file->{user_1} > 0.5))) { 149 # uncompress the image (do we need to check if it is compressed?) 150 my $status = vsystem ("$funpack -S $rawImfileReal > $tmpImfileReal", $REALRUN); 151 if ($status) { 152 &my_die("failed on funpack"); 153 } 154 155 if ($RAWTABLES) { 156 $status = vsystem ("$burntool $tmpImfileReal out=$artImfileReal $prevFileOpt", $REALRUN); 157 } else { 158 $status = vsystem ("$burntool $tmpImfileReal $prevFileOpt", $REALRUN); 159 } 160 if ($status) { 161 &my_die("failed on burntool"); 162 } 163 164 # compress the image (do we need to check if it is compressed?) 165 $status = vsystem ("$fpack -S $tmpImfileReal > $outImfileReal", $REALRUN); 166 if ($status) { 167 &my_die("failed on fpack"); 168 } 169 170 $status = vsystem ("$regtool -dbname $dbname -updateprocessedimfile -exp_id $exp_id -class_id $class_id -user_1 1.0", 1); 171 if ($status) { 172 &my_die("failed to update imfile"); 173 } 174 } 175 175 # save the artifact file for the next image 176 176 if ($RAWTABLES) {
Note:
See TracChangeset
for help on using the changeset viewer.
