Changeset 16332

Timestamp:

Feb 5, 2008, 6:04:33 PM (18 years ago)

Author:

Paul Price

Message:

Adding verbosity switch

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Operations.pm (modified) (3 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Operations.pm

@@ -1 +1 @@
 # Copyright (c) 2007  Paul Price
 #
-# $Id: Operations.pm,v 1.6 2008-02-06 03:59:46 price Exp $
+# $Id: Operations.pm,v 1.7 2008-02-06 04:04:33 price Exp $
 
 package PS::IPP::Operations;
@@ -50 +50 @@
     my $skycells = shift;       # List of skycell ids
     my $workdir = shift;        # Working directory
+    my $verbose = shift;        # Verbose?
 
     unless (defined $ipprc and defined $tess_id and defined $skycells and defined $workdir) {
@@ -72 +73 @@
             my $command = "$dvoImageExtract -D CATDIR $tess_dir $skycell_id -o $skyFileResolved";
             my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-                run(command => $command, verbose => 1);
+                run(command => $command, verbose => $verbose);
             unless ($success) {
                 carp "Unable to perform dvoImageExtract for $tess_id $skycell_id";