Changeset 10419 for trunk/ippScripts/scripts/phase2.pl

Timestamp:

Dec 3, 2006, 8:42:44 AM (20 years ago)

Author:

eugene

Message:

added ipprc.convert_filename method, replaced workdir conversions with convert_filename

File:

• trunk/ippScripts/scripts/phase2.pl (modified) (2 diffs)

trunk/ippScripts/scripts/phase2.pl

@@ -52 +52 @@
 my ($vol, $dir, $file) = File::Spec->splitpath( $input );
 my $outputRoot =  $expTag . '.p2';
-$outputRoot = File::Spec->rel2abs( File::Spec->catpath( $vol, $dir, $outputRoot ), $ipprc->workdir() );
-$input = File::Spec->rel2abs( $input, $ipprc->workdir() );
+$outputRoot = File::Spec->catpath( $vol, $dir, $outputRoot );
+$outputRoot = $ipprc->convert_filename ($outputRoot);
+$input = $ipprc->convert_filename ( $input );
 my $outputImage = $ipprc->filename("PPIMAGE.OUTPUT", $outputRoot, $classId);
 my $outputBin1 = $ipprc->filename("PPIMAGE.BIN1", $outputRoot, $classId);
@@ -87 +88 @@
 
 # Add the processed file to the database
-$outputImage = File::Spec->abs2rel( $outputImage, $ipprc->workdir() );
-$outputBin1 = File::Spec->abs2rel( $outputBin1, $ipprc->workdir() );
-$outputBin2 = File::Spec->abs2rel( $outputBin2, $ipprc->workdir() );
+$outputImage = $ipprc->convert_filename ( $outputImage);
+$outputBin1  = $ipprc->convert_filename ( $outputBin1 );
+$outputBin2  = $ipprc->convert_filename ( $outputBin2 );
 unless ($no_update) {
     # Command to run dettool