Index: trunk/ippScripts/scripts/camera_exp.pl
===================================================================
--- trunk/ippScripts/scripts/camera_exp.pl	(revision 16276)
+++ trunk/ippScripts/scripts/camera_exp.pl	(revision 16308)
@@ -37,5 +37,6 @@
 use Pod::Usage qw( pod2usage );
 
-my ($exp_tag, $cam_id, $camera, $outroot, $recipe, $dbname, $reduction, $dvodb, $no_update, $no_op);
+my ( $exp_tag, $cam_id, $camera, $outroot, $recipe, $dbname, $reduction, $dvodb, $verbose, $no_update,
+     $no_op );
 GetOptions(
 	   'exp_tag=s'          => \$exp_tag, # Exposure identifier
@@ -47,4 +48,5 @@
 	   'reduction=s'       => \$reduction, # Reduction class		       
 	   'dvodb|w=s'         => \$dvodb,  # output DVO database
+	   'verbose'           => \$verbose,   # Print to stdout
 	   'no-update'         => \$no_update, # Update the database?
 	   'no-op'             => \$no_op, # Don't do any operations?
@@ -129,5 +131,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);
@@ -196,5 +198,5 @@
 	my $command = "$ppImage -list $list1Name $outroot -recipe PPIMAGE $recipe1"; # Command to run
 	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);
@@ -208,5 +210,5 @@
 	my $command = "$ppImage -list $list2Name $outroot -recipe PPIMAGE $recipe2"; # Command to run
 	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);
@@ -222,5 +224,5 @@
         my $command = "$ppConfigDump -camera $camera -dump-recipe PSASTRO -";
         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);
@@ -244,5 +246,5 @@
 	    $command .= " -tracedest $traceDest -log $logDest";
 	    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);
