Changeset 40367

Timestamp:

Mar 13, 2018, 3:27:37 PM (8 years ago)

Author:

eugene

Message:

added test for summitExp.fault = 1000

File:

• tags/ipp-20170121/tools/checkexp (modified) (4 diffs)

tags/ipp-20170121/tools/checkexp

@@ -84 +84 @@
 my @summit_exps;
 my @summit_faults;
+my @summit_lost;
 my @download_faults;
 my @register_faults;
@@ -106 +107 @@
     my $dateobs = $se_ref->{dateobs};
     my $raw_state = $se_ref->{rawExp_state};
-    if ($summit_fault) {
+    if ($summit_fault == 1000) {
+        push @summit_lost, $se_ref;
+    } elsif ($summit_fault) {
         push @summit_faults, $se_ref;
     } elsif ( !$download_state or $download_state eq 'run' ) {
@@ -132 +135 @@
 
 my $numSummitExp = scalar @summit_exps;
+my $numSummitLost = scalar @summit_lost;
 my $numSummitFaults = scalar @summit_faults;
 my $numDownloadFaults = scalar @download_faults;
@@ -142 +146 @@
 exit 0 if $numSummitExp == 0;
 
+if ($numSummitLost) {
+  print "$numSummitLost exposures corrupted at the summit\n";
+  if ($verbose) {
+    print  "  exp_name         registered      fault\n";
+          # c4951g0003d   2009-04-30 12:39:34   110
+    foreach my $s (@summit_lost) {
+        printf "%-12s %20s %5d\n", $s->{exp_name}, $s->{registered}, $s->{summit_lost};
+    }
+  }
+}
 if ($numSummitFaults) {
   print "$numSummitFaults summit faults\n";