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

Timestamp:

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

Author:

watersc1

Message:

Commiting the run versions.

File:

• trunk/tools/stsci_disks/p0_large.pl (modified) (3 diffs)

trunk/tools/stsci_disks/p0_large.pl

@@ -76 +76 @@
 
 my $time = time();
-my $logDest = "neb://any/stsci_shuffle/large/${host}.${volume}/${dir}.log.${time}";
+my $logDest = "neb://any/stsci_shuffle/sizes/${host}.${volume}/${dir}.log";
 my $ipprc = PS::IPP::Config->new( "GPC1" ) or die "Could not create config object.\n";
 $ipprc->redirect_output($logDest) or die "Could not redirect output to logfile ${logDest}\n";
@@ -104 +104 @@
 my $root = "/data/${host}.${volume}/nebulous/${dir}";
 my @subdirectories = <$root/*>;
+my $size = 0;
+my $limit = 10 * 1024 * 1024; # stat returns bytes, so 100 * meg * k 
+my ($size_ota,$size_pv1,$size_pv2,$size_md) = (0,0,0,0);
 foreach my $subdir (@subdirectories) {
     my @files = <${subdir}/*>;
@@ -110 +113 @@
         
         my @stat = stat($f);
-        my $limit = 10 * 1024 * 1024; # stat returns bytes, so 100 * meg * k 
+        $size += $stat[7];
 #       print "$f $stat[7]\n"; die;
-        if ($stat[7] > $limit) {
-            my $ins_id = $f;
-            $ins_id =~ s/^$subdir\///;
-            $ins_id =~ s/\..*//;
+        if ($f =~ /ota/) { $size_ota += $stat[7]; }
+        if ($f =~ /LAP.ThreePi.20120706/) { $size_pv1 += $stat[7]; }
+        if ($f =~ /LAP.ThreePi.20130717/) { $size_pv2 += $stat[7]; }
+        if ($f =~ /MD/) { $size_md += $stat[7]; }
 
-            my $key = $f;
-            $key =~  s/.*\/${ins_id}\.//;
-            $key =~  s%:%/%g;
+
+#       if ($stat[7] > $limit) {
+#           if (0) {
+#               my $ins_id = $f;
+#               $ins_id =~ s/^$subdir\///;
+#               $ins_id =~ s/\..*//;
                 
-            my $uris = $neb->find_instances($key);
-            my $found = 0;
-            foreach my $uri (@{ $uris }) {
-                if ($uri eq "file://${f}") {
-                    $found = 1;
-                }
-            }
-            if ($#{ $uris } == -1) { # true orphan
-                if ($key =~ /ecliptic/) {
-                    $key =~ s%/00hr%:00hr%;
-                    $neb->replicate($key);
-                    print "#replicate $key\n";
-                }
-                $found = -1;
-            }
-            print "$f $stat[7] $key $found\n";
-            if ($found == 0) {
-#               print "rm $f\n";
-                unlink($f);
-                foreach my $rsync (@rsync_vols) {
-                    my $test_f = $f;
-                    $test_f =~ s%^/data/%%;
-                    $test_f = "/data/${rsync}/stsci_shuffle/${test_f}";
-                    if (-e $test_f) {
-                        unlink($f);
-#                       print "rm $test_f\n";
-                    }
-                }
-            }
-        }
+#               my $key = $f;
+#               $key =~  s/.*\/${ins_id}\.//;
+#               $key =~  s%:%/%g;
+                
+#               my $uris = $neb->find_instances($key);
+#               my $found = 0;
+#               foreach my $uri (@{ $uris }) {
+#                   if ($uri eq "file://${f}") {
+#                       $found = 1;
+#                   }
+#               }
+#               if ($#{ $uris } == -1) { # true orphan
+#                   if ($key =~ /ecliptic/) {
+#                       $key =~ s%/00hr%:00hr%;
+#                       $neb->replicate($key);
+#                       print "#replicate $key\n";
+#                   }
+#                   $found = -1;
+#               }
+#               print "$f $stat[7] $key $found\n";
+#               if ($found == 0) {
+# #             print "rm $f\n";
+#                   unlink($f);
+#                   foreach my $rsync (@rsync_vols) {
+#                       my $test_f = $f;
+#                       $test_f =~ s%^/data/%%;
+#                       $test_f = "/data/${rsync}/stsci_shuffle/${test_f}";
+#                       if (-e $test_f) {
+#                           unlink($f);
+# #                     print "rm $test_f\n";
+#                       }
+#                   }
+#               }
+#           }
+#       }
     }
-#    print STDERR "$subdir\n";
 }
+my $Msize = $size / 1024 / 1024;
+print "$root $size $Msize\n";
+print "OTA $size_ota\n";
+print "PV1 $size_pv1\n";
+print "PV2 $size_pv2\n";
+print "MD $size_md\n";
+