Changeset 38679 for trunk/tools

Timestamp:

Aug 11, 2015, 5:07:40 PM (11 years ago)

Author:

watersc1

Message:

Print where we made the copy.

File:

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

trunk/tools/stsci_disks/p3_permcheck.pl

@@ -72 +72 @@
 my @volumes = ();
 for (my $i = 4; $i <= 4; $i++) {
-    for (my $j = 0; $j < 3; $j++) {
+    my $max = 3;
+    if ($i == 4) { $max = 2; }
+    for (my $j = 0; $j < $max; $j++) {
         push @volumes, sprintf("ippb%02d.%1d",$i,$j);
     }
@@ -121 +123 @@
             $neb->replicate($key,$rand_vol);
         }
-        print ">> REP: $key\n";
+        print ">> REP: $key $rand_vol\n";
         sleep(5);
         my ($ipp_copies,$stsci_copies) = check_instances($key);