Changeset 34591 for trunk

Timestamp:

Oct 25, 2012, 11:09:49 AM (14 years ago)

Author:

bills

Message:

default verbosity to 0

File:

• trunk/tools/fixburntool (modified) (7 diffs)

trunk/tools/fixburntool

@@ -6 +6 @@
 use strict;
 use warnings;
+
 use Carp;
 use IPC::Cmd 0.36 qw( can_run run );
@@ -28 +29 @@
 my $class_id;
 my $dbname = 'gpc1';
-my $verbose = 1;
+my $verbose = 0;
 GetOptions(
     'exp_id|e=s'    => \$exp_id,
@@ -35 +36 @@
 ) or pod2usage( 2 );
 
-die "usage: $0 (exp_id) (class_id)\n" unless $class_id and $exp_id;
+die "usage: $0 --exp_id (exp_id) --class_id (class_id)\n" unless $class_id and $exp_id;
 
 $regtool  .= " -dbname gpc1 -exp_id $exp_id -class_id $class_id";
@@ -45 +46 @@
     my $command = "$regtool -processedimfile";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 0);
+        run(command => $command, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -68 +69 @@
     my $command = "neb-stat $table";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 0);
+        run(command => $command, verbose => $verbose);
     if ($success) {
         $table_exists = 1;
@@ -96 +97 @@
 # print "$left $num $end\n";
 
-
 my $prev = $num - 1;
 my $prev_name = sprintf "$left%04d$end", $prev;
@@ -105 +105 @@
 # print "$prev_name $prev_uri\n";
 
-
 {
     my $command = "$burntool --continue 10 --exp_id $exp_id --class_id $class_id --this_uri $uri --previous_uri $prev_uri";
     print "$command\n";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 0);
+        run(command => $command, verbose => 1);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);