Changeset 15481

Timestamp:

Nov 6, 2007, 2:45:56 PM (19 years ago)

Author:

Paul Price

Message:

Using workdir from database.

File:

• trunk/ippScripts/scripts/ipp_serial_chip.pl (modified) (4 diffs)

trunk/ippScripts/scripts/ipp_serial_chip.pl

@@ -13 +13 @@
 
 my ($dbname,                    # Database name to use
-    $workdir,                   # Working directory
     $no_op,                     # No operations?
     $no_update,                 # No updating?
@@ -19 +18 @@
 GetOptions(
            'dbname|d=s' => \$dbname,
-           'workdir|w=s' => \$workdir,
            'no-op' => \$no_op,
            'no-update' => \$no_update,
@@ -66 +64 @@
             my $uri = $item->{uri};
             my $reduction = $item->{reduction};
+            my $workdir = $item->{workdir};
             
             my $command = "$chip --chip_id $chip_id --exp_id $exp_id --exp_tag $exp_tag --class_id $class_id --uri $uri --dbname $dbname --camera $camera";
@@ -71 +70 @@
             $command .= " --no-op" if defined $no_op;
             $command .= " --no-update" if defined $no_update;
-            $command .= " --workdir $workdir" if defined $workdir;
+            $command .= " --workdir $workdir" if defined $workdir and $workdir ne "NULL";
             my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
                 run( command => $command, verbose => 1 );