Changeset 35478

Timestamp:

May 2, 2013, 11:37:59 AM (13 years ago)

Author:

bills

Message:

reduce verbosity in publish log files by clearing verbose when
calling ipp tools. Add option to enable the verbosity

File:

• tags/ipp-20130307/ippScripts/scripts/publish_file.pl (modified) (7 diffs)

tags/ipp-20130307/ippScripts/scripts/publish_file.pl

@@ -44 +44 @@
 # Parse the command-line arguments
 my ( $pub_id, $camera, $stage, $stage_id, $fileset, $format, $product, $workdir, $need_magic );
-my ( $dbname, $verbose, $no_update, $no_op, $save_temps, $redirect );
+my ( $dbname, $verbose, $very_verbose, $no_update, $no_op, $save_temps, $redirect );
 my ( $output_format, $difftype );
 
@@ -58 +58 @@
     'dbname=s'          => \$dbname,    # Database name
     'verbose'           => \$verbose,   # Print to stdout
+    'very-verbose'      => \$very_verbose, # Print even more to stdout
     'no-update'         => \$no_update, # Don't update the database?
     'no-op'             => \$no_op, # Don't do any operations
@@ -98 +99 @@
     $command .= " -dbname $dbname" if defined $dbname;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbose);
+        run(command => $command, verbose => $very_verbose);
     &my_die( "Unable to retrieve filename", $pub_id, $PS_EXIT_SYS_ERROR) unless $success;
 
@@ -158 +159 @@
     $command .= " -dbname $dbname" if defined $dbname;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbose);
+        run(command => $command, verbose => $very_verbose);
     &my_die( "Unable to retrieve filename", $pub_id, $PS_EXIT_SYS_ERROR) unless $success;
 
@@ -206 +207 @@
         $cam_command .= " -dbname $dbname" if defined $dbname;
         my ( $cam_success, $cam_error_code, $cam_full_buf, $cam_stdout_buf, $cam_stderr_buf ) =
-            run(command => $cam_command, verbose => $verbose);
+            run(command => $cam_command, verbose => $very_verbose);
         &my_die( "Unable to retrieve filename", $pub_id, $PS_EXIT_SYS_ERROR) unless $cam_success;
         my $cam_metadata = $mdcParser->parse(join "", @$cam_stdout_buf) or
@@ -220 +221 @@
         $reg_command .= " -dbname $dbname" if defined $dbname;
         my ( $reg_success, $reg_error_code, $reg_full_buf, $reg_stdout_buf, $reg_stderr_buf ) =
-            run(command => $reg_command, verbose => $verbose);
+            run(command => $reg_command, verbose => $very_verbose);
         &my_die( "Unable to retrieve filename", $pub_id, $PS_EXIT_SYS_ERROR) unless $reg_success;
         my $reg_metadata = $mdcParser->parse(join "", @$reg_stdout_buf) or
@@ -328 +329 @@
 
 unless ($no_update) {
-    my $command = "$dsreg --add pub.$pub_id.$stage.$stage_id --copy --abspath --product $product --type $dsType --list $dsFileName";
+    my $command = "$dsreg --add pub.$pub_id.$stage.$stage_id --link --abspath --product $product --type $dsType --list $dsFileName";
     $command .= " --ps0 \"$comment\"" if defined $comment;
     $command .= " --ps1 \"$exp_name_1\"" if defined $exp_name_1;