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

Timestamp:

Jul 19, 2011, 1:33:02 PM (15 years ago)

Author:

eugene

Message:

updating scripts to use ppConfigDump -get-key in place of full camera parsing in perl

File:

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

trunk/ippScripts/scripts/camera_exp.pl

@@ -155 +155 @@
 
     { # Determine if FWHM is too large to bother continuing.
-        my $command = "$ppConfigDump -camera $camera -dump-camera -";
+        my $maxFWHM = 0;
+        my $command = "$ppConfigDump -camera $camera -get-key MAX_ALLOWED_FWHM";
         my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run(command => $command, verbose => $verbose);
@@ -162 +163 @@
             &my_die("Unable to perform ppConfigDump: $error_code", $cam_id, $PS_EXIT_CONFIG_ERROR);
         }
-        my $cameraConfig = $mdcParser->parse(join "", @$stdout_buf) or
-            &my_die("Unable to parse metadata config doc", $cam_id, $PS_EXIT_CONFIG_ERROR);
-
-        my $maxFWHM = metadataLookupStr($cameraConfig, 'MAX_ALLOWED_FWHM');
+        if (@$stdout_buf) {
+            my $cameraConfig = $mdcParser->parse(join "", @$stdout_buf) or
+                &my_die("Unable to parse metadata config doc", $cam_id, $PS_EXIT_CONFIG_ERROR);
+            $maxFWHM = metadataLookupStr($cameraConfig, 'MAX_ALLOWED_FWHM');
+        }
         if ($maxFWHM) {
             my $expFWHM;