@@ -274,5 +276,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);
@@ -293,5 +295,5 @@
 unless ($no_update) {
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-	run(command => $fpaCommand, verbose => 1);
+	run(command => $fpaCommand, verbose => $verbose);
     unless ($success) {
 	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
Index: trunk/ippScripts/scripts/chip_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/chip_imfile.pl	(revision 16276)
+++ trunk/ippScripts/scripts/chip_imfile.pl	(revision 16308)
@@ -33,17 +33,19 @@
 
 # Parse the command-line arguments
-my ($exp_id, $exp_tag, $chip_id, $class_id, $uri, $camera, $outroot, $dbname, $reduction, $no_update, $no_op);
+my ( $exp_id, $exp_tag, $chip_id, $class_id, $uri, $camera, $outroot, $dbname, $reduction, $verbose,
+     $no_update, $no_op );
 GetOptions(
-	   'exp_id=s'      => \$exp_id,    # Exposure identifier		       
-	   'exp_tag=s'     => \$exp_tag,   # Exposure identifier		       
-	   'chip_id=s'     => \$chip_id,   # Chiptool identifier		       
-	   'class_id=s'    => \$class_id,  # Class identifier		       
-	   'uri|u=s'       => \$uri,       # Input FITS file		       
-	   'camera|c=s'    => \$camera,	   # Camera			       
+	   'exp_id=s'      => \$exp_id,    # Exposure identifier
+	   'exp_tag=s'     => \$exp_tag,   # Exposure identifier
+	   'chip_id=s'     => \$chip_id,   # Chiptool identifier
+	   'class_id=s'    => \$class_id,  # Class identifier
+	   'uri|u=s'       => \$uri,       # Input FITS file
+	   'camera|c=s'    => \$camera,	   # Camera
 	   'outroot|w=s'   => \$outroot,   # output file base name
 	   'dbname|d=s'    => \$dbname,    # Database name
-	   'reduction=s'   => \$reduction, # Reduction class		       
-	   'no-update'     => \$no_update, # Don't update the database?	       
-	   'no-op'         => \$no_op,	   # Don't do any operations?             
+	   'reduction=s'   => \$reduction, # Reduction class
+	   'verbose'       => \$verbose,   # Print to stdout
+	   'no-update'     => \$no_update, # Don't update the database?
+	   'no-op'         => \$no_op,	   # Don't do any operations?
 	   ) or pod2usage( 2 );
 
@@ -70,6 +72,6 @@
 # values to extract from output metadata and the stats to calculate
 # XXX commented-out entries are not yet defined in the output files
-my $STATS = 
-   [   
+my $STATS =
+   [
        #          PPSTATS KEYWORD         STATISTIC          CHIPTOOL FLAG
        { name => "ROBUST_MEDIAN",  type => "mean",  flag => "-bg",             dtype => "float" },
@@ -103,7 +105,7 @@
 my $chiptool = can_run('chiptool') or (warn "Can't find chiptool" and $missing_tools = 1);
 my $ppImage = can_run('ppImage') or (warn "Can't find ppImage" and $missing_tools = 1);
-if ($missing_tools) { 
+if ($missing_tools) {
     warn("Can't find required tools.");
-    exit($PS_EXIT_CONFIG_ERROR); 
+    exit($PS_EXIT_CONFIG_ERROR);
 }
 
@@ -140,5 +142,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);
@@ -185,5 +187,5 @@
 unless ($no_update) {
     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);
Index: trunk/ippScripts/scripts/detrend_correct_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_correct_imfile.pl	(revision 16276)
+++ trunk/ippScripts/scripts/detrend_correct_imfile.pl	(revision 16308)
@@ -32,5 +32,6 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $exp_id, $class_id, $det_type, $exp_tag, $input_uri, $camera, $dbname, $workdir, $reduction, $no_update, $no_op);
+my ( $det_id, $exp_id, $class_id, $det_type, $exp_tag, $input_uri, $camera, $dbname, $workdir, $reduction,
+     $verbose, $no_update, $no_op );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -45,4 +46,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,
     'no-op'             => \$no_op,
@@ -91,5 +93,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);
@@ -111,5 +113,5 @@
 unless ($no_update) {
     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);
Index: trunk/ippScripts/scripts/detrend_norm_apply.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_norm_apply.pl	(revision 16276)
+++ trunk/ippScripts/scripts/detrend_norm_apply.pl	(revision 16308)
@@ -33,5 +33,6 @@
 
 # Parse the command-line
-my ($det_id, $iter, $class_id, $value, $input_uri, $camera, $det_type, $outroot, $dbname, $no_update, $no_op);
+my ( $det_id, $iter, $class_id, $value, $input_uri, $camera, $det_type, $outroot, $dbname, $verbose,
+     $no_update, $no_op );
 GetOptions(
     'det_id|d=s'        => \$det_id,     # Detrend ID				
@@ -44,4 +45,5 @@
     'outroot|w=s'       => \$outroot,    # output file base name
     'dbname|d=s'        => \$dbname,	 # Database name				
+    'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update,	 # Don't update the database		
     'no-op'             => \$no_op,	 # Don't do any operations               
@@ -117,5 +119,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);
@@ -160,5 +162,5 @@
 unless ($no_update) {
     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);
Index: trunk/ippScripts/scripts/detrend_norm_calc.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_norm_calc.pl	(revision 16276)
+++ trunk/ippScripts/scripts/detrend_norm_calc.pl	(revision 16308)
@@ -32,5 +32,5 @@
 
 # Parse command-line arguments
-my ($det_id, $iter, $detType, $outroot, $dbname, $no_update, $no_op);
+my ($det_id, $iter, $detType, $outroot, $dbname, $verbose, $no_update, $no_op);
 GetOptions(
 	'det_id|d=s'	=> \$det_id,    # Detrend id			     
@@ -39,4 +39,5 @@
         'outroot|w=s'   => \$outroot,   # output file base name
  	'dbname|d=s'    => \$dbname,	# Database name			     
+        'verbose'       => \$verbose,   # Print to stdout
         'no-update'     => \$no_update,	# Don't update the database?	     
 	'no-op'         => \$no_op,	# Don't do operations                
@@ -88,10 +89,10 @@
     my @command = split /\s+/, $command;
     my ( $stdin, $stdout, $stderr ); # Buffers for running program
-    print "Running [$command]...\n";
+    print "Running [$command]...\n" if $verbose;
     if (not run(\@command, \$stdin, \$stdout, \$stderr)) {
 	&my_die("Unable to perform dettool -processedimfile on detrend $det_id/$iter: $?",
 		$det_id, $iter, $PS_EXIT_SYS_ERROR);
     }
-#    print $stdout . "\n";
+    print $stdout . "\n" if $verbose;
     
     # Because of the length, need to split into individual metadatas --- it parses SO much quicker!
@@ -141,9 +142,9 @@
 	my ( $stdout, $stderr ); # Buffers for running program
 	my @command = split /\s+/, $ppNormCalc;
-	print "Running [$ppNormCalc]...\n";
+	print "Running [$ppNormCalc]...\n" if $verbose;
 	if (not run(\@command, \$normData, \$stdout, \$stderr)) {
 	    &my_die("Unable to perform ppNormCalc: $?", $det_id, $iter, $PS_EXIT_SYS_ERROR);
 	}
-	print $stdout . "\n";
+	print $stdout . "\n" if $verbose;
 	
 	# Parse the output
@@ -187,10 +188,10 @@
 
 	my ( $stdin, $stdout, $stderr ); # Buffers for running program
-	print "Running [$command]...\n";
+	print "Running [$command]...\n" if $verbose;
 	if (not run \@command, \$stdin, \$stdout, \$stderr) {
 	    warn("Unable to perform dettool -addnormstat for $className: $?");
 	    exit($PS_EXIT_SYS_ERROR);
 	}
-	print $stdout . "\n";
+	print $stdout . "\n" if $verbose;
     }
 } else {
Index: trunk/ippScripts/scripts/detrend_norm_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_norm_exp.pl	(revision 16276)
+++ trunk/ippScripts/scripts/detrend_norm_exp.pl	(revision 16308)
@@ -35,5 +35,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $det_type, $camera, $outroot, $dbname, $reduction, $no_update, $no_op);
+my ($det_id, $iter, $det_type, $camera, $outroot, $dbname, $reduction, $verbose, $no_update, $no_op);
 GetOptions(
 	   'det_id|d=s'        => \$det_id,
@@ -44,4 +44,5 @@
 	   'dbname|d=s'        => \$dbname, # Database name
 	   'reduction|=s'      => \$reduction,
+           'verbose'           => \$verbose,   # Print to stdout
 	   'no-update'         => \$no_update,
 	   'no-op'             => \$no_op,
@@ -97,5 +98,5 @@
     $command .= " -dbname $dbname" if defined $dbname;
     ( $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);
@@ -142,5 +143,5 @@
     $command = "$ppImage -list $list1Name $outroot -recipe PPIMAGE $recipe1"; # Command to run
     ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-	run(command => $command, verbose => 1);
+	run(command => $command, verbose => $verbose);
     &my_die("Unable to find expected output file: $jpeg1Name", $det_id, $iter, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($jpeg1Name);
     
@@ -148,5 +149,5 @@
     $command = "$ppImage -list $list2Name $outroot -recipe PPIMAGE $recipe2"; # Command to run
     ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-	run(command => $command, verbose => 1);
+	run(command => $command, verbose => $verbose);
     &my_die("Unable to find expected output file: $jpeg2Name", $det_id, $iter, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($jpeg2Name);
 
@@ -165,5 +166,5 @@
 unless ($no_update) {
     ( $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);
Index: trunk/ippScripts/scripts/detrend_process_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_process_exp.pl	(revision 16276)
+++ trunk/ippScripts/scripts/detrend_process_exp.pl	(revision 16308)
@@ -35,5 +35,6 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $exp_id, $det_type, $exp_tag, $camera, $outroot, $dbname, $reduction, $no_update, $no_op);
+my ( $det_id, $exp_id, $det_type, $exp_tag, $camera, $outroot, $dbname, $reduction, $verbose, $no_update,
+     $no_op );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -45,4 +46,5 @@
     'dbname|d=s'        => \$dbname, # Database name
     'reduction|=s'      => \$reduction,
+    'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update,
     'no-op'             => \$no_op,
@@ -99,5 +101,5 @@
     $command .= " -dbname $dbname" if defined $dbname;
     ( $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);
@@ -145,5 +147,5 @@
     $command = "$ppImage -list $list1Name $outroot -recipe PPIMAGE $recipe1"; # Command to run
     ( $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);
@@ -155,5 +157,5 @@
     $command = "$ppImage -list $list2Name $outroot -recipe PPIMAGE $recipe2"; # Command to run
     ( $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);
@@ -174,5 +176,5 @@
 unless ($no_update) {
     ( $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);
Index: trunk/ippScripts/scripts/detrend_process_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_process_imfile.pl	(revision 16276)
+++ trunk/ippScripts/scripts/detrend_process_imfile.pl	(revision 16308)
@@ -32,5 +32,6 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $exp_id, $class_id, $det_type, $exp_tag, $input_uri, $camera, $outroot, $dbname, $reduction, $no_update, $no_op);
+my ( $det_id, $exp_id, $class_id, $det_type, $exp_tag, $input_uri, $camera, $outroot, $dbname, $reduction,
+     $verbose, $no_update, $no_op );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -44,4 +45,5 @@
     'dbname|d=s'        => \$dbname, # Database name
     'reduction=s'       => \$reduction,	# Reduction class
+    'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update,
     'no-op'             => \$no_op,
@@ -113,5 +115,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);
@@ -152,5 +154,5 @@
 unless ($no_update) {
     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);
Index: trunk/ippScripts/scripts/detrend_reject_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 16276)
+++ trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 16308)
@@ -37,5 +37,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $det_type, $camera, $outroot, $filter, $dbname, $no_update, $no_op);
+my ($det_id, $iter, $det_type, $camera, $outroot, $filter, $dbname, $verbose, $no_update, $no_op);
 GetOptions(
 	   'det_id|d=s'        => \$det_id,
@@ -43,7 +43,8 @@
 	   'det_type|t=s'      => \$det_type,
 	   'camera=s'          => \$camera,
-	   'outroot|w=s'   => \$outroot,   # output file base name
+	   'outroot|w=s'       => \$outroot,   # output file base name
 	   'filter=s'          => \$filter,
 	   'dbname|d=s'        => \$dbname, # Database name
+	   'verbose'           => \$verbose,   # Print to stdout
 	   'no-update'         => \$no_update,
 	   'no-op'             => \$no_op,
@@ -106,5 +107,5 @@
     $command .= " -dbname $dbname" if defined $dbname;
     ( $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);
@@ -261,5 +262,5 @@
 	# Update 
 	( $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);
@@ -308,5 +309,5 @@
 unless ($no_update) {
     ( $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);
Index: trunk/ippScripts/scripts/detrend_reject_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 16276)
+++ trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 16308)
@@ -43,5 +43,6 @@
 
 # parse the command-line options
