Changeset 27838 for branches/tap_branches/ippScripts/scripts/publish_file.pl

Timestamp:

May 3, 2010, 8:41:49 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/tap_branches

Files:

• . (modified) (1 prop)
• ippScripts/scripts/publish_file.pl (modified) (7 diffs)

branches/tap_branches/ippScripts/scripts/publish_file.pl

@@ -7 +7 @@
 use Sys::Hostname;
 my $host = hostname();
-print "Starting script $0 on $host\n\n";
+my $date = `date`;
+print "\n\n";
+print "Starting script $0 on $host at $date\n\n";
 
 use DateTime;
@@ -32 +34 @@
 my $difftool = can_run('difftool') or (warn "Can't find difftool" and $missing_tools = 1);
 my $ppMops = can_run('ppMops') or (warn "Can't find ppMops" and $missing_tools = 1);
+my $ppMonet = can_run('ppMonet') or (warn "Can't find ppMonet" and $missing_tools = 1);
 my $dsreg = can_run('dsreg') or (warn "Can't find dsreg" and $missing_tools = 1);
 if ($missing_tools) {
@@ -81 +84 @@
 my ($dsFile, $dsFileName) = tempfile("/tmp/publish.$pub_id.ds.XXXX", UNLINK => !$save_temps );
 
+my $comment;                    # Comment for exposure
 if ($stage eq 'camera') {
     my $command =  "camtool -processedexp -cam_id $stage_id";
@@ -100 +104 @@
     my $file = $ipprc->filename( "PSASTRO.OUTPUT", $path_base );
     $file = $ipprc->file_resolve($file);
+    my $exp_name = $comp->{exp_name};
+    my $exp_id = $comp->{exp_id};
+    my $chip_id = $comp->{chip_id};
     my $cam_id = $comp->{cam_id};
+    my $zp = $comp->{zpt_obs};
+    my $zp_err = $comp->{zpt_stdev};
+    my $astrom = sqrt($comp->{sigma_ra}**2 + $comp->{sigma_dec}**2);
     my $name = "cam_$cam_id";
+    $comment = $comp->{comment};
+
+    if ($product eq "MONET") {
+        my $output = $ipprc->file_resolve( "$outroot.csv.gz", 'create' ) or
+            &my_die( "Unable to resolve output file", $pub_id, $PS_EXIT_SYS_ERROR);
+
+        my $command = "$ppMonet $file $output";
+        $command .= " -exp_name " . $exp_name if defined $exp_name;
+        $command .= " -exp_id " . $exp_id if defined $exp_id;
+        $command .= " -chip_id " . $chip_id if defined $chip_id;
+        $command .= " -cam_id " . $cam_id if defined $cam_id;
+        $command .= " -zp " . $zp if defined $zp;
+        $command .= " -zp_error " . $zp_err if defined $zp_err;
+        $command .= " -astrom_rms " . $astrom if defined $astrom;
+
+        unless ($no_op) {
+            my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+                run(command => $command, verbose => $verbose);
+            &my_die( "Unable to translate", $pub_id, $PS_EXIT_SYS_ERROR) unless $success;
+            &my_die( "Unable to find translated file $output", $pub_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists( $output );
+        } else {
+            print "Not running: $command\n";
+        }
+
+        $file = $output;
+    }
     print $dsFile "$file|||$product|$name|\n";
+
 } elsif ($stage eq 'diff') {
     my $command =  "difftool -diffskyfile -diff_id $stage_id";
@@ -124 +161 @@
         my $path_base = $comp->{path_base}; # Base name for file
         next if defined $comp->{quality} and $comp->{quality} > 0;
+        print "Warning: mis-matched comments\n" if defined $comment and $comment ne $comp->{comment};
+        $comment = $comp->{comment} unless defined $comment;
 
         (carp "Bad zpt_obs or exp_time for component" and next) if not defined $comp->{zpt_obs} or not defined $comp->{exp_time};
@@ -182 +221 @@
     }
 
-    close $mopsPositiveFile;
-    close $mopsNegativeFile;
+    close $mopsPositiveFile if $product eq 'IPP-MOPS';
+    close $mopsNegativeFile if $product eq 'IPP-MOPS';
 
     if ($product eq 'IPP-MOPS') {
@@ -201 +240 @@
 unless ($no_update) {
     my $command = "$dsreg --add $stage.$stage_id --copy --abspath --product $product --type $product --list $dsFileName";
+    $command .= " --ps0 \"$comment\"" if defined $comment;
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =