Changeset 38682 for trunk/tools/stsci_disks/p3_permcheck.pl

Timestamp:

Aug 24, 2015, 5:35:11 PM (11 years ago)

Author:

watersc1

Message:

Commiting the run versions.

File:

• trunk/tools/stsci_disks/p3_permcheck.pl (modified) (6 diffs)

trunk/tools/stsci_disks/p3_permcheck.pl

@@ -71 +71 @@
 
 my @volumes = ();
-for (my $i = 4; $i <= 4; $i++) {
-    my $max = 3;
-    if ($i == 4) { $max = 2; }
+for (my $i = 4; $i <= 5; $i++) {
+    my $max = 2;
     for (my $j = 0; $j < $max; $j++) {
         push @volumes, sprintf("ippb%02d.%1d",$i,$j);
@@ -83 +82 @@
 my $command;
 if ($stage eq 'raw') {
+    $command = "regtool -processedimfile -data_state full -exp_id $stage_id -dbname $dbname";
+}
+elsif ($stage eq 'isp') {
+    $command = "regtool -processedimfile -data_state full -exp_id $stage_id -dbname $dbname";
+}
+elsif ($stage eq 'ssp') {
     $command = "regtool -processedimfile -data_state full -exp_id $stage_id -dbname $dbname";
 }
@@ -99 +104 @@
 my @keys = ();
 foreach my $stageEntry ( @{ $stageData } ) {
-    if ($stage eq 'raw') {
-        if ($stageEntry->{ignored}) { next; }
-        push @keys, $stageEntry->{uri};
+    if (($stage eq 'raw')||($stage eq 'ssp')||($stage eq 'isp')) {
+        if ($stageEntry->{ignored}) { next; }
+        push @keys, $stageEntry->{uri};
     }
     elsif ($stage eq 'cam') {
-        push @keys, $stageEntry->{path_base} . ".smf";
-        for (my $u = 0; $u < 8; $u++) {
-            for (my $v = 0; $v < 8; $v++) {
-                if ((($u == 0)||($u == 7))&&
-                    (($v == 0)||($v == 7))) { next; }
-                push @keys, $stageEntry->{path_base} . ".XY${u}${v}.mk.fits";
-            }
-        }
+        push @keys, $stageEntry->{path_base} . ".smf";
+        for (my $u = 0; $u < 8; $u++) {
+            for (my $v = 0; $v < 8; $v++) {
+                if ((($u == 0)||($u == 7))&&
+                    (($v == 0)||($v == 7))) { next; }
+                push @keys, $stageEntry->{path_base} . ".XY${u}${v}.mk.fits";
+            }
+        }
     }
 }
@@ -120 +125 @@
     my ($ipp_copies,$stsci_copies) = check_instances($key);
     if ($stsci_copies != 0) {
-        for (my $i = 0; $i < $stsci_copies; $i++) {
-            $neb->replicate($key,$rand_vol);
-        }
-        print ">> REP: $key $rand_vol\n";
-        sleep(5);
-        my ($ipp_copies,$stsci_copies) = check_instances($key);
+        for (my $i = 0; $i < $stsci_copies; $i++) {
+            $neb->replicate($key,$rand_vol);
+        }
+        print ">> REP: $key $rand_vol\n";
+        sleep(5);
+        my ($ipp_copies,$stsci_copies) = check_instances($key);
     }
-    if ($ipp_copies == 1) {
-        $neb->replicate($key,$rand_vol);
-        print ">> REP: $key $rand_vol\n";
-        sleep(5);
-        my ($ipp_copies,$stsci_copies) = check_instances($key);
-    }
-    if ($ipp_copies >= 2) {
-        $good ++;
+#     if ($ipp_copies == 1) {
+#         $neb->replicate($key,$rand_vol);
+#         print ">> REP: $key $rand_vol\n";
+#         sleep(5);
+#         my ($ipp_copies,$stsci_copies) = check_instances($key);
+#     }
+    if ($ipp_copies >= 1) {
+        $good ++;
     }
     else {
-        print ">> $ipp_copies $stsci_copies\n";
-        push @issues, $key;
+        print ">> $ipp_copies $stsci_copies\n";
+        push @issues, $key;
     }
     print "$key $good $#issues\n";
@@ -146 +151 @@
 if ($#issues != -1) {
     foreach my $key (@issues) {
-        my ($ipp_copies,$stsci_copies) = check_instances($key);
-        if ($ipp_copies < 2) {
-            print "CHECK: $key\n";
-            $bad++;
-        }
+        my ($ipp_copies,$stsci_copies) = check_instances($key);
+        if ($ipp_copies < 2) {
+            print "CHECK: $key\n";
+            $bad++;
+        }
     }
 }
@@ -163 +168 @@
     my $ipp_copies = 0;
     my $stsci_copies = 0;
-    foreach my $uri (@{ $uris }) { 
-        if ($uri =~ /file:...data.ipp/) {
-            $ipp_copies++;
-        }
-        if ($uri =~ /file:...data.stsci/) {
-            $stsci_copies++;
-        }
+    foreach my $uri (@{ $uris }) {
+        if ($uri =~ /file:...data.ipp/) {
+            $ipp_copies++;
+        }
+        if ($uri =~ /file:...data.stsci/) {
+            $stsci_copies++;
+        }
     }
     return($ipp_copies,$stsci_copies);