Changeset 11846

Timestamp:

Feb 15, 2007, 4:53:19 PM (19 years ago)

Author:

Paul Price

Message:

Adding serial scripts to drive phases 2 and 3.

Location:

trunk/ippScripts/scripts

Files:

• ipp_serial_phase0.pl (modified) (3 diffs)
• ipp_serial_phase2.pl (added)
• ipp_serial_phase3.pl (added)

trunk/ippScripts/scripts/ipp_serial_phase0.pl

@@ -12 +12 @@
 use Pod::Usage qw( pod2usage );
 
-my ($dbname                     # Database name to use
+my ($dbname,                    # Database name to use
+    $workdir,                   # Working directory
     );
 GetOptions(
-           'dbname|d=s' => \$dbname,
+           'dbname|d=s'  => \$dbname,
+           'workdir|w=s' => \$workdir,
 ) or pod2usage( 2 );
 
@@ -50 +52 @@
     
     my $command = "$phase0_imfile --exp_tag $exp_tag --class $class --class_id $class_id --uri $uri --dbname $dbname";
+    $command .= " --workdir $workdir" if defined $workdir;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run( command => $command, verbose => 1 );
@@ -69 +72 @@
     
     my $command = "$phase0_exp --exp_tag $exp_tag --dbname $dbname";
+    $command .= " --workdir $workdir" if defined $workdir;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run( command => $command, verbose => 1 );