Changeset 33021 for branches/haf_add201112/ippScripts/scripts/addstar_run.pl

Timestamp:

Dec 23, 2011, 2:59:12 PM (15 years ago)

Author:

heather

Message:

more debugging

File:

• branches/haf_add201112/ippScripts/scripts/addstar_run.pl (modified) (1 diff)

branches/haf_add201112/ippScripts/scripts/addstar_run.pl

@@ -108 +108 @@
 
 # it was PSASTRO.OUTPUT
-my $fpaObjects = $ipprc->filename("PSASTRO.OUTPUT",     $stageroot) or &my_die("Missing entry from camera config", $add_id, $PS_EXIT_CONFIG_ERROR);
-
+
+
+if ($stage =~ /cam/) {
+    # if it is cam stage we need to be careful when grabbing the filename. 
+    # This breaks down into a few steps: 
+
+    #get info about the cam_id 
+    my $magicked;
+    {
+        
+        my $mdcParser = PS::IPP::Metadata::Config->new;
+        my $command = "$camtool -processedexp -cam_id " . $stage_id;
+        $command .= " -dbname $dbname" if defined $dbname;
+        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+            run(command => $command, verbose => $verbose);
+        &my_die( "Unable to get info on camRun", $add_id, $PS_EXIT_SYS_ERROR) unless $success;
+        if (scalar @$stdout_buf == 0 ) { #it lists nothing if it is the first
+           &my_die( "empty camRun", $add_id, $PS_EXIT_SYS_ERROR
+            print "listing nothing\n";
+        } else {
+            my $metadata = $mdcParser->parse(join "", @$stdout_buf) or
+                &my_die("Unable to parse metadata config", $add_id, $PS_EXIT_PROG_ERROR);
+            #this fails if there is nothing listed. I checked.
+            my $components = parse_md_list($metadata) or
+                &my_die("Unable to parse metadata list", $add_id, $PS_EXIT_PROG_ERROR);
+            my $comp = $$components[0];
+            my  $mparsed = $comp->{magicked};
+            
+            if (!defined($mparsed)) {
+                &my_die("Unable to parse magicked", $add_id, $PS_EXIT_PROG_ERROR);
+            } #but just to make sure, have it grab a minidvodb_name, to make sure it's not junk.
+            print "found a value for magicked:$mparsed\n";
+            $magicked = $mparsed;
+        }
+
+
+
+    #is this cam_id magicked or not?
+    if ($magicked) {
+        my $fpaObjects = $ipprc->destreak_filename("PSASTRO.OUTPUT",     $stageroot) or &my_die("Missing entry from camera config", $add_id, $PS_EXIT_CONFIG_ERROR);
+    } else {
+
+        my $fpaObjects = $ipprc->filename("PSASTRO.OUTPUT",     $stageroot) or &my_die("Missing entry from camera config", $add_id, $PS_EXIT_CONFIG_ERROR);
+    }
+
+
+} else {
+
+    my $fpaObjects = $ipprc->filename("PSASTRO.OUTPUT",     $stageroot) or &my_die("Missing entry from camera config", $add_id, $PS_EXIT_CONFIG_ERROR);
+}
 if (($stage =~/staticsky/) || ($stage =~/stack/)) {
     $fpaObjects =~ s/smf$/cmf/;