-my ($det_id, $iter, $exp_id, $exp_tag, $det_type, $camera, $filter, $reject, $outroot, $dbname, $reduction, $no_update, $no_op);
+my ( $det_id, $iter, $exp_id, $exp_tag, $det_type, $camera, $filter, $reject, $outroot, $dbname, $reduction,
+     $verbose, $no_update, $no_op );
 GetOptions(
 	   'det_id|d=s'        => \$det_id,
@@ -56,4 +57,5 @@
 	   'dbname|d=s'        => \$dbname, # Database name
 	   'reduction|=s'      => \$reduction,
+	   'verbose'           => \$verbose,   # Print to stdout
 	   'no-update'         => \$no_update,
 	   'no-op'             => \$no_op,
@@ -124,5 +126,5 @@
     $command .= " -dbname $dbname" if defined $dbname;
     ( $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);
@@ -178,5 +180,5 @@
     $command = "$ppImage -list $list1Name $outroot -recipe PPIMAGE $recipe1"; # Command to run
     ( $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);
@@ -188,5 +190,5 @@
     $command = "$ppImage -list $list2Name $outroot -recipe PPIMAGE $recipe2"; # Command to run
     ( $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);
@@ -515,5 +517,5 @@
 unless ($no_update) {
     ( $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);
Index: trunk/ippScripts/scripts/detrend_resid.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_resid.pl	(revision 16276)
+++ trunk/ippScripts/scripts/detrend_resid.pl	(revision 16308)
@@ -32,5 +32,6 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $exp_id, $exp_tag, $class_id, $det_type, $detrend, $input_uri, $camera, $mode, $outroot, $dbname, $reduction, $no_update, $no_op);
+my ( $det_id, $iter, $exp_id, $exp_tag, $class_id, $det_type, $detrend, $input_uri, $camera, $mode, $outroot,
+     $dbname, $reduction, $verbose, $no_update, $no_op );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -47,4 +48,5 @@
     'dbname|d=s'        => \$dbname, # Database name
     'reduction=s'       => \$reduction,	# Reduction class
+    'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update,
     'no-op'             => \$no_op,
@@ -162,5 +164,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);
@@ -188,5 +190,5 @@
     $command = "$ppStats -recipe PPSTATS RESIDUAL $bin2Name";
     ( $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);
