Changeset 16752 for trunk/ippScripts/scripts/ipp_serial_chip.pl

Timestamp:

Feb 28, 2008, 5:02:12 PM (18 years ago)

Author:

Paul Price

Message:

Need to create the output directory

File:

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

trunk/ippScripts/scripts/ipp_serial_chip.pl

@@ -7 +7 @@
 use PS::IPP::Metadata::Config;
 use PS::IPP::Metadata::List qw( parse_md_list );
+use PS::IPP::Config qw( caturi );
 use Data::Dumper;
 
@@ -34 +35 @@
 
 my $mdcParser = PS::IPP::Metadata::Config->new; # Metadata config parser
+my $ipprc = PS::IPP::Config->new; # IPP Configuration
 
 # Look for programs we need
@@ -73 +75 @@
             $workdir = $workdir_default unless (defined $workdir or $workdir ne "NULL");
 
-            my $outroot = $workdir . '/' . ${exp_tag} . '/' . ${exp_tag} . '.ch.' . ${chip_id};
+            my $outroot = caturi( $workdir, $exp_tag, "$exp_tag.ch.$chip_id" );
+            $ipprc->outroot_prepare( $outroot );
 
             my $command = "$chip --chip_id $chip_id --exp_id $exp_id --exp_tag $exp_tag --class_id $class_id --uri $uri --dbname $dbname --camera $camera --outroot $outroot";