Changeset 27718 for trunk/ippScripts/scripts/flatcorr_init.pl

Timestamp:

Apr 21, 2010, 11:35:15 AM (16 years ago)

Author:

Paul Price

Message:

Add date of processing to output log.

File:

• trunk/ippScripts/scripts/flatcorr_init.pl (modified) (9 diffs)

trunk/ippScripts/scripts/flatcorr_init.pl

@@ -1 +1 @@
 #!/usr/bin/env perl
 
-## USAGE:flatcorr_init.pl 
+## USAGE:flatcorr_init.pl
 ## given dbname, dvodb, filter, time range, camera, telescope, etc?
 ## select matching images and register as a new flatcorr run
@@ -24 +24 @@
 use Sys::Hostname;
 my $host = hostname();
+my $date = `date`;
 print "\n\n";
-print "Starting script $0 on $host\n\n";
+print "Starting script $0 on $host at $date\n\n";
 
 use vars qw( $VERSION );
@@ -68 +69 @@
 my $caltool  = can_run('caltool')  or (warn "Can't find caltool"  and $missing_tools = 1);
 
-if ($missing_tools) { 
+if ($missing_tools) {
     warn ("Can't find required tools");
-    exit($PS_EXIT_CONFIG_ERROR); 
+    exit($PS_EXIT_CONFIG_ERROR);
 }
 
@@ -90 +91 @@
         cache_run(command => $command, verbose => 1);
 
-    unless ($success) { 
+    unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
         &my_die ("Unable to perform addstar -resort on region $region: $error_code", $dvo_id, $region, "RESORT", $status, $dbname);
@@ -99 +100 @@
 {
     foreach my $filter (@filters) {
-        my $command = "$relphot $filter";
-        $command .= "-D CATDIR $catdir";
-        $command .= "-region $RAs $RAe $DECs $DECe";
-
-        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            cache_run(command => $command, verbose => 1);
-
-        unless ($success) { 
-            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-            &my_die ("Unable to perform addstar -resort on region $region: $error_code", $dvo_id, $region, "RELPHOT", $status, $dbname);
-        }
+        my $command = "$relphot $filter";
+        $command .= "-D CATDIR $catdir";
+        $command .= "-region $RAs $RAe $DECs $DECe";
+
+        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+            cache_run(command => $command, verbose => 1);
+
+        unless ($success) {
+            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+            &my_die ("Unable to perform addstar -resort on region $region: $error_code", $dvo_id, $region, "RELPHOT", $status, $dbname);
+        }
     }
 }
@@ -117 +118 @@
 if (0) {
     foreach my $filter (@filters) {
-        my $command = "$uniphot $filter";
-        $command .= "-D CATDIR $catdir";
-        $command .= "-region $RAs $RAe $DECs $DECe";
-
-        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            cache_run(command => $command, verbose => 1);
-
-        unless ($success) { 
-            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-            &my_die ("Unable to perform addstar -resort on region $region: $error_code", $dvo_id, $region, "UNIPHOT", $status, $dbname);
-        }
+        my $command = "$uniphot $filter";
+        $command .= "-D CATDIR $catdir";
+        $command .= "-region $RAs $RAe $DECs $DECe";
+
+        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+            cache_run(command => $command, verbose => 1);
+
+        unless ($success) {
+            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+            &my_die ("Unable to perform addstar -resort on region $region: $error_code", $dvo_id, $region, "UNIPHOT", $status, $dbname);
+        }
     }
 }
@@ -137 +138 @@
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        cache_run(command => $command, verbose => 1);
-
-    unless ($success) { 
-        $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-        &my_die ("Unable to perform addstar -resort on region $region: $error_code", $dvo_id, $region, "RELASTRO.OBJECTS", $status, $dbname);
+        cache_run(command => $command, verbose => 1);
+
+    unless ($success) {
+        $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+        &my_die ("Unable to perform addstar -resort on region $region: $error_code", $dvo_id, $region, "RELASTRO.OBJECTS", $status, $dbname);
     }
 }
@@ -151 +152 @@
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        cache_run(command => $command, verbose => 1);
-
-    unless ($success) { 
-        $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-        &my_die ("Unable to perform addstar -resort on region $region: $error_code", $dvo_id, $region, "RELASTRO.IMAGES", $status, $dbname);
+        cache_run(command => $command, verbose => 1);
+
+    unless ($success) {
+        $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+        &my_die ("Unable to perform addstar -resort on region $region: $error_code", $dvo_id, $region, "RELASTRO.IMAGES", $status, $dbname);
     }
 }
@@ -185 +186 @@
     my $region    = shift;
     my $last_step = shift;
-    my $status    = shift;
-    my $dbname    = shift;
+    my $status    = shift;
+    my $dbname    = shift;
 
     carp($msg);
     if (defined $dvo_id && defined $region && defined $last_step && defined $status and not $no_update) {
         my $command = "$caltool -addcalrun";
-        $command .= " -dvo_id $dvo_id";
+        $command .= " -dvo_id $dvo_id";
         $command .= " -region $region";
-        $command .= " -last_step $last_step";
-        $command .= " -status $status";
+        $command .= " -last_step $last_step";
+        $command .= " -status $status";
         $command .= " -dbname $dbname" if defined $dbname;
         system ($command);