Changeset 13169 for trunk/ippScripts/scripts/warp_overlap.pl

Timestamp:

May 2, 2007, 3:33:19 PM (19 years ago)

Author:

Paul Price

Message:

Genericising dvo commands.

File:

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

trunk/ippScripts/scripts/warp_overlap.pl

@@ -56 +56 @@
 my $missing_tools;
 my $warptool = can_run('warptool') or (warn "Can't find warptool" and $missing_tools = 1);
-#my $overlap = can_run('overlap') or (warn "Can't find overlap" and $missing_tools = 1);
+my $dvoImageOverlaps = can_run('dvoImageOverlaps') or (warp "Can't find dvoImageOverlaps" and $missing_tools = 1);
+my $dvoImageExtract = can_run('dvoImageExtract') or (warp "Can't find dvoImageExtract" and $missing_tools = 1);
 if ($missing_tools) { 
     warn("Can't find required tools.");
@@ -122 +123 @@
         
         # run the dvoImageOverlaps program to get the overlaps with this image 
-        my $command = "dvoImageOverlaps -D CATDIR $tess_dir $psastroFile";
+        my $command = "$dvoImageOverlaps -D CATDIR $tess_dir $psastroFile";
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run(command => $command, verbose => 1);
@@ -178 +179 @@
             system "mkdir -p $skyDir" unless -d $skyDir;
             my $skyFile = File::Spec->catfile( $skyDir , $skycell_id );
-            my $command = "dvoImageExtract -D CATDIR $tess_dir $skycell_id -o $skyFile";
+            my $command = "$dvoImageExtract -D CATDIR $tess_dir $skycell_id -o $skyFile";
             my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
                 run(command => $command, verbose => 1);