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

Timestamp:

Nov 15, 2009, 1:53:33 PM (16 years ago)

Author:

bills

Message:

implementation for "get_image" jobs

File:

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

trunk/ippScripts/scripts/dist_bundle.pl

@@ -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, $results_file);
+my ($outdir, $run_state, $data_state, $magicked, $no_magic, $poor_quality, $results_file, $prefix);
 my ($dbname, $save_temps, $verbose, $no_update, $logfile);
 
 GetOptions(
-           'results_file=s' => \$results_file,     # camera for evaluating file rules
+           'results_file=s' => \$results_file,     # ouptput file name for results
            'camera=s'       => \$camera,     # camera for evaluating file rules
            'stage=s'        => \$stage,      # raw, chip, warp, or diff
@@ -77 +77 @@
            'magicked'       => \$magicked,   # magicked state for this component
            'outdir=s'       => \$outdir,     # "directory" for outputs
+           'prefix=s'       => \$prefix,     # "prefix" to apply to filenames
            'clean'          => \$clean,      # create clean distribution
            'save-temps'     => \$save_temps, # Save temporary files?
@@ -276 +277 @@
     my $tbase = basename($path_base);
     $tbase .= ".$component" if $component;
-    $file_name = "$tbase.tgz";
+    $file_name = ($prefix ? $prefix : "") . "$tbase.tgz";
     my $tarfile = "$outdir/$file_name";