Changeset 20135

Timestamp:

Oct 13, 2008, 5:14:36 PM (18 years ago)

Author:

eugene

Message:

adding arguments to accept label, dvodb, end_stage, tess_id

File:

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

trunk/ippScripts/scripts/register_exp.pl

@@ -27 +27 @@
 my $ipprc = PS::IPP::Config->new();
 
-my ($cache, $exp_id, $exp_tag, $dbname, $verbose, $no_update, $no_op, $save_temps, $logfile);
+my ($cache, $exp_id, $exp_tag, $label, $dvodb, $end_stage, $tess_id, $dbname, $verbose, $no_update, $no_op, $save_temps, $logfile);
 GetOptions(
     'caches'        => \$cache,
@@ -33 +33 @@
     'exp_tag|t=s'   => \$exp_tag,
     'dbname|d=s'    => \$dbname, # Database name
+    'label'         => \$label,   
+    'dvodb'         => \$dvodb,   
+    'end_stage'     => \$end_stage, 
+    'tess_id'       => \$tess_id,   
     'verbose'       => \$verbose,   # Print to stdout
     'no-update'     => \$no_update,
@@ -118 +122 @@
 $command .= " -exp_id $exp_id";
 $command .= " -exp_tag $exp_tag";
-$command .= " -hostname $host" if defined $host;
-$command .= " -dbname $dbname" if defined $dbname;
+$command .= " -hostname  $host"      if defined $host;
+$command .= " -dbname    $dbname"    if defined $dbname;
+$command .= " -label     $label"     if defined $label;
+$command .= " -dvodb     $dvodb"     if defined $dvodb;
+$command .= " -end_stage $end_stage" if defined $end_stage;
+$command .= " -tess_id   $tess_id"   if defined $tess_id;
 $command .= " $cmdflags";