Changeset 24153 for branches/pap_magic/ippScripts/scripts/ipp_serial_magic.pl

Timestamp:

May 12, 2009, 5:56:09 PM (17 years ago)

Author:

Paul Price

Message:

Fix verbose flag for commands.

File:

• branches/pap_magic/ippScripts/scripts/ipp_serial_magic.pl (modified) (4 diffs)

branches/pap_magic/ippScripts/scripts/ipp_serial_magic.pl

@@ -52 +52 @@
         $command .= " -magic_id $identifier" if defined $identifier;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run( command => $command, verbose => 1 );
+            run( command => $command, verbose => $verbose );
         die "Unable to get magic tree list: $error_code\n" if not $success;
         @whole = split /\n/, join( '', @$stdout_buf );
@@ -86 +86 @@
                 $command .= " --no-update" if defined $no_update;
                 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-                    run( command => $command, verbose => 1 );
+                    run( command => $command, verbose => $verbose );
                 die "Unable to do magic tree on $magic_id: $error_code\n" if not $success;
             }
@@ -102 +102 @@
         $command .= " -magic_id $identifier" if defined $identifier;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run( command => $command, verbose => 1 );
+            run( command => $command, verbose => $verbose );
         die "Unable to get magic tree list: $error_code\n" if not $success;
         @whole = split /\n/, join( '', @$stdout_buf );
@@ -134 +134 @@
                 $command .= " --no-update" if defined $no_update;
                 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-                    run( command => $command, verbose => 1 );
+                    run( command => $command, verbose => $verbose );
                 die "Unable to do magic process on $magic_id $node: $error_code\n" if not $success;
             }