Changeset 12937 for trunk/ippScripts/scripts/ipp_serial_inject_mosaic.pl

Timestamp:

Apr 19, 2007, 6:00:58 PM (19 years ago)

Author:

Paul Price

Message:

Adding dbname to parameter list.

File:

• trunk/ippScripts/scripts/ipp_serial_inject_mosaic.pl (modified) (5 diffs)

trunk/ippScripts/scripts/ipp_serial_inject_mosaic.pl

@@ -15 +15 @@
     $telescope,                 # Telescope used
     $workdir,                   # Working directory to append
+    $dbname,                    # Database name
     );
 GetOptions(
@@ -20 +21 @@
            'telescope|t=s' => \$telescope,
            'workdir=s' => \$workdir,
+           'dbname=s' => \$dbname,
 ) or pod2usage( 2 );
 
 pod2usage(
-          -msg => "Required options: --camera --telescope --workdir",
+          -msg => "Required options: --camera --telescope --workdir --dbname",
           -exitval => 3,
-          ) unless defined $camera and defined $telescope and defined $workdir;
+          ) unless defined $camera and defined $telescope and defined $workdir and defined $dbname;
 
 my $ipprc = PS::IPP::Config->new(); # IPP configuration
@@ -66 +68 @@
 
     foreach my $exp ( @ARGV ) {
-        my $command = "$pxinject -newExp -exp_id $exp -inst $camera -telescope $telescope -workdir $workdir -imfiles " . (scalar @classes or 1) ; # Command to run
+        my $command = "$pxinject -newExp -exp_id $exp -inst $camera -telescope $telescope -workdir $workdir -dbname $dbname -imfiles " . (scalar @classes or 1) ; # Command to run
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );
@@ -80 +82 @@
             $filename = File::Spec->catfile( $workdir_abs, $filename);
             $filename = $ipprc->convert_filename_relative( $filename );
-            my $command = "$pxinject -newImfile -exp_tag $exp_tag -class chip -class_id $class_id -uri $filename"; # Command to run
+            my $command = "$pxinject -newImfile -exp_tag $exp_tag -class chip -class_id $class_id -uri $filename -dbname $dbname"; # Command to run
             my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
                 run( command => $command, verbose => 1 );
@@ -91 +93 @@
             $filename = File::Spec->catfile( $workdir_abs, $filename);
             $filename = $ipprc->convert_filename_relative( $filename );
-            my $command = "$pxinject -newImfile -exp_tag $exp_tag -class fpa -class_id fpa -uri $filename"; # Command to run
+            my $command = "$pxinject -newImfile -exp_tag $exp_tag -class fpa -class_id fpa -dbname $dbname -uri $filename"; # Command to run
             my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
                 run( command => $command, verbose => 1 );