Changeset 13817 for trunk/ippScripts/scripts/camera_exp.pl

Timestamp:

Jun 13, 2007, 4:53:48 PM (19 years ago)

Author:

eugene

Message:

adding dvodb from campendingexp

File:

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

trunk/ippScripts/scripts/camera_exp.pl

@@ -41 +41 @@
            'dbname|d=s'        => \$dbname, # Database name
            'workdir|w=s'       => \$workdir, # Working directory
+           'dvodb|w=s'         => \$dbodb,  # output DVO database
            'no-update'         => \$no_update, # Update the database?
            'no-op'             => \$no_op, # Don't do any operations?
@@ -155 +156 @@
 my $fpaObjects = $ipprc->filename("PSASTRO.OUTPUT.MEF", $outputRoot); # MEF psastro output
 
+# convert supplied DVO database name to UNIX filename
+if (defined $dvodb) {
+    my $dvodbReal = $ipprc->convert_filename_absolute( $dvodb );
+}
+
 unless ($no_op) {
 
@@ -179 +185 @@
         my $camdir = $ipprc->dvo_cameradir(); # Camera directory for addstar
         my $command = "addstar -D CAMERA $camdir " . $ipprc->file_resolve($fpaObjects);
+        
+        if (define $dvodbReal) {
+            my $command .= " -D CATDIR $dvodbReal";
+        }
+
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run(command => $command, verbose => 1);