@@ -217,5 +219,5 @@
 unless ($no_update) {
     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);
Index: trunk/ippScripts/scripts/detrend_stack.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_stack.pl	(revision 16276)
+++ trunk/ippScripts/scripts/detrend_stack.pl	(revision 16308)
@@ -33,5 +33,6 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $class_id, $det_type, $camera, $outroot, $dbname, $reduction, $no_update, $no_op, $quiet);
+my ( $det_id, $iter, $class_id, $det_type, $camera, $outroot, $dbname, $reduction, $verbose, $no_update,
+     $no_op );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -43,7 +44,7 @@
     'dbname|d=s'        => \$dbname, # Database name
     'reduction=s'       => \$reduction,	# Reduction class for processing
+    'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update,
     'no-op'             => \$no_op,
-    'quiet'             => \$quiet,
 ) or pod2usage( 2 );
 
@@ -57,7 +58,4 @@
     defined $camera   and
     defined $outroot;
-
-my $verbose = 1;
-if (defined $quiet) { $verbose = 0; }
 
 $ipprc->define_camera($camera);
Index: trunk/ippScripts/scripts/diff_skycell.pl
===================================================================
--- trunk/ippScripts/scripts/diff_skycell.pl	(revision 16276)
+++ trunk/ippScripts/scripts/diff_skycell.pl	(revision 16308)
@@ -33,9 +33,10 @@
 use Pod::Usage qw( pod2usage );
 
