Changeset 16192

Timestamp:

Jan 22, 2008, 5:34:00 PM (18 years ago)

Author:

eugene

Message:

dropping unused workdir

Location:

branches/eam_branch_20080121/ippScripts/scripts

Files:

• register_exp.pl (modified) (1 diff)
• register_imfile.pl (modified) (2 diffs)

branches/eam_branch_20080121/ippScripts/scripts/register_exp.pl

@@ -34 +34 @@
     );
 
-my ($cache, $exp_id, $exp_tag, $workdir, $dbname, $no_update, $no_op);
+my ($cache, $exp_id, $exp_tag, $dbname, $no_update, $no_op);
 GetOptions(
     'caches'        => \$cache,
     'exp_id|e=s'    => \$exp_id,
     'exp_tag|t=s'   => \$exp_tag,
-    'workdir|w=s'   => \$workdir, # Working directory for output files
     'dbname|d=s'    => \$dbname, # Database name    
     'no-update'     => \$no_update,

branches/eam_branch_20080121/ippScripts/scripts/register_imfile.pl

@@ -37 +37 @@
 use Pod::Usage qw( pod2usage );
 
-my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $workdir, $dbname, $no_update, $no_op);
+my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $dbname, $no_update, $no_op);
 GetOptions(
     'caches'           => \$cache,
@@ -44 +44 @@
     'tmp_exp_name|n=s' => \$tmp_exp_name,
     'uri|u=s'          => \$uri,
-    'workdir|w=s'      => \$workdir, # Working directory for output files
     'dbname|d=s'       => \$dbname,# Database name
     'no-update'        => \$no_update,