Index: trunk/ippScripts/scripts/dist_bundle.pl
===================================================================
--- trunk/ippScripts/scripts/dist_bundle.pl	(revision 26042)
+++ trunk/ippScripts/scripts/dist_bundle.pl	(revision 26044)
@@ -8,6 +8,6 @@
 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,8 +60,9 @@
 # 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,10 +304,15 @@
 }
 
-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;