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

Timestamp:

Feb 5, 2008, 11:47:19 AM (18 years ago)

Author:

Paul Price

Message:

Added verbose flags to scripts.

File:

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

trunk/ippScripts/scripts/warp_overlap.pl

@@ -38 +38 @@
 my $ipprc = PS::IPP::Config->new(); # IPP configuration
 
-my ($warp_id, $camera, $dbname, $workdir, $no_update, $no_op);
+my ($warp_id, $camera, $dbname, $workdir, $verbose, $no_update, $no_op);
 GetOptions(
     'warp_id|i=s'       => \$warp_id, # Warp identifier
@@ -44 +44 @@
     'dbname|d=s'        => \$dbname, # Database name
     'workdir|w=s'       => \$workdir, # Working directory, for output files
+    'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update, # Don't update the database?
     'no-op'             => \$no_op, # Don't do any operations
@@ -76 +77 @@
     $command .= " -dbname $dbname" if defined $dbname;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 1);
+        run(command => $command, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -95 +96 @@
     my $command = "$ppConfigDump -camera $camera -dump-recipe PSWARP -";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 1);
+        run(command => $command, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -122 +123 @@
         
         my $tess_dir = $ipprc->convert_filename_absolute( $$tessellations{$tess_id} ); # Catdir for DVO
-        print STDERR "tessellation: $tess_id, $tess_dir\n";
         
         my %unique_skycells = (); # Identified skycells (all unique by virtue of hash property)
@@ -153 +153 @@
                 }
                 my @matchlist = get_overlaps($astromFile, $tess_dir, $astromAccept); # List of overlaps
-                if (! @matchlist) {
+                if (! @matchlist and $verbose) {
                     print "skipping $astromFile\n";
                 }           
@@ -206 +206 @@
     
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 1);
+        run(command => $command, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -236 +236 @@
     $command .= ' -accept-astrom' if $accept;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 1);
+        run(command => $command, verbose => $verbose);
     if (!$success) {
         print "missing astrometry for $filename\n";
@@ -273 +273 @@
         
         $entry = $filename . '\[' . $extname . '\]';
-        print STDERR "entry: $entry, class: $class_id, extname: $extname, chiproot: $chipRoot\n";
+        print STDERR "entry: $entry, class: $class_id, extname: $extname, chiproot: $chipRoot\n" if $verbose;
     } else {
         $entry = $filename;
-        print STDERR "entry: $entry\n";
+        print STDERR "entry: $entry\n" if $verbose;
     }
 
     my @skycells = &select_skycells($entry, @$matches); # Matching skycells
     my $Nskycells = @skycells;
-    printf STDERR "Nskycells: $Nskycells\n";
+    printf STDERR "Nskycells: $Nskycells\n" if $verbose;
     foreach my $skycell (@skycells) {
         my %overlap = ();       # Overlap information for warptool
@@ -291 +291 @@
         push @$overlaps, \%overlap;
         
-        printf STDERR "overlap: %s : %s , %s\n", $skycell, $imfile->{cam_id}, $imfile->{class_id};
+        printf STDERR "overlap: %s : %s , %s\n", $skycell, $imfile->{cam_id}, $imfile->{class_id} if $verbose;
         
         $unique_skycells->{$skycell} = 1;