Changeset 16746 for trunk/ippScripts/scripts/ipp_serial_warp.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_warp.pl (modified) (4 diffs)

trunk/ippScripts/scripts/ipp_serial_warp.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?
@@ -33 +34 @@
            'dbname=s' => \$dbname,
            'verbose' => \$verbose,
+           'workdir' => \$workdir_global,
            'no-op' => \$no_op,
            'no-update' => \$no_update,
@@ -82 +84 @@
         $command .= " --no-op" if defined $no_op;
         $command .= " --no-update" if defined $no_update;
-        $command .= " --workdir $workdir" if defined $workdir;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );
@@ -108 +109 @@
         my $camera = $item->{camera};
         
-        my $command = "$warp_skycell --warp_id $warp_id --skycell_id $skycell_id --tess_id $tess_id --camera $camera --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.wrp.$warp_id" );
+
+        my $command = "$warp_skycell --warp_id $warp_id --skycell_id $skycell_id --tess_id $tess_id --camera $camera --dbname $dbname --outroot $outroot";
         $command .= " --verbose" if defined $verbose;
         $command .= " --no-op" if defined $no_op;
         $command .= " --no-update" if defined $no_update;
-        $command .= " --workdir $workdir" if defined $workdir and $workdir ne "NULL";
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );