Changeset 28794 for branches/eam_branches/ipp-20100621/ippScripts/scripts/automate_stacks.pl

Timestamp:

Jul 30, 2010, 9:31:50 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

File:

• branches/eam_branches/ipp-20100621/ippScripts/scripts/automate_stacks.pl (modified) (15 diffs)

branches/eam_branches/ipp-20100621/ippScripts/scripts/automate_stacks.pl

@@ -21 +21 @@
 my $stacktool= can_run('stacktool') or (warn "Can't find stacktool" and $missing_tools = 1);
 my $difftool = can_run('difftool') or (warn "Can't find difftool" and $missing_tools = 1);
+my $magicdstool = can_run('magicdstool') or (warn "Can't find magicdstool" and $missing_tools = 1);
 my $dettool = can_run('dettool') or (warn "Can't find dettool" and $missing_tools = 1);
 my $ppConfigDump = can_run('ppConfigDump') or (warn "Can't find ppConfigDump" and $missing_tools = 1);
@@ -40 +41 @@
 # Grab options
 my ( $date, $camera, $dbname, $logfile, $verbose, $manual);
-my ( $help, $isburning, $force_stack_count, $test_mode, $this_target_only, $this_filter_only, $check_mode);
+my ( $help, $isburning, $force_stack_count, $test_mode, $this_target_only, $this_filter_only, $this_mode_only, $check_mode);
 my ( $check_registration, $define_burntool, $queue_burntool, $check_chips, $queue_chips);
 my ( $check_stacks, $queue_stacks, $check_diffs, $queue_diffs, $clean_old);
@@ -59 +60 @@
     'this_target_only=s'   => \$this_target_only,
     'this_filter_only=s'   => \$this_filter_only,
+    'this_mode_only=s'     => \$this_mode_only,
     'check_registration'   => \$check_registration,
     'define_burntool'      => \$define_burntool,
@@ -86 +88 @@
            --this_target_only     Process only a single target.
            --this_filter_only     Process only a single filter.
+           --this_mode_only       Process only a single clean mode.
         Modes:
            --check_registration   Confirm the data downloaded correctly.
@@ -129 +132 @@
 my %detfilter_list = ();
 my %detmax_list = ();
+my @mode_list = ();
 my %clean_commands = ();
 my %clean_retention = ();
@@ -151 +155 @@
             if (${ $mentry }{name} eq 'MODE') {
                 $this_mode = ${ $mentry }{value};
+                push @mode_list, $this_mode;
             }
             elsif (${ $mentry }{name} eq 'COMMAND') {
@@ -263 +268 @@
     }
     die("$this_filter_only is invalid.") if ($#filter_list != 0);
+}
+
+if (defined($this_mode_only)) {
+    foreach my $t (@mode_list) {
+        if ($t eq $this_mode_only) {
+            @mode_list = ($this_mode_only);
+            last;
+        }
+    }
+    die("$this_mode_only is invalid.") if ($#mode_list != 0);
 }
 
@@ -717 +732 @@
     my $date = shift;
 
-    my $command = construct_dqstatstool_cmd($date);
+    my $command = construct_dqstats_cmd($date);
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run ( command => $command, verbose => $verbose );
@@ -754 +769 @@
     
     my $select = "-select_dateobs_begin ${date}T00:00:00 -select_dateobs_end ${date}T23:59:59 ";
+    my $use_limits = " -use_begin ${date}T00:00:00 -use_end ${date}T23:59:59 ";
     $date =~ s/-//g;
 
@@ -766 +782 @@
     $cmd .= " -workdir $workdir ";
     $cmd .= " -label $label ";
+    $cmd .= " $use_limits ";
     if ($maxN > 0) {
         $cmd .= " -random_subset -random_limit $maxN ";
@@ -839 +856 @@
     }
     if (($metadata_out{nsState} eq 'CHECKDETRENDS') && ($exposures > 0)) {
-        $metadata_out{nsState} eq 'QUEUE_DETRENDS';
+        $metadata_out{nsState} eq 'QUEUEDETRENDS';
     }
 }
@@ -1021 +1038 @@
     my ($label,$workdir,$obs_mode,$object,$comment,$tess_id,$dist_group,$data_group,$reduction) = get_tool_parameters($cleaning_date,$target);
     my $args = $command;
-    if ((exists($clean_alternate{$mode})) && ($clean_alternate{$mode})) {
+    if ((exists($clean_alternate{$mode})) && ($clean_alternate{$mode} eq 'A')) {
         $args .= " -dbname $dbname -updaterun -set_state goto_cleaned -full -set_label goto_cleaned -time_stamp_end $cleaning_date ";
+    }
+    elsif ((exists($clean_alternate{$mode})) && ($clean_alternate{$mode} eq 'B')) {
+        $args .= " -dbname $dbname -updaterun -set_state goto_cleaned -state full -set_label goto_cleaned -label $label ";
     }
     else {
@@ -1037 +1057 @@
     my $pretend = shift;
 
-    foreach my $mode (sort (keys (%clean_commands))) {
-        if ((exists($clean_alternate{$mode})) && ($clean_alternate{$mode})) {
+    foreach my $mode (@mode_list) {
+        if ((exists($clean_alternate{$mode})) && ($clean_alternate{$mode} eq 'A')) {
             my ($cleaning_date,$command) = construct_cleantool_args($date,"",$mode);
             if ($cleaning_date eq 'no clean') {
@@ -1050 +1070 @@
                 unless ($success) {
                     $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-                    &my_die("Unable to perform stacktool: $error_code", 0,0,$date, $PS_EXIT_SYS_ERROR);
+                    &my_die("Unable to perform cleantool ($command): $error_code", 0,0,$date, $PS_EXIT_SYS_ERROR);
                 }
             }
@@ -1070 +1090 @@
                     unless ($success) {
                         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-                        &my_die("Unable to perform stacktool: $error_code", 0,0,$date, $PS_EXIT_SYS_ERROR);
+                        &my_die("Unable to perform cleantool ($command): $error_code", 0,0,$date, $PS_EXIT_SYS_ERROR);
                     }
                 }