Changeset 16746 for trunk/ippScripts/scripts/ipp_serial_stack.pl

Timestamp:

Feb 28, 2008, 4:35:57 PM (18 years ago)

Author:

Paul Price

Message:

Using --outroot instead of --workdir.

File:

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

trunk/ippScripts/scripts/ipp_serial_stack.pl

@@ -27 +27 @@
 my ($dbname,                    # Database name to use
     $verbose,                   # Verbose operations?
+    $workdir_global,            # Global working directory
     $no_op,                     # No operations?
     $no_update,                 # No updating?
@@ -34 +35 @@
            'dbname=s' => \$dbname,
            'verbose' => \$verbose,
+           'workdir' => \$workdir_global,
            'no-op' => \$no_op,
            'no-update' => \$no_update,
@@ -75 +77 @@
         my $workdir = $item->{workdir};
         
-        my $command = "$stack_skycell --stack_id $stack_id --dbname $dbname";
+        $workdir = $workdir_global unless defined $workdir and $workdir ne "NULL";
+        die "No working directory specified.\n" unless defined $workdir;
+        
+        my $outroot = caturi( $workdir, "tess_$tess_id", $skycell_id, "$tess_id.$skycell_id.stk.$stack_id" );
+
+        my $command = "$stack_skycell --stack_id $stack_id --dbname $dbname --outroot $outroot";
         $command .= " --verbose" if defined $verbose;
         $command .= " --no-op" if defined $no_op;
         $command .= " --no-update" if defined $no_update;
         $command .= " --save-temps" if defined $save_temps;
-        $command .= " --workdir $workdir" if defined $workdir;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );