Index: /trunk/tools/fixburntool
===================================================================
--- /trunk/tools/fixburntool	(revision 34590)
+++ /trunk/tools/fixburntool	(revision 34591)
@@ -6,4 +6,5 @@
 use strict;
 use warnings;
+
 use Carp;
 use IPC::Cmd 0.36 qw( can_run run );
@@ -28,5 +29,5 @@
 my $class_id;
 my $dbname = 'gpc1';
-my $verbose = 1;
+my $verbose = 0;
 GetOptions(
     'exp_id|e=s'    => \$exp_id,
@@ -35,5 +36,5 @@
 ) 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,5 +46,5 @@
     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,5 +69,5 @@
     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,5 +97,4 @@
 # print "$left $num $end\n";
 
-
 my $prev = $num - 1;
 my $prev_name = sprintf "$left%04d$end", $prev;
@@ -105,10 +105,9 @@
 # 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);