-my ($diff_id, $dbname, $workdir, $no_update, $no_op);
+my ($diff_id, $dbname, $workdir, $verbose, $no_update, $no_op);
 GetOptions(
     'diff_id|d=s'       => \$diff_id, # Diff identifier
     '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?
@@ -74,5 +75,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);
@@ -190,5 +191,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);
@@ -222,5 +223,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);
@@ -235,5 +236,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);
@@ -255,5 +256,5 @@
 	my $command = "$difftool -adddiffskyfile -diff_id $diff_id -code $exit_code";
 	$command .= " -dbname $dbname" if defined $dbname;
-        run(command => $command, verbose => 1);
+        run(command => $command, verbose => $verbose);
     }
     exit $exit_code;
Index: trunk/ippScripts/scripts/register_exp.pl
===================================================================
--- trunk/ippScripts/scripts/register_exp.pl	(revision 16276)
+++ trunk/ippScripts/scripts/register_exp.pl	(revision 16308)
@@ -34,5 +34,5 @@
     );
 
-my ($cache, $exp_id, $exp_tag, $dbname, $no_update, $no_op);
+my ($cache, $exp_id, $exp_tag, $dbname, $verbose, $no_update, $no_op);
 GetOptions(
     'caches'        => \$cache,
@@ -40,4 +40,5 @@
     'exp_tag|t=s'   => \$exp_tag,
     'dbname|d=s'    => \$dbname, # Database name    
+    'verbose'       => \$verbose,   # Print to stdout
     'no-update'     => \$no_update,
     'no-op'         => \$no_op,
@@ -126,5 +127,5 @@
     $command .= " -dbname $dbname" if defined $dbname;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        cache_run(command => $command, verbose => 1);
+        cache_run(command => $command, verbose => $verbose);
     unless ($success) {
 	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -176,5 +177,5 @@
 unless ($no_update) {
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        cache_run(command => $command, verbose => 1);
+        cache_run(command => $command, verbose => $verbose);
     unless ($success) {
 	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
Index: trunk/ippScripts/scripts/register_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/register_imfile.pl	(revision 16276)
+++ trunk/ippScripts/scripts/register_imfile.pl	(revision 16308)
@@ -37,5 +37,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $dbname, $no_update, $no_op);
+my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $dbname, $berbose, $no_update, $no_op);
 GetOptions(
     'caches'           => \$cache,
@@ -45,4 +45,5 @@
     'uri|u=s'          => \$uri,
     'dbname|d=s'       => \$dbname,# Database name
+    'verbose'          => \$verbose,   # Print to stdout
     'no-update'        => \$no_update,
     'no-op'            => \$no_op,
@@ -130,5 +131,5 @@
 
 my $now_time = localtime();
-printf STDERR "\nstarting ppStats: %s\n", $now_time;
+printf STDERR "\nstarting ppStats: %s\n", $now_time if $verbose;
 
 # Run ppStats on the input file
@@ -137,5 +138,5 @@
     my $command = "$ppStats $uri -recipe PPSTATS $RECIPE -level"; # Command to run ppStats
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        cache_run(command => $command, verbose => 1);
+        cache_run(command => $command, verbose => $verbose);
     unless ($success) { 
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -157,5 +158,5 @@
 
 $now_time = localtime();
-printf STDERR "\ndone with ppStats: %s\n", $now_time;
+printf STDERR "\ndone with ppStats: %s\n", $now_time if $verbose;
 
 # we require at a minimum: -telescope, -inst, -filelevel, -class_id, -exp_type
@@ -175,10 +176,10 @@
 
 $now_time = localtime();
-printf STDERR "\nrunning regtool update: %s\n", $now_time;
+printf STDERR "\nrunning regtool update: %s\n", $now_time if $verbose;
 
 # Push the results into the database
 unless ($no_update) {
     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);
@@ -191,5 +192,5 @@
 
 $now_time = localtime();
-printf STDERR "\ndone with regtool update: %s\n", $now_time;
+printf STDERR "\ndone with regtool update: %s\n", $now_time if $verbose;
 
 sub cache_run
Index: trunk/ippScripts/scripts/stack_skycell.pl
===================================================================
--- trunk/ippScripts/scripts/stack_skycell.pl	(revision 16276)
+++ trunk/ippScripts/scripts/stack_skycell.pl	(revision 16308)
@@ -34,9 +34,10 @@
 use Pod::Usage qw( pod2usage );
 
-my ($stack_id, $dbname, $workdir, $no_update, $no_op, $save_temps);
+my ($stack_id, $dbname, $workdir, $verbose, $no_update, $no_op, $save_temps);
 GetOptions(
     'stack_id|d=s'      => \$stack_id, # Stack identifier
     '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);
@@ -181,9 +182,6 @@
     $command .= " -tracedest $traceDest -log $logDest";
 
-    # print "\n\nWARNING: Convolving to 1 arcsec FWHM seeing!\n\n";
-    print "\n\nWARNING: NOT Convolving!\n\n";
-
     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);
@@ -217,5 +215,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);
@@ -230,5 +228,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);
Index: trunk/ippScripts/scripts/warp_overlap.pl
===================================================================
--- trunk/ippScripts/scripts/warp_overlap.pl	(revision 16276)
+++ 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;
Index: trunk/ippScripts/scripts/warp_skycell.pl
===================================================================
--- trunk/ippScripts/scripts/warp_skycell.pl	(revision 16276)
+++ trunk/ippScripts/scripts/warp_skycell.pl	(revision 16308)
@@ -37,5 +37,5 @@
 my $ipprc = PS::IPP::Config->new(); # IPP configuration
 
-my ($warp_id, $skycell_id, $tess_id, $camera, $dbname, $workdir, $no_update, $no_op, $save_temps);
+my ($warp_id, $skycell_id, $tess_id, $camera, $dbname, $workdir, $verbose, $no_update, $no_op, $save_temps);
 GetOptions(
     'warp_id|i=s'       => \$warp_id, # Warp identifier
@@ -45,4 +45,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?
@@ -88,5 +89,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);
@@ -105,5 +106,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);
@@ -190,5 +191,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);
@@ -229,5 +230,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);
@@ -249,5 +250,5 @@
 	my $command = "$warptool -addwarped -warp_id $warp_id -skycell_id $skycell_id -tess_id $tess_id -code $exit_code";
 	$command .= " -dbname $dbname" if defined $dbname;
-        run(command => $command, verbose => 1);
+        run(command => $command, verbose => $verbose);
     }
     exit $exit_code;