Changeset 26044 for trunk/ippScripts/scripts/dist_bundle.pl

Timestamp:

Nov 5, 2009, 10:22:11 AM (17 years ago)

Author:

bills

Message:

use a temporary file for output from dist_bundle.pl. stdout is too noisy

File:

• trunk/ippScripts/scripts/dist_bundle.pl (modified) (3 diffs)

trunk/ippScripts/scripts/dist_bundle.pl

@@ -8 +8 @@
 use Sys::Hostname;
 my $host = hostname();
-print "\n\n";
-print "Starting script $0 on $host\n\n";
+# print "\n\n";
+# print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );
@@ -60 +60 @@
 # Parse the command-line arguments
 my ($camera, $stage, $stage_id, $component, $path_base, $chip_path_base, $clean);
-my ($outdir, $run_state, $data_state, $magicked, $no_magic, $poor_quality);
+my ($outdir, $run_state, $data_state, $magicked, $no_magic, $poor_quality, $results_file);
 my ($dbname, $save_temps, $verbose, $no_update, $logfile);
 
 GetOptions(
+           'results_file=s' => \$results_file,     # camera for evaluating file rules
            'camera=s'       => \$camera,     # camera for evaluating file rules
            'stage=s'        => \$stage,      # raw, chip, warp, or diff
@@ -303 +304 @@
 }
 
-print "bundleResults MULTI\n\n";
-print "bundleResults METADATA\n";
-print "   name      STR    $file_name\n";
-print "   bytes     S64    $bytes\n";
-print "   md5sum    STR    $md5sum\n";
-print "END\n\n";
+if ($results_file) {
+    open RF, ">$results_file" or &my_die("unable to open results file $results_file", $component, $PS_EXIT_UNKNOWN_ERROR);
+    print RF "bundleResults MULTI\n\n";
+    print RF "bundleResults METADATA\n";
+    print RF "   name      STR    $file_name\n";
+    print RF "   bytes     S64    $bytes\n";
+    print RF "   md5sum    STR    $md5sum\n";
+    print RF "END\n\n";
+
+    close RF;
+}
 
 exit 0;