Index: trunk/ippScripts/scripts/warp_overlap.pl
===================================================================
--- trunk/ippScripts/scripts/warp_overlap.pl	(revision 16020)
+++ trunk/ippScripts/scripts/warp_overlap.pl	(revision 16308)
@@ -38,5 +38,5 @@
 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,4 +44,5 @@
     '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,5 +77,5 @@
     $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,5 +96,5 @@
     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,5 +123,4 @@
 	
 	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,5 +153,5 @@
 		}
 		my @matchlist = get_overlaps($astromFile, $tess_dir, $astromAccept); # List of overlaps
-		if (! @matchlist) {
+		if (! @matchlist and $verbose) {
 		    print "skipping $astromFile\n";
 		}	    
@@ -206,5 +206,5 @@
     
     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,5 +236,5 @@
     $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,13 +273,13 @@
 	
 	$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,5 +291,5 @@
 	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;