Changeset 32630 for branches/eam_branches/ipp-20110906/tools/diskspace/nebulous_data.pl

Timestamp:

Nov 8, 2011, 2:44:12 PM (15 years ago)

Author:

eugene

Message:

merge changes from trunk

Location:

branches/eam_branches/ipp-20110906

Files:

• . (modified) (1 prop)
• tools/diskspace/nebulous_data.pl (modified) (3 diffs)

branches/eam_branches/ipp-20110906/tools/diskspace/nebulous_data.pl

@@ -61 +61 @@
 my $neb_dir = "/data/${neb}/nebulous/";
 
+my $total_volume = 0;
+my $used_volume  = 0;
+open(DF,"df -B 1 /export/${neb}/ |") || die "Cannot run df\n";
+while(<DF>) {
+    chomp;
+    if ($_ =~ /${neb}/) {
+        $used_volume = (split /\s+/, $_)[2];
+    }
+}
+close(DF);
+
 open(FIND,"find $neb_dir -type f -printf \"%f %s\n\" |") || die "Cannot run find.\n";
+
+
 while (<FIND>) {
     chomp;
@@ -88 +101 @@
     $count{$stage}{$product} += 1;
     $volume{$stage}{$product} += $size;
+    $total_volume += $size;
 }
 close(FIND);
+
 
 
@@ -98 +113 @@
     }
 }
-
+if ($used_volume > 0) {
+    my $external_volume = $used_volume - $total_volume;
+    print $out_fh "EXTERNAL UNKNOWN 1 $external_volume\n";
+}
 close($out